vba outlook埋め込み画像のURL

メッセージの本文にホストされた画像を挿入しようとしています。ここで私はこれまでやっていることです：私の私の電子メールの本文にvba outlook埋め込み画像のURL

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

：

上記インサートは画像を埋め込む実際にdoesntの

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

は、それだけの行を追加します。

どのように埋め込むことができますか？

出典

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埋め込み画像のURL

答えて

関連する問題