html - 将 HTML 表格添加到 Outlook 正文

Question

我正在尝试使用Outlook发送邮件，我需要HTML table在我的Outlook body.

这就是我所做的，但它试图添加HTMLtags但不是design.

Dim body As String
objOutlook = CType(CreateObject("Outlook.Application"), Outlook.Application)
objEmail = objOutlook.CreateItem(Outlook.OlItemType.olMailItem)
Dim strb As New StringBuilder
strb.Append("<table width='600px' align='center' border='0' cellpadding='0' cellspacing='0' style='border-top:5px solid white;'")
strb.Append("<tr><td>S.No</td><td>AccountID</td><td>ChargeEntryControl</td><td>PaymentPostingControl</td></tr></table>")
body = "Hi,
body += strb.ToString

Answer 1

这是我使用的完整代码，它显示了我相信你想要的电子邮件。

    Dim body As String
    Dim objOutlook As Object
    Dim objEmail As Object
    objOutlook = CType(CreateObject("Outlook.Application"), Outlook.Application)
    objEmail = objOutlook.CreateItem(Outlook.OlItemType.olMailItem)
    Dim strb As New StringBuilder
    strb.Append("<table width='600px' align='center' border='0' cellpadding='0' cellspacing='0' style='border-top:5px solid white;'")
    strb.Append("<tr><td>S.No</td><td>AccountID</td><td>ChargeEntryControl</td><td>PaymentPostingControl</td></tr></table>")
    body = "Hi,"
    body += strb.ToString
    objEmail.htmlbody = body
    objEmail.display()