html - 使用 VB6 中的 MAPI 控件发送带有 HTML 内容的消息

Question

如何使用带有 HTML 正文的 MAPI 发送邮件？我需要在消息正文中创建表格。我正在使用 vb6 和 MAPI 控件。有什么想法吗？

Function MailSend(sSendTo As String, sSubject As String, sText As String) As Boolean
    On Error GoTo ErrHandler

    With MAPISession1
        If .SessionID = 0 Then
            .DownLoadMail = False
            .LogonUI = True
            .SignOn
            .NewSession = True
            MAPIMessages1.SessionID = .SessionID
        End If
    End With
    With MAPIMessages1
        .Compose
        .RecipAddress = sSendTo
        .AddressResolveUI = True
        .ResolveName
        .MsgSubject = sSubject
        .MsgNoteText = sText
        .Send False
    End With
    MailSend = True
    Exit Function
ErrHandler:
    'MsgBox Err.Description
    MailSend = False
End Function

Answer 1

MAPI 控件使用不处理 HTML 的简单 MAPI。直接使用简单 MAPI (MAPISendMail) 时有一个技巧 - 将正文设置为 NULL 并附加 HTML 文件:它将用作邮件正文。我不知道这个技巧是否适用于 MAPI 控件。

为什么不改用 Outlook 对象模型？它完全能够处理 HTML:

set App = CreateObject("Outlook.Application")
set NS = App.GetNmaespace("MAPI")
NS.Logon
set Msg = App.CreateItem(0)
Msg.To = sSendTo
Msg.Subject = sSubject
Msg.HTMLBody = sYourHTMLBody
Msg.Send 'or Msg.Display