sendusername = МояПочта.Логин;
sendpassword = МояПочта.Пароль;
AddAttachments = СтруктураПараметров.Файлы;
ТекстСообщения =СтруктураПараметров.Тема + Символы.ПС + Символы.ВК + СтруктураПараметров.Текст;
loConfig = Новый COMОбъект("CDO.Configuration");
loCdoMessage = Новый COMОбъект("CDO.Message");
loCdoMessage.Configuration = loConfig;
loCdoMessage.From = Строка("Торговый аген"""" <"+sendusername+">");
loCdoMessage.To = СтруктураПараметров.АдресПолучателя; //loCdoMessage.To = "xxxxxxx@gmail.ru>";
loCdoMessage.Subject = СтруктураПараметров.Тема; ;
HTMLBody = "<html>
|<head>
|<meta content=""text/html; charset=Windows-1251"" http-equiv=""content-type"">
|<title> Тестовое сообщение </title>
|</head>
|<body>
|<h4>" + ТекстСообщения + "</h4>
|<p></p>
|</body>
|</html>";
loCdoMessage.BodyPart.Charset = "windows-1251"; // это если делать без извратов с оформлением текста письма
loCdoMessage.HTMLBody = HTMLBody;
Для каждого стр из AddAttachments Цикл
Попытка
loCdoMessage.AddAttachment(стр);
Исключение
КонецПопытки;
КонецЦикла;
loConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/sendusing"). Value = 2;
loConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserver"). Value = МояПочта.SMTPСервер;
loConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/smtpserverport"). Value = МояПочта.ПортSMTP;
loConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"). Value = 1;
loConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/sendusername"). Value = sendusername;
loConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/sendpassword"). Value = sendpassword;
loConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/smtpusessl"). Value = 1;
loConfig.Fields.Item("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;
loConfig.Fields.Update();
Попытка
loCdoMessage.Send();
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;