Имя: Пароль:
1C
1С v8
Настройка соединения по протоколу шифрования TLS с помощью CDO
0 Vasilisk
 
25.06.14
16:33
Добрый день. Знаю тема уже иссохла как мумия из пирамиды, но в гугле конкретного решения найти не смог, прошу подсказать...
Как произвести настройку соединения подобно SSL, что бы эл письма передавались используя TLS.

Письмо=Новый COMОбъект("CDO.Message");
            Письмо.to=СокрЛП(ТекСтрокаАдресаты.ЭлПочта);
            Письмо.from=ТекСтрокаАдресаты.Отправитель.ЭлПочта;
            //Письмо.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=СокрЛП(ТекСтрокаАдресаты.Отправитель.АдресСервераSMTP);
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value=1;
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value=СокрЛП(ТекСтрокаАдресаты.Отправитель.ПользовательSMTP);
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value=СокрЛП(ТекСтрокаАдресаты.Отправитель.ПарольSMTP);
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value=СокрЛП(ТекСтрокаАдресаты.Отправитель.ПортSMTP);
            Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value=1;

            Письмо.Configuration.Fields.Update();
            Письмо.Send();
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан