Изменен: 02.01.2019 19:48:30
Библиотека для отправки электронных сообщений
Библиотека для отправки электронных сообщений.
Библиотека на OneScript для отправки сообщений через элктронную почту.
Установка через пакетный менеджер opm командой:
opm install tmail
Для отправки почты используется стандартные компоненты - COM-Объекты CDO.Configuration и CDO.Message:
Попытка
loConfig = Новый COMОбъект("CDO.Configuration");
loCdoMessage = Новый COMОбъект("CDO.Message");
Исключение
ТекстОшибки = ОписаниеОшибки();
Возврат Ложь;
КонецПопытки;
Соответственно, приложение работает только в ОС семейства Windows.
Библиотека подключается как отдельный класс. Экземпляр класса используется для отправки сообщений с указанного профиля.
Подключение библиотеки:
#Использовать TMail
Создание класса:
УправлениеЭП = Новый ТУправлениеЭлектроннойПочтой();
Параметры класса:
Экспортные процедуры класса:
<p>
#Использовать TMail
// Создадим объект
УправлениеЭП = Новый ТУправлениеЭлектроннойПочтой();
// Введем параметры ЭП
УчетнаяЗаписьЭП = УправлениеЭП.УчетнаяЗаписьЭП;
УчетнаяЗаписьЭП.АдресSMTP = "smtp.mydomen.com";
УчетнаяЗаписьЭП.ПортSMTP = 465;
УчетнаяЗаписьЭП.ПользовательSMTP = "report@mydomen.com";
УчетнаяЗаписьЭП.ПарольSMTP = "pass_mail";
УчетнаяЗаписьЭП.ИспользоватьSSL = Истина;
// Структура сообщения
СтруктураСообщения = УправлениеЭП.СтруктураСообщения;
СтруктураСообщения.АдресЭлектроннойПочтыПолучателя = "admin@mydomen.com;";
// Флаг наличия ошибок
БылиОшибки = Ложь;
// Создадим необходимые файлы
Если РабочийКаталог = "" Тогда
РабочийКаталог = ".\";
КонецЕсли;
РабочийКаталог = ОбъединитьПути(РабочийКаталог,"Test_TMail");
// Создадим файл для вложения
СоздатьКаталог(РабочийКаталог);
ИмяФайлаДляВложения = ОбъединитьПути(РабочийКаталог,"TestFile.txt");
ЗаписьТекста = Новый ЗаписьТекста;
ЗаписьТекста.Открыть(ИмяФайлаДляВложения,,,Истина);
ЗаписьТекста.ЗаписатьСтроку("Это текст файла вложения");
ЗаписьТекста.Закрыть();
// Заполним структуру сообщения
СтруктураСообщения = УправлениеЭП.СтруктураСообщения;
СтруктураСообщения.Вложения = ИмяФайлаДляВложения;
СтруктураСообщения.АдресЭлектроннойПочтыОтправителя = УправлениеЭП.УчетнаяЗаписьЭП.ПользовательSMTP;
СтруктураСообщения.ТемаСообщения = "Проверка работы библиотеки TMail";
СтруктураСообщения.ТипТекстаПочтовогоСообщения = "HTML";
УправлениеЭП.НачатьТекстСообщенияHTML();
УправлениеЭП.ДобавитьВТекстСообщенияHTML();
УправлениеЭП.ДобавитьВТекстСообщенияHTML("Проверка работы библиотеки TMail");
УправлениеЭП.ДобавитьВТекстСообщенияHTML();
УправлениеЭП.ЗавершитьТекстСообщенияHTML();
// Отправим сообщение
Если УправлениеЭП.ОтправитьСообщение() Тогда
Сообщить("ОтправитьСообщение: УСПЕШНО");
Иначе
Сообщить("ОтправитьСообщение: " + УправлениеЭП.ТекстОшибки);
БылиОшибки = Истина;
КонецЕсли;
УдалитьФайлы(ИмяФайлаДляВложения);
УдалитьФайлы(РабочийКаталог);
Результат: