Я честно говоря не знал, что можно использовать CDO, но рекомендую автору оформить все более грамотно с точки зрения повтороного юзания кода, как у меня (я написал, когда узнал про CDO):
Функция СоздатьСтруктуруПисьмаCDO()
//Код Гения 1С
Р = Новый Структура();
Р.Вставить("СерверSMTP", );
Р.Вставить("ПользовательSMTP", );
Р.Вставить("ПортSMTP", 25);
Р.Вставить("SSL", ложь);
Р.Вставить("Отправитель", );
Р.Вставить("Кому", );
Р.Вставить("ПарольSMTP", );
Р.Вставить("Тема", );
Р.Вставить("Текст", );
Р.Вставить("Вложения", Новый Массив());
Р.Вставить("Копия", );
Р.Вставить("СкрытаяКопия", );
Р.Вставить("ДляОтвета", );
Р.Вставить("Аутентификация ", 1); //0 - анонимно, 1 - базовая, 2 - NTLM
Р.Вставить("ТаймАут", 60); //в секундах
Возврат Р;
КонецФункции
Функция ОтправитьПисьмоЧерезCDO(СтруктураCDO) Экспорт
//Код Гения 1С
//http://www.paulsadowski.com/wsh/cdo.htm
Письмо = Новый COMОбъект("CDO.Message");
Р = Новый Структура("ОК, Объект, Описание", ложь, Письмо, "");
Письмо.to = СтруктураCDO.Кому;
Письмо.from = СтруктураCDO.Отправитель;
Письмо.cc = СтруктураCDO.Копия;
Письмо.bcc = СтруктураCDO.СкрытаяКопия;
Для Каждого Элемент Из СтруктураCDO.Вложения Цикл
Письмо.AddAttachment(Элемент);
КонецЦикла;
Письмо.Subject = СтруктураCDO.Тема;
Письмо.TextBody = СтруктураCDO.Текст;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = СтруктураCDO.СерверSMTP;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = СтруктураCDO.Аутентификация;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value = СтруктураCDO.ПользовательSMTP;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = СтруктураCDO.ПарольSMTP;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = СтруктураCDO.ПортSMTP;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value = СтруктураCDO.SSL;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = СтруктураCDO.ТаймАут;
Письмо.Configuration.Fields.Update();
Попытка
Письмо.Send();
Исключение
Р.ОписаниеОшибки = ОписаниеОшибки();
Возврат Р;
КонецПопытки;
Р.ОК = истина;
Возврат Р;
КонецФункции
Показать
