|
0
burrya
21.11.12
✎
19:30
|
RomMail При отправке очты Тело отправляется как одна строка,
т.е. переводы строк из ТекстПисьма куда-то исчезают.
ВК = СоздатьОбъект("AddIn.AddInMail");
ВК.СерверОтправки = Константа.Emailsmtp;
ВК.ПортОтправки = "25";
ВК.Логин = Константа.EmailLogin;
ВК.Пароль = Константа.EmailPass;
ВК.АутентификацияПриОтправке = 1;
Если ВК.Подключиться("Отправка")=0 Тогда
Предупреждение("Не удалось подключиться к серверу!");
Возврат;
КонецЕсли;
ВК.АдресОтправителя = " news@atlant-m.dp.ua";
ВК.ИмяОтправителя = " news@atlant-m.dp.ua";
ВК.АдресПолучателя = АдресПолучателя;
//ВК.СкрытаяКопия = “poluchatel2@mail.ru”;
ВК.ТипПисьма = 2;
ВК.Тема = ТемаПисьма;
ВК.Тело = ТекстПисьма;
//ВК.Вложения = "";
ВК.Кодировка ="windows-1251";
ВК.Кодировка ="koi8-r";
ВК.НеКодироватьТему = 0;
ВК.ПодтверждениеДоставки = 0;
ВК.ПодтверждениеПрочтения = 0;
Если ВК.Отправить() = 1 Тогда
Предупреждение("Письмо успешно отправлено получателю");
Иначе
Предупреждение("Не удалось отправить письмо!");
КонецЕсли;
ВК.Отключиться();
|
|
