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

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("