helpf.pro
Регистрация
 0 
Распечатать

1С 8.x : Отправка почты с помощью внешней компоненты 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,";","")+Каталог+Имя;
КонецЕсли;
КонецПроцедуры
Разместил:   Версии: | 7.x | 8.x |  Дата:   Прочитано: 9344
 0 
Распечатать
Возможно, вас также заинтересует
Google maps : вывод точек на карту и режим панорамы 2
В отличие от яндекс карт в GMaps можно использовать панорамы - за что им большой плюс! Надеюсь в яндексе прочитают этот пост и тоже когда-нибудь это сделают! Для клиента нужно было сделать вывод объектов на карту С...
ZIP-архив Создание 0
Для того чтобы записать файлы в ZIP-архив необходимо выполнить несколько простых действий: * Создать архив с необходимыми параметрами, в который будут помещаться файлы. * Поместить в архив необходимые файлы. * Записать...
ZIP-архив Чтение 0
Для того чтобы прочитать файлы из ZIP-архива необходимо выполнить несколько простых действий: - Открыть необходимый архив - Распаковать файлы Создание объекта ЧтениеZIPФайла можно осуществить двумя путями - создать...
Автоматизация обмена данных используя обработку "Универсальный обмен данными в формате XML" 3
Автоматизация обмена между базами используя обработку " Универсальный обмен данными в формате XML" В основу данной публикации положены найденные мною материалы по cозданию обмена между двумя базами с использованием ...
Автоматическая выгрузка загрузка данных используя регламентное задание 1
Для обмена данными между программами необходимо сделать следующее: 1. При помощи Конвертации Данных создать правила выгрузки данных 2. Нужно чтобы в конфигурации была обработка УниверсальныйОбменДаннымиXML ,...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.