vba 展望嵌入图像 url

Question

我正在尝试将托管图像插入邮件正文。这是我到目前为止所做的：

Private Sub inspectors_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector
    Dim mailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, Outlook.MailItem)
    If Not (mailItem Is Nothing) Then
        If mailItem.EntryID Is Nothing Then
            mailItem.Subject = "Test"
            mailItem.Body = mailItem.Body + "<html><img src='http://example.com/pixel.php?to=" + mailItem.To + "></html>"
        End If
    End If
End Sub

上面的插入实际上并没有嵌入图像，它只是添加了一行：

<html><img src='http://example.com/pixel.php?to=" + mailItem.To + "></html>

到我的电子邮件正文。

我怎样才能嵌入它？

Answer 1

根据我的评论，您使用的是用于纯文本的 MailItem.Body。切换到 HTMLBody

Private Sub inspectors_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector
    Dim mailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, Outlook.MailItem)
    If Not (mailItem Is Nothing) Then
        If mailItem.EntryID Is Nothing Then
            mailItem.Subject = "Test"
            mailItem.HTMLBody = mailItem.HTMLBody + "<html><img src='http://example.com/pixel.php?to=" + mailItem.To + "></html>"
        End If
    End If
End Sub

vba 展望嵌入图像 url

vba outlook embed image url

outlook

vba

add-in