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

Формулировка задачи:

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

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

textual
                            Листинг программы 
                        

                            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 = "<b> <img src="" cid:11.jpg""=""> картинка</b><br>"  
            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  

                        