Здравствуйте. Возникла задача отправлять письма в 1С через Outlook (Про стандартные прошу не говорить, очень много "против"), проблема возникает в том что при отправке из 1С не подцепляет подпись Outlook-а в данном случае подпись является !Картинкой!, формат тела письма html, письмо то он отправляет, но подпись не показывает (Просто крестик в рамочке и название файла картинки shapka.jpg), у получателя же и вовсе не отображает подпись, вот код:
Процедура ОтсылкаЭлектронногоПисьма()
Попытка
Outlook = Новый COMОбъект("Outlook.Application");
ЕстьОшибка = 0;
Исключение
Сообщить("Не удалось создать письмо");
ЕстьОшибка = 1;
КонецПопытки;
Если ЕстьОшибка = 0 Тогда
Письмо = Outlook.CreateItem(0);
Письмо.Subject = "Тема письма";
//Письмо.HTMLBody = "|Как дела<BR><img src=" + "C:\Users\Programmer\Desktop\shapka.jpg" + ">" ;
//Письмо.HTMLBody = "<img width=1092 height=223 id='image001_x0020_1' src='cid:
[email protected]' alt=shapka.jpg>";
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать("C:\Users\Programmer\AppData\Roaming\Microsoft\Signatures\MyItemFor1C.html","KOI8-R");
Н = 0;
ПисьмоПодпись = "";
Письмо.HTMLBody = "";
Для Н = 1 По Текст.КоличествоСтрок() Цикл
СТР = СокрЛП(Текст.ПолучитьСтроку(Н));
ПисьмоПодпись = ПисьмоПодпись + Символы.ПС + СТР;
КонецЦикла;
Письмо.HTMLBody = ПисьмоПодпись;
Письмо.Recipients.Add("
[email protected]");
Письмо.Attachments.Add("C:\Users\Programmer\Desktop\Новый текстовый документ.txt");
Письмо.Send();
Иначе
Тема = "Тема письма";
//ТекстПисьма = "Текст письма";
СтрокаЗапуска = "mailto:" + "
[email protected]" + "?subject=" + Тема + "&body="; // + ТекстПисьма;
ЗапуститьПриложение(СтрокаЗапуска);
КонецЕсли;
КонецПроцедуры