Comment extraire l'adresse 'for'/'to' de l'en-tête dans Outlook 2007+ en utilisant VBA Script

Question

J'utilise le script BlueDevilFan VBA pour afficher les en-têtes Internet d'un e-mail dans Outlook 2013. J'ai essayé de modifier la VBA de sorte qu'il ne sort que le « à » ou « pour » adresse et rejette tout autre texte,

est Ci-dessous le script VBA:

Sub ViewInternetHeader() 
    Dim olItem As Outlook.MailItem, olMsg As Outlook.MailItem 
    Dim strheader As String 

    For Each olItem In Application.ActiveExplorer.Selection 
     strheader = GetInetHeaders(olItem) 

     Set olMsg = Application.CreateItem(olMailItem) 
     With olMsg 
      .BodyFormat = olFormatPlain 
      .Body = strheader 
      .Display 
     End With 
    Next 
    Set olMsg = Nothing 
End Sub 

Function GetInetHeaders(olkMsg As Outlook.MailItem) As String 
    ' Purpose: Returns the internet headers of a message.' 
    ' Written: 4/28/2009' 
    ' Author: BlueDevilFan' 
    ' http://techniclee.wordpress.com/ 
    ' Outlook: 2007' 
    Const PR_TRANSPORT_MESSAGE_HEADERS = "http://schemas.microsoft.com/mapi/proptag/0x007D001E" 
    Dim olkPA As Outlook.PropertyAccessor 
    Set olkPA = olkMsg.PropertyAccessor 
    GetInetHeaders = olkPA.GetProperty(PR_TRANSPORT_MESSAGE_HEADERS) 
    Set olkPA = Nothing 
End Function 

J'ai essayé quelque chose comme je voudrais utiliser dans le mot à trouver et supprimer un certain contenu, mais ne peut pas le faire fonctionner dans Outlook!

Sub CleanUp() 
With Selection 
.HomeKey Unit:=wdStory 
With .Find 
.ClearFormatting 
.Replacement.ClearFormatting 
.Text = "(\To: """)" 
.Replacement.Text = "" 
.Forward = True 
.Wrap = wdFindContinue 
.Format = False 
.MatchCase = False 
.MatchWholeWord = False 
.MatchAllWordForms = False 
.MatchSoundsLike = False 
.MatchWildcards = True 
.Execute Replace:=wdReplaceAll 
.Text = "(\To: """)" 
.Execute Replace:=wdReplaceAll 
End With 
End With 
End Sub 

Answer 1

vous pouvez juste clairement le texte du corps, puis ajouter le vers et à partir-à-dire l'expéditeur

Sub ViewInternetHeader() 
    Dim olItem As Outlook.MailItem, olMsg As Outlook.MailItem 


    For Each olItem In Application.ActiveExplorer.Selection 


     Set olMsg = Application.CreateItem(olMailItem) 
     olMsg.BodyFormat = olFormatPlain 
     olMsg.Body = "" 
     olMsg.Body = olItem.To & Chr(13) & olItem.Sender 
     olMsg.Display 
    Next 
    Set olMsg = Nothing 
End Sub 

Answer 2

Pourquoi avez-vous besoin d'extraire les adresses des en-têtes? semblent juste boucle à travers tous les destinataires de la collection MailItem.Recipients et si Recipient.Type = olTo, lisez la propriété Recipient.Address/