HelpF.pro

Отправка почты 1с 7.7 CDO.Configuration. Відправлення почти 1с 7.7 CDO.Configuration

[c7]

Процедура глОтправитьПочту(АдресПолучателя = "",ТемаПисьма = "",ТелоПисьма = "",ТзЕмейл = "") Экспорт

iConf = CreateObject("CDO.Configuration");
iMsg = CreateObject("CDO.Message");

iMsg.Configuration = iConf;
iMsg.From           = "Программист 1с"""" <primer@mail.ru>";
iMsg.To             = АдресПолучателя;
iMsg.Subject       = ТемаПисьма;
iMsg.textBody       = ТелоПисьма;

iMsg.BodyPart.Charset = "windows-1251";

//В таблицу значений передаю файлы вложения

ТзЕмейл.ВыбратьСтроки();
Пока ТзЕмейл.ПолучитьСтроку() = 1 Цикл
iMsg.AddAttachment(СокрЛП(ТзЕмейл.ПутьКФайлу));
//iMsg.AddAttachment("D:\1.txt");
КонецЦикла;

iConf.Fields.Item("


Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/1700.html