RomMail При отправке очты Тело отправляется как одна строка,
т.е. переводы строк из ТекстПисьма куда-то исчезают.
ВК = СоздатьОбъект("AddIn.AddInMail");
ВК.СерверОтправки = Константа.Emailsmtp;
ВК.ПортОтправки = "25";
ВК.Логин = Константа.EmailLogin;
ВК.Пароль = Константа.EmailPass;
ВК.АутентификацияПриОтправке = 1;
Если ВК.Подключиться("Отправка")=0 Тогда
Предупреждение("Не удалось подключиться к серверу!");
Возврат;
КонецЕсли;
ВК.АдресОтправителя = "
[email protected]";
ВК.ИмяОтправителя = "
[email protected]";
ВК.АдресПолучателя = АдресПолучателя;
//ВК.СкрытаяКопия = “
[email protected]”;
ВК.ТипПисьма = 2;
ВК.Тема = ТемаПисьма;
ВК.Тело = ТекстПисьма;
//ВК.Вложения = "";
ВК.Кодировка ="windows-1251";
ВК.Кодировка ="koi8-r";
ВК.НеКодироватьТему = 0;
ВК.ПодтверждениеДоставки = 0;
ВК.ПодтверждениеПрочтения = 0;
Если ВК.Отправить() = 1 Тогда
Предупреждение("Письмо успешно отправлено получателю");
Иначе
Предупреждение("Не удалось отправить письмо!");
КонецЕсли;
ВК.Отключиться();