X
xmailer
Среда разработки: Delphi 6 (использование mapi)
Почтовый клиент: Outlook Express
1С версия: 7.7
Использование: контролируемая пользователем отправление письма, вывод почтовым клиентом заготовку нового письма, с вложением и первично указанным адресом, темой, телом сообщения. Типа операции в проводнике при отправке адресату нескольких файлов.
Цель публикации на форуме: отладка компонента, ну и Мурманск for ever.
Исходники компонента: по запросу по электронке
Пример использования:
Почтовый клиент: Outlook Express
1С версия: 7.7
Использование: контролируемая пользователем отправление письма, вывод почтовым клиентом заготовку нового письма, с вложением и первично указанным адресом, темой, телом сообщения. Типа операции в проводнике при отправке адресату нескольких файлов.
Цель публикации на форуме: отладка компонента, ну и Мурманск for ever.
Исходники компонента: по запросу по электронке
Пример использования:
Код:
// Запись текстового файла
ИмяФайла = КаталогВременныхФайлов()+"Тест.txt";
тмпТекст = СоздатьОбъект("Текст");
тмпТекст.ДобавитьСтроку("Привет из Мурманска");
тмпТекст.Записать(ИмяФайла);
outlook_dll = LoadAddin("mapi_outlook.dll");
Если outlook_dll = 1 Тогда
outlook = CreateObject("AddIn.Outlook");
Иначе
Сообщить("Компонента Outlook не загружена, файл mapi_outlook.dll не найден","!");
Возврат;
КонецЕсли;
АдресПолучателя = СокрЛП(Док.Контрагент.ЭлПочта);
Если ПустоеЗначение(АдресПолучателя) = 1 Тогда
АдресПолучателя = "Укажите адресата";
КонецЕсли;
ТемаПисьма = "Тестим mapi_outlook.dll";
ТелоПисьма = "Тестим mapi_outlook.dll";
// atatch файлов
outlook.Attach(ИмяФайла);
// вывод диалога
outlook.Send(АдресПолучателя, ТемаПисьма, ТелоПисьма);