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

Процедура Отправить()

Флаг=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,";","")+Каталог+Имя;

КонецЕсли;

КонецПроцедуры