Как вставить картинку в ТЕКСТ письма? - VB

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

'Set oMessage = CreateObject("CDO.Message")
'oMessage.To =MyTO
'oMessage.From = MyFROM
'oMessage.Subject = MySubject
'oMessage.HTMLBody =
'oMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'oMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtpserver"
'oMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
'oMessage.Configuration.Fields.Update
'oMessage.Send
Помогите кто знает.. в MSDN по CDO.Message не нашел ничего.. Знаю что можно в HTML можно как то.

Решение задачи: «Как вставить картинку в ТЕКСТ письма?»

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

                            <font color="blue">Set</font> oMessage = CreateObject(<font color="teal">"CDO.Message"</font>)
oMessage.<font color="blue">To</font> = MyTO
oMessage.From = MyFROM
oMessage.Subject = MySubject 
oMessage.BodyPart.Charset = <font color="teal">"windows-1251"</font>
oMessage.AddRelatedBodyPart <font color="teal">"C:\MyPicture.jpg"</font>, <font color="teal">"pic"</font>, <font color="darkblue"><b>1</b></font>
oMessage.HTMLBody = <font color="teal">"MyText<br><img src="</font><font color=" teal"="">"pic"</font><font color="teal">">"</font>
oMessage.Configuration.Fields.Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/sendusing"</font>)=<font color="darkblue"><b>2</b></font>
oMessage.Configuration.Fields.Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/smtpserver"</font>)=<font color="teal">"smtpserver"</font>
oMessage.Configuration.Fields.Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/smtpserverport"</font>)=<font color="darkblue"><b>25</b></font> 
oMessage.Configuration.Fields.Item(<font color="teal">"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"</font>) = <font color="darkblue"><b>60</b></font>
oMessage.Configuration.Fields.Update
oMessage.Send

                        