Имя: Пароль:
1C
1C 7.7
v7: Возможно ли с помощью dialmail отправлять эксельные вложения?
0 Владимир1С
 
30.05.12
20:38
Возможно ли с помощью dialmail отправлять эксельные вложения?
1 Владимир1С
 
30.05.12
20:45
Подскажите, пожалуйста, с помощью какой компоненты можно из 7.7 отправить вложения.
2 Wobland
 
30.05.12
20:47
3 YHVVH
 
30.05.12
20:47
ROM Mail
4 Владимир1С
 
30.05.12
20:48
(3) только что отказался, прочитав диалоги здесь же.
5 Владимир1С
 
30.05.12
20:53
(2) большое спасибо за подсказку, я эти компоненты особо не использовал ранее.
6 Venom
 
30.05.12
21:35
(0) можно отправить без ВК через CDO. Погугли сам или могу завтра с работы скинуть пример.
7 Владимир1С
 
30.05.12
21:36
(2) посмотрел 2-ю ссылку, интересно, да. Извините за тупой вопрос: Это всё? (в инете уже смотрел, ничего больше не нашёл). И ещё: есть коммерческая версия ROM-Mail. Кто её использовал, ответьте плиз, с ней 1С не вылетает? Очень нужно. Пожалуйста.
8 Владимир1С
 
30.05.12
21:37
(6) Большое спасибо, за пример буду безумно благодарен.
9 Злопчинский
 
31.05.12
04:10
(8) на!
возьми две обработки
прочитай инфу в опсианиях:
http://infostart.ru/public/14180/
http://infostart.ru/public/14131/
повесь две кнопки на панель.
ничего программитьь не надо.
энджой.
10 big
 
31.05.12
05:15
(4) ну и зря отказался.
11 andrewks
 
31.05.12
08:15
(10) не зря
(0) www.dialmail.ru , там же примеры
12 Venom
 
31.05.12
08:28
Пример отправки письма с вложением (3 вложения в данном примере) используя CDO


//======================================================================
Функция ОтправитьПисьмоСДО()
   
   cdoSendEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress" ;
   cdoSendPassword              = "http://schemas.microsoft.com/cdo/configuration/sendpassword" ;
   cdoSendUserName              = "http://schemas.microsoft.com/cdo/configuration/sendusername" ;
   cdoSendUsingMethod           = "http://schemas.microsoft.com/cdo/configuration/sendusing" ;
   cdoSMTPAuthenticate          = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ;
   cdoSMTPServer                = "http://schemas.microsoft.com/cdo/configuration/smtpserver";
   cdoSMTPServerPort            = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";
   cdoSMTPUseSSL                = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";
       
   iConf = СоздатьОбъект("CDO.Configuration");    
   iConf.fields(cdoSendUsingMethod).value = 2;
   //cdoSendUsingPickup    1  Send message using the local SMTP service pickup directory.
   //cdoSendUsingPort      2  Send the message using the network (SMTP protocol over the
   //                         network).  
   //cdoSendUsingExchange  3  Send the message using the Exchange mail submission URI.
   //                         This URI is found in the user's
   //                         urn:schemas:httpmail:sendmsg mailbox folder property.
   iConf.fields(cdoSMTPServer).value         = "smtp.yandex.ru";
   iConf.fields(cdoSMTPServerPort).value     = 25;
   iConf.fields(cdoSMTPAuthenticate).value   = 1;
   iConf.fields(cdoSendUserName).value       = "твойемейл@yandex.ru";
   iConf.fields(CdoSendPassword).value       = "твой пароль";
   iConf.fields(cdoSendEmailAddress).value   = """1C"" <твойемейл@yandex.ru>";
   iConf.fields(cdoSMTPUseSSL).value         = 0;  //Secure Sockets Layer
   iConf.fields.update();            
   
   iMsg=СоздатьОбъект("CDO.Message");
   iMsg.configuration = iConf;
   
   iMsg.to="КомуАдрес"; //адрес куда/кому шлём письмо
   iMsg.from="""1C"" <твойемейл@yandex.ru>"; //адрес от кого шлём письмо
   iMsg.subject="ТемаПисьма"; //тема письма
   
   iMsg.textBody="ТелоПисьма"; //тело письма
   iMsg.textBodypart.charset="iso-8859-5";  //либо "koi8-r"
   
   iMsg.addAttachment(Файл1);
   iMsg.addAttachment(Файл2);
   iMsg.addAttachment(Файл3);    

   
   Отправленно = 0;
   
   Попытка
       iMsg.send();
       Отправленно = 1;
       Сообщить("Сообщение отправлено.");
   Исключение
       //Письмо отправить не удалось, возможно проблеммы с интернетом        
       Ошибка = ОписаниеОшибки();        
       Сообщить("Письмо не отправленно Ошибка ("+Ошибка,"!");
   КонецПопытки;    
   
   Возврат Отправленно;
   
КонецФункции // ОтправитьПисьмо
13 1Сергей
 
31.05.12
08:33
(12) Спасибо, забрал в копилку