Отправка почты с помощью внешней компоненты 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,";","")+Каталог+Имя;
	КонецЕсли;
КонецПроцедуры