helpf.pro
Регистрация
 0 
Распечатать

Отправка почты 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("

Разместил:   Версии: | 7.x |  Дата:   Прочитано: 2737
 0 
Распечатать
Возможно, вас также заинтересует
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.