&НаСервереБезКонтекста
Функция ПолучитьДанныеЯщикаСистемнойЗаписи()

СистемнаяУчетнаяЗаписьЭлектроннойПочты = Справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;

СтруктураНастроек = Новый Структура;
СтруктураНастроек.Вставить("СерверSMTP", СокрЛП(СистемнаяУчетнаяЗаписьЭлектроннойПочты.СерверИсходящейПочтыSMTP));
СтруктураНастроек.Вставить("ПользовательSMTP",СокрЛП(СистемнаяУчетнаяЗаписьЭлектроннойПочты.ПользовательSMTP));
СтруктураНастроек.Вставить("ПарольSMTP", СокрЛП(СистемнаяУчетнаяЗаписьЭлектроннойПочты.ПарольSMTP));
СтруктураНастроек.Вставить("ПортSMTP", СистемнаяУчетнаяЗаписьЭлектроннойПочты.ПортSMTP);
СтруктураНастроек.Вставить("Отправитель", СокрЛП(СистемнаяУчетнаяЗаписьЭлектроннойПочты.АдресЭлектроннойПочты));
СтруктураНастроек.Вставить("ИспользоватьSSL", СистемнаяУчетнаяЗаписьЭлектроннойПочты.ИспользоватьSSL);

Возврат СтруктураНастроек;

КонецФункции

//обработка, пример который приведен содержит ТЧ "НаОтправку" с реквизитами "Контрагент" - ссылка на справочник и "Файл" - строка, путь к файлу
//ПолучитьМассивКлиентов() - функция возвращает перечень всех клиентов из данной ТЧ
//
//АдресПолучателя(ЭлементМассива) - функция возвращает e-mail клиента
&НаКлиенте
Процедура ОтправкаПисем()

//тут был прочий код, не относящийся к отправке, он удален

МассивКлиенты = ПолучитьМассивКлиентов();
Для Каждого ЭлементМассива Из МассивКлиенты Цикл

//***************************************
Если АдресПолучателя(ЭлементМассива) = "" Тогда
Сообщить("У контрагента "+ЭлементМассива+" не указан email, письмо отправлено не будет!");
Продолжить;
КонецЕсли;

Кому = АдресПолучателя(ЭлементМассива);

Тема = "Документы";
Текст = "Документы";

СтруктураНастроек = ПолучитьДанныеЯщикаСистемнойЗаписи();

CDO_СерверSMTP = СтруктураНастроек.СерверSMTP;
CDO_ПользовательSMTP = СтруктураНастроек.ПользовательSMTP;
CDO_ПарольSMTP = СтруктураНастроек.ПарольSMTP;
CDO_ПортSMTP = СтруктураНастроек.ПортSMTP;
Отправитель = СтруктураНастроек.Отправитель;
ИспользоватьSSL = СтруктураНастроек.ИспользоватьSSL;

Письмо = Новый COMОбъект("CDO.Message");
Письмо.to = Кому;
Письмо.from = Отправитель;
Письмо.Sender = Отправитель;

//Письмо.cc=Копия;
//Письмо.bcc=СкрКопия;

Отбор = Новый Структура();
Отбор.Вставить("Контрагент",ЭлементМассива);
НайденныеСтроки = Объект.НаОтправку.НайтиСтроки(Отбор);
Для КАЖДОГО СтрДокументы ИЗ НайденныеСтроки ЦИКЛ
Письмо.AddAttachment(СокрЛП(СтрДокументы.Файл));
КонецЦикла;

Письмо.Subject = Тема;
Письмо.TextBody = Текст;
Письмо.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 = 1;// 0 - Do not authenticate; 1 - basic (clear-text) authentication; 2 - NTLM
Письмо.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;

Если ИспользоватьSSL Тогда
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value = True;
КонецЕсли;
//Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value = ИспользоватьSSL;
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;

Попытка
Письмо.Configuration.Fields.Update();
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;

Попытка
Письмо.Send();
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЦикла;

Сообщить("Все...");
КонецПроцедуры

 // Исправляем значения Контактной Информации контрагента в Регистре сведений

Функция ОчиститьEmail(

    Контрагент, 

    ТипКонтактнойИнформации,

    ВидКонтактнойИнформации,

    Представление 

    )



    // #1  Создаем набор записей

    НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();



    // #2 Отбираем (по измерениям)

    НаборЗаписей.Отбор.Объект.Установить(Контрагент);

    НаборЗаписей.Отбор.Тип.Установить(ТипКонтактнойИнформации);

    НаборЗаписей.Отбор.Вид.Установить(ВидКонтактнойИнформации);    



    // #3 Читаем набор записей

    НаборЗаписей.Прочитать();



    // #4 редактируем в цикле каждую запись из набора

    Для каждого СтрНабЗап Из НаборЗаписей Цикл



        СтрНабЗап.Представление    = ""; 



        сообщить("" + Контрагент + " | " 

        + ТипКонтактнойИнформации + " | " 

        + ВидКонтактнойИнформации + " | " 

        + Представление + " -> " + СтрНабЗап.Представление + " [Ok!]");



    КонецЦикла;



    // #5 Сохраняем набор записей

    НаборЗаписей.Записать();    



КонецФункции



// Получить таблицу значений

// Записи из Регистра Сведений КонтактнаяИнформация с некорректными Email

функция ПолучитьТЗ()        



    Запрос = Новый Запрос;

    Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1000000

    |    КонтактнаяИнформация.Объект,

    |    КонтактнаяИнформация.Тип,

    |    КонтактнаяИнформация.Вид,

    |    КонтактнаяИнформация.Представление,

    |    (ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(1000))) как стрПредставление

    |ИЗ

    |    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация

    |ГДЕ

    |    КонтактнаяИнформация.Тип = &Тип

    |    //И КонтактнаяИнформация.Вид = &Вид    

    |    И (ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(1000))) <> &ПустоеЗначение        

    |    И НЕ КонтактнаяИнформация.Представление ПОДОБНО &ШаблонEmail";



    //Параметры запроса:    



    // Типы контактной информации

    Запрос.УстановитьПараметр("Тип",Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);



    // пустая строка

    Запрос.УстановитьПараметр("ПустоеЗначение","");// Строка



    // критерий отбора для примера простой - строка содержит символ "@" - значит это почта

    Запрос.УстановитьПараметр("ШаблонEmail","%@%");// Строка

    Результат = Запрос.Выполнить();    



    //Выборка = Результат.Выбрать();



    // результат запроса выгрузить в

    // таблицу значений 

    ПлохиеEmailТЗ   = Результат.Выгрузить();



    Возврат ПлохиеEmailТЗ;

КонецФункции