1. 首頁
  2. 問答
  3. vba outlook embed image url

vba outlook embed image url

2017-04-24 51 views
0

我正在嘗試將託管圖片插入到我的郵件正文中。以下是我迄今所做的：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

+1

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

回答

2

根據我的評論，您正在使用純文本的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

+0

感謝@Sorceri純文本。這似乎覆蓋了自動應用於新電子郵件的簽名？ – danyo

+1

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

相關問題

 相關問題