Отправка писем и получение электронной почты с использованием 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
или использовать совместно с хранилищем внешних компонент


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

Перем ПочтаSSL;

//ПОДКЛЮЧЕНИЕ КОМПОНЕНТЫ В 1С 7.7:

  ИмяВК="AddIn.MailSSL";
 
  Попытка
    ПодключитьВнешнююКомпоненту(ИмяВК);
  Исключение
    Сообщить("Не удалось подключить компоненту "+ИмяВК);
  КонецПопытки;

  Попытка
    ПочтаSSL = СоздатьОбъект(ИмяВК);
  Исключение
    Сообщить("Ошибка создания объекта внешней компоненты: "+ ИмяВК);
  КонецПопытки;

//ПОДКЛЮЧЕНИЕ КОМПОНЕНТЫ В 1С 8.x:
 
  ИмяВК="AddIn.MailSSL";
  
  Попытка
    ПодключитьВнешнююКомпоненту(ИмяВК);
  Исключение
    Предупреждение("Не удалось подключить компоненту " + ИмяВК);
  КонецПопытки;
  
  Попытка
    ПочтаSSL = Новый(ИмяВК);
  Исключение
    Предупреждение("Ошибка создания объекта внешней компоненты: " + ИмяВК);
  КонецПопытки;

//*** Свойства:

//SMTP:

  ПочтаSSL.SmtpСервер = "smtp.gmail.com";
  ПочтаSSL.SmtpПорт = "465";
  ПочтаSSL.SmtpПользователь = "Этот адрес электронной почты защищен от спам-ботов. У вас должен быть включен JavaScript для просмотра.
 ";
  ПочтаSSL.SmtpПароль = "mysuperpassword";

//POP3:

  ПочтаSSL.Pop3Сервер = "pop.gmail.com";
  ПочтаSSL.Pop3Порт = "995";
  ПочтаSSL.Pop3Пользователь = "Этот адрес электронной почты защищен от спам-ботов. У вас должен быть включен JavaScript для просмотра.
 ";
  ПочтаSSL.Pop3Пароль = "mysuperpassword";


//*** Методы:


//ОТПРАВИТЬ:

   ПочтаSSL.Отправить(ОтКого, Кому, CC, BCC, ТемаСообщения, ТекстСообщения, ФайлыДляОтправки); 
   //ФайлыДляОтправки - строка, в которой пути к файлам разделены символом |

//ПОЛУЧИТЬ:

   ПочтаSSL.ПроверитьПочту(); //возвращает число писем
   ПочтаSSL.ПолучитьСообщение(НомерСообщения); //булево
   ПочтаSSL.ПолучитьВложение(НомерСообщения, НомерВложения, КаталогКудаСохранять); //булево

//УДАЛИТЬ:

   ПочтаSSL.УдалитьСообщение(НомерСообщения);