Excel / vba后綁定HTML電子郵件

Question

我有一些用VBA編寫的旨在在excel中運行的代碼，應該可以發送html電子郵件。 最初，此方法運行良好，但我嘗試對我的代碼進行后期綁定，但仍會發送一封電子郵件，但是HTML以純文本形式顯示給收件人。 我的代碼是：

Dim oAPP As Object
Dim oItem As Object
Const olMailItem As Long = 0
Set oAPP = CreateObject("Outlook.Application")
Set oItem = oAPP.CreateItem(olMailItem)
With oItem
    .To = Worksheets("Emails").Cells(1, 2).Value
    .Subject = "Product set-up request"
    .BodyFormat = 2
    .Body = emailbody
    .send
End With

Answer 1

將.Body = emailbody更改為.HTMLBody = emailbody