Как отправить емейл-сообщение через CDO формата HTML с картинкой / Visual Basic

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как отправить емейл-сообщение через CDO формата HTML с картинкой

7 сообщений из 7, страница 1 из 1

Как отправить емейл-сообщение через CDO формата HTML с картинкой

#39298220

Integrator2

Гость

Подскажите, пожалуйста.
В MS Outlook сообщение приходит с картинкой, но если смотреть в браузере на Яндексе или mail.ru то картинка видна только как вложение, в самом сообщении ее нет.
Напишите простейший правильный код, пжл, кто-нибудь.
Заранее спасибо.

...

Рейтинг:

0 / 0

25.08.2016, 20:44

| Ответить | Цитировать | Написать

Как отправить емейл-сообщение через CDO формата HTML с картинкой

#39298232

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Integrator2,

Вы бы хоть кусочек кода показали. Ну, тогда сами как-нибудь разбирайтесь с моим кусочком:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

sBody = "<HTML><HEAD><BODY><b> <img src=""pic""> картинка</b></br></BODY></HTML>"
    With oCDOMsg
        Set .Configuration = oCDOCnf
        .From = sFrom
        .BodyPart.Charset = "windows-1251"
        .To = sTo
        .Subject = sSubject
        If Len(sAttachment) > 0 Then .AddAttachment sAttachment
        .AddRelatedBodyPart "C:\image.jpg", "pic", 1
        .HTMLBody = sBody
        .Send
    End With

...

Рейтинг:

0 / 0

25.08.2016, 21:10

| Ответить | Цитировать | Написать

Как отправить емейл-сообщение через CDO формата HTML с картинкой

#39298541

Integrator2

Гость

Спасибо. А что такое AddRelatedBodyPart?

...

Рейтинг:

0 / 0

26.08.2016, 12:45

| Ответить | Цитировать | Написать

Как отправить емейл-сообщение через CDO формата HTML с картинкой

#39298546

Integrator2

Гость

Супер! По-моему, как раз то, что надо.

...

Рейтинг:

0 / 0

26.08.2016, 12:52

| Ответить | Цитировать | Написать

Как отправить емейл-сообщение через CDO формата HTML с картинкой

#39298596

Integrator2

Гость

Не помогает AddRelatedBodyPart
Есть такая проблема - картинка приходит как вложение, но в самой странице ее нет.
При этом наблюдается это в почте на сервере Яндекса.
А если проверить почту Microsoft Outlook 2010, то все корректно в письме.
В может быть проблема?

...

Рейтинг:

0 / 0

26.08.2016, 13:59

| Ответить | Цитировать | Написать

Как отправить емейл-сообщение через CDO формата HTML с картинкой

#39298609

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Integrator2В может быть проблема?я Ваш код полностью до сих пор не вижу. Сидеть и гадать постоянно желания нет. Попробуйте убрать строку:

Код: vbnet

If Len(sAttachment) > 0 Then .AddAttachment sAttachment

...

Рейтинг:

0 / 0

26.08.2016, 14:19

| Ответить | Цитировать | Написать

Как отправить емейл-сообщение через CDO формата HTML с картинкой

#39298857

Integrator2

Гость

Спасибо за помощь. Помог вот этот код

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.

    Set oCDOCnf = CreateObject("CDO.Configuration")  
            With oCDOCnf.Fields  
                .Item(CDO_Cnf & "sendusing") = 2  
                .Item(CDO_Cnf & "smtpauthenticate") = 1  
                .Item(CDO_Cnf & "smtpserver") = SMTPserver  
                .Item(CDO_Cnf & "sendusername") = sUsername  
                .Item(CDO_Cnf & "smtpserverport") = 465 'для Яндекса и Gmail 465  
                .Item(CDO_Cnf & "smtpusessl") = True  
                .Item(CDO_Cnf & "sendpassword") = sPass  
                .Update  
            End With  
            'Создаем сообщение  
            Set oCDOMsg = CreateObject("CDO.Message")  
            sBody = "<HTML><HEAD><BODY><b> <img src=""cid:11.jpg""> картинка</b></br></BODY></HTML>"  
            With oCDOMsg  
                Set .Configuration = oCDOCnf  
                .From = sFrom  
                .BodyPart.Charset = "windows-1251"  
                .To = sTo  
                .Subject = sSubject  
                Set objbp = oCDOMsg.AddRelatedBodyPart("G:\Документы\Изображения\Приколы\11.jpg", "11.jpg", 1)  
                objbp.Fields.Item("urn:schemas:mailheader:Content-ID") = "<11.jpg>"  
                objbp.Fields.Update  
                .HTMLBody = sBody  
                .Send  
            End With

...

Рейтинг:

0 / 0

26.08.2016, 21:49

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=20&tid=2155450]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	4ms
check topic access:	4ms
track hit:	32ms
get topic data:	11ms
get forum data:	2ms
get page messages:	44ms
get tp. blocked users:	2ms
others:	302ms

total:	423ms