Помогите плиз.
Как отправить письмо в виде html сгенерированое в Vb ???

Я наверное неправильно поставил вопрос? как отправить письмо из VB знаю, как подвязать атачмент тоже , но как отправить письмо в виде НТМL из VB не знаю , пробовал затолкнуть в body страницу Html, приходит текстуха. :-(

Большое спасибо за подсказку, слепил таким образом , получилось. Правда не знаю как привязать к этому графику. :-)
-----------------------------------------------------------------

Private Sub Command1_Click()

Dim Outlook As Outlook.Application
Dim Mail As MailItem, DestFolder As MAPIFolder
Dim Text1 As String

Text1 = OpenFile1("C:", "1.htm")

Set Outlook = New Outlook.Application

Set DestFolder = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts)


Set Mail = CreateItem(olMailItem)
With Mail
.To = "reports@gala.net"
.Subject = "Mail HTML"
.HTMLBody = Text1
.Send

End With

Set Outlook = Nothing

End Sub
---------------------------------------------------------------

Function OpenFile1(Path1 As String, fileName1 As String) As String

Dim Pt1 As String
Dim Stmp1 As String, Stmp As String

If Path1 = "" Then
Pt1 = App.Path
Else
Pt1 = Path1
End If

Pt1 = Pt1 + "\" + fileName1

Open Pt1 For Input As #1
While Not EOF(1)
Line Input #1, Stmp
Stmp1 = Stmp1 + Stmp
Wend
Close #1
OpenFile1 = Stmp1

End Function