2017-04-24 1 views
0

내 메시지 본문에 호스팅 된 이미지를 삽입하려고합니다. 여기에 지금까지 무엇을했는지 있습니다 : 내 내 이메일 몸에vba outlook 이미지 URL 포함

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

:

위의 삽입은 이미지를 포함 실제로 나던
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 

, 그냥 라인을 추가합니다.

어떻게 삽입 할 수 있습니까?

+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 
+0

감사 @Sorceri를 사용할 필요가 일반 텍스트입니다. 이것은 새 이메일에 자동으로 적용되는 서명을 덮어 쓰는 것 같습니다. – danyo

+1

서명 유지 방법은 다음을 참조하십시오. http://stackoverflow.com/questions/8994116/how-to-add-default-signature-in-outlook – Sorceri