Вот код обработки:
// ===============================
Процедура Сформировать()
// От кого отправляем и через какой логин
EmeilОт = "@mail.ru";
// Кому отправляем - email
EmeilКому = "Мне@mail.ru";
// Сервер SMTP
СерверSMTP = "smtp.mail.ru";
// Порт SMTP
ПортSMTP = 25;
// Логин на SMTP
ЛогинSMTP = "Логин@mail.ru";
// Пароль на SMTP
ПарольSMTP = "passwort";
loConfig = CreateObject("CDO.Configuration");
loCdoMessage = CreateObject("CDO.Message");
loCdoMessage.Configuration = loConfig;
loCdoMessage.From = EmeilОт;
loCdoMessage.To = EmeilКому;
loCdoMessage.Subject = "Проверка кодировки";
ТекстСообщения = "Проверка кодировки";
HTMLBody = "<html>
|<head>
| <meta content=""text/html; charset=Windows-1251"" http-equiv=""content-type"">
|<title> Тестовое сообщение </title>
|</head>
|<body>
|<h3>" + ТекстСообщения + "</h3>
|<p></p>
|</body>
|</html>";
loCdoMessage.HTMLBody = HTMLBody;
//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 = ЛогинSMTP;
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = ПарольSMTP;
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value = 0;
loConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;
loConfig.Fields.Update();
loCdoMessage.Send();
КонецПроцедуры
Не хочет отправлять почту в кодировке Кирилица 1251, приходит письмо с нечитаемыми символами. Вот здесь пример обработки:
