vba outlook embed image url

2017-04-24 54 views 0 likes

我正在尝试将托管图片插入到我的邮件正文中。以下是我迄今所做的：vba outlook embed image url

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>

要我我的电子邮件正文。

我怎样才能得到它嵌入？

来源

2017-04-24 danyo

mailItem.Body是你需要使用mailItem.HTMLBody – Sorceri

回答

根据我的评论，您正在使用纯文本的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

来源

2017-04-24 15:07:10 Sorceri

感谢@Sorceri纯文本。这似乎覆盖了自动应用于新电子邮件的签名？ – danyo

在这里看到如何保持签名：http://stackoverflow.com/questions/8994116/how-to-add-default-signature-in-outlook – Sorceri

vba outlook embed image url

回答

相关问题