Имя: Пароль:
1C
1С v8
Не удается отправить логотип в теле письма.
0 unknown181538
 
24.05.15
07:45
iMsg = Новый COMОбъект("CDO.Message");
        
        iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2;    

        iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = Константы.СерверОтправки.Получить();

        iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = Константы.ПортSMTP.Получить();    

        iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1;//2; // 0 - Do not authenticate; 1 - basic (clear-text) authentication; 2 - NTLM

        iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = Константы.ВремяОжидания.Получить();    

        iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername").Value = Константы.ПользовательSMTP.Получить();        

        iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = Константы.ПарольSMTP.Получить();

        iMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value = 0;
        
        
        Попытка
            iMsg.Configuration.Fields.Update();
        Исключение
            Сообщить(ОписаниеОшибки());
            Возврат;
        КонецПопытки;
        
       // iMsg.DSNOptions = 2;
        
        iMsg.To = АдресПолучателя;
        iMsg.From = "****<"+Константы.АдресОтправки.Получить()+">";
        iMsg.Subject = Тема;
        iMsg.MimeFormatted = True;
        
        iMsg.HTMLBody = "<p>&nbsp;</p>
    |<p align=""center""><img alt="""" height=""80"" src=""1.jpg"" style="" float: right;"" width=""160""></p>
    |<p align=""center""><b>ЗДРАВСТВУЙТЕ !</b></p>
    |<p>"+ТекстПисма+"</p>
    |<p><b>С УВАЖЕНИЕМ, *** - </b><b>**</b><b>5.</b><b>RU</b></p>
    |<p><b>ТЕЛ.: +7 (</b><b>***</b><b>) </b><b>*****</b></p>";
    filename = "1.jpg";
    ИмяВрФайла = ПолучитьИмяВременногоФайла()+".jpg";
    БиблиотекаКартинок.ЛоготипDAX.Записать(ИмяВрФайла);
        cdoRefTypeId = 1;        
        objBP = iMsg.AddRelatedBodyPart(ИмяВрФайла, filename, cdoRefTypeId);
        objBP.Fields.Item("urn:schemas:mailheader:Content-ID").Value = "1.jpg";
        objBP.Fields.Update();
        iMsg.HTMLBodyPart.Charset = "windows-1251";//++

        Для Каждого Тек Из Файлы Цикл
        iMsg.addAttachment(Тек.ПолноеИмя);
        КонецЦикла;

        
        Попытка
            iMsg.Send();
            Предупреждение("Письмо отправлено!");
            Закрыть();

Пустое поле для картинки в теле появляется, а сама картинка приходит только вложенным файлом. Если отправлять используя вместо вложения внешнюю ссылку, то отображается нормально.
1 фобка
 
24.05.15
08:38
.Value = "1.jpg";
Здесь наверное полный путь?
2 unknown181538
 
24.05.15
09:52
(1)objBP = iMsg.AddRelatedBodyPart(ИмяВрФайла, filename, cdoRefTypeId); - он вот здесь заменяется.
Использовал это: http://forum.infostart.ru/forum26/topic126646/
И еще тему на sql.ru
3 unknown181538
 
24.05.15
18:45
ввеерх
4 unknown181538
 
28.05.15
14:32
Может быть все же кто-то может мне помочь?