急！！！如何把html作为正文发邮件？？？

如何把html作为正文发邮件？？？
我用vb6的Mapi可以发文本邮件，但是不知道怎么发html邮件，请各位多指教！    MAPISession1.LogonUI = True
    MAPISession1.DownLoadMail = False
    MAPISession1.NewSession = True
    
    MAPISession1.SignOn
    MAPIMessages1.SessionID = MAPISession1.SessionID
    
    If txtBody.Text = "" Then txtBody.Text = " "
    
        MAPIMessages1.Compose
        MAPIMessages1.RecipAddress = Rs(1)
        MAPIMessages1.ResolveName
        MAPIMessages1.RecipDisplayName = Rs(0)
        MAPIMessages1.MsgSubject = txtSubject.Text
        MAPIMessages1.MsgNoteText = txtBody.Text
        
        If txtAttach.Text <> "" Then
            MAPIMessages1.AttachmentIndex = 0
            MAPIMessages1.AttachmentPathName = txtAttach.Text
        End If
        'MsgBox MAPIMessages1.MsgCount
        MAPIMessages1.Send