Отправка писем и получение электронной почты с использованием SSL

Автор: Душелов

 

Сайт: http://infostart.ru/public/16429/

 

Описание:

 Отправляет и получает письма по эл. почте, с серверов, которые используют шифрование SSL (gmail.com и др.)

*** Для работы компоненты потребуется установленный Microsoft .NET Framework 2.0, который можно скачать отсюда.
http://www.microsoft.com/downloads/details.aspx?displaylang=ru&FamilyID=0856eacb-4362-4b0d-8edd-aab15c5e04f5

и зарегистрировать компоненту в Windows — запустить reg.bat
или использовать совместно с хранилищем внешних компонент

*** Подключение:

[code]

Перем ПочтаSSL;  //ПОДКЛЮЧЕНИЕ КОМПОНЕНТЫ В 1С 7.7:    ИмяВК="AddIn.MailSSL";     Попытка     ПодключитьВнешнююКомпоненту(ИмяВК);   Исключение     Сообщить("Не удалось подключить компоненту "+ИмяВК);   КонецПопытки;    Попытка     ПочтаSSL = СоздатьОбъект(ИмяВК);   Исключение     Сообщить("Ошибка создания объекта внешней компоненты: "+ ИмяВК);   КонецПопытки;  //ПОДКЛЮЧЕНИЕ КОМПОНЕНТЫ В 1С 8.x:     ИмяВК="AddIn.MailSSL";      Попытка     ПодключитьВнешнююКомпоненту(ИмяВК);   Исключение     Предупреждение("Не удалось подключить компоненту " + ИмяВК);   КонецПопытки;      Попытка     ПочтаSSL = Новый(ИмяВК);   Исключение     Предупреждение("Ошибка создания объекта внешней компоненты: " + ИмяВК);   КонецПопытки;  //*** Свойства:  //SMTP:    ПочтаSSL.SmtpСервер = "smtp.gmail.com";   ПочтаSSL.SmtpПорт = "465";   ПочтаSSL.SmtpПользователь = "userID@gmail.com";   ПочтаSSL.SmtpПароль = "mysuperpassword";  //POP3:    ПочтаSSL.Pop3Сервер = "pop.gmail.com";   ПочтаSSL.Pop3Порт = "995";   ПочтаSSL.Pop3Пользователь = "userID@gmail.com";   ПочтаSSL.Pop3Пароль = "mysuperpassword";   //*** Методы:   //ОТПРАВИТЬ:     ПочтаSSL.Отправить(ОтКого, Кому, CC, BCC, ТемаСообщения, ТекстСообщения, ФайлыДляОтправки);     //ФайлыДляОтправки - строка, в которой пути к файлам разделены символом |  //ПОЛУЧИТЬ:     ПочтаSSL.ПроверитьПочту(); //возвращает число писем    ПочтаSSL.ПолучитьСообщение(НомерСообщения); //булево    ПочтаSSL.ПолучитьВложение(НомерСообщения, НомерВложения, КаталогКудаСохранять); //булево  //УДАЛИТЬ:     ПочтаSSL.УдалитьСообщение(НомерСообщения);
[/code]

Добавить комментарий