Имя: Пароль:
1C
1С v8
Отправка письма через новый COMОбъект("CDO.Message")
0 wowik
 
29.11.12
15:25
Как установить дату отправления письма?
       emailObj      = новый COMОбъект("CDO.Message");
   fromEmail    = "Логин";
   password    = "пароль";
   
   emailObj.From     = "ПочтаПользователя";
   emailObj.To       ="Кому";
   emailObj.Subject  = "Тема  письма";
   
   emailObj.TextBody = " ";
   emailObj.BodyPart.Charset = "windows-1251";

       emailConfig = emailObj.Configuration;
   emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value       = "smtp.googlemail.com" ;
   emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value   = 465;
   emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value        = 2 ;
   emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1 ;
   emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value       = true;
   emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value     = fromEmail ;
   emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value     = password  ;
   emailConfig.Fields.Update();
   Попытка
       emailObj.Send();
   исключение
       Сообщить(ОписаниеОшибки());
       Возврат;
   КонецПопытки;