HelpF.pro

Отправка почты с помощью внешней компоненты ROM-Mail

+ Последняя версия ROM-Mail.dll (1.4.1) + ALS-описание + ini-файл Скачивать файлы может только зарегистрированный пользователь!
+ Примеры Использования (получение и отправка почты раз) Скачивать файлы может только зарегистрированный пользователь!
Код 1C v 7.x
 
Процедура Отправить()
Флаг=0;
Попытка
Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
Сообщить("Не удалось загрузить ROM-Mail.dll");
Возврат;
КонецЕсли;
Исключение
Возврат;
КонецПопытки;

ВК=СоздатьОбъект("AddIn.AddInMail");
ВК.СерверОтправки=СокрЛП(СерверОтправки);
ВК.ПортОтправки=СокрЛП(ПортОтправки);
ВК.Логин=СокрЛП(Логин);
ВК.Пароль=СокрЛП(Пароль);
ВК.АутентификацияПриОтправке=флАутентификацияПриОтправке;
Если ВК.Подключиться("Отправка")=0 Тогда
Предупреждение("Не удалось подключиться к серверу!");
Возврат;
КонецЕсли;
ВК.АдресОтправителя=СокрЛП(АдресОтправителя);
ВК.ИмяОтправителя=СокрЛП(ИмяОтправителя);
ВК.АдресПолучателя=СокрЛП(АдресПолучателя);
ВК.Тема=СокрЛП(Тема);
ВК.Тело="";
ВК.Вложения=СокрЛП(Вложения);
ВК.Кодировка="windows-1251";
ВК.ТипПисьма=2;
ВК.Тело=СокрЛП(Тело);

Если ВК.Отправить()=1 Тогда
Предупреждение("Сообщение отправлено!");
Иначе
Предупреждение("Не удалось отправить сообщение!");
КонецЕсли;
ВК.Отключиться();
КонецПроцедуры

Процедура ПриОткрытии()

//
// Чтобы картинка отображалась в теле письма - цепляем ее как вложение.
// Ссылка на картинку в исходном коде html-файла не должна содержать пути.
// Т.е. <img src=""xRom.gif"" height=""40"" width=""40"" alt=""xRom.gif"" border=""0"">

СерверОтправки = "192.168.1.11";
ПортОтправки = "25";
ИмяОтправителя="Пупкин Василий";
АдресОтправителя="pupkin@kiev.ua";
АдресПолучателя="Вася Пупкин <pupkin@kiev.ua>; Василиса Пупкина<pupkina@kiev.ua>";
Тема="ВК. Пример отправки почты ROM-Mail";
Тело="текст сообщения";

ПутьЕРТ="";ИмяЕРТ="";
РасположениеФайла(ПутьЕРТ,ИмяЕРТ);
Вложения=ПутьЕРТ+"xRom.gif";
флАутентификацияПриОтправке=1;
КонецПроцедуры

Процедура ВыбратьВложения()
Имя=""; Каталог="";
Если ФС.ВыбратьФайл(0,Имя,Каталог,"Выбор файла вложения","Все(*.*)|*.*")=1 Тогда
Вложения=СокрЛП(Вложения)+?(ПустоеЗначение(Вложения)=0,";","")+Каталог+Имя;
КонецЕсли;
КонецПроцедуры

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq7/view/1464.html