How do you extract email addresses from the ‘To’ field in outlook?

by

Check out the Recipients collection object for your mail item, which should allow you to get the address: http://msdn.microsoft.com/en-us/library/office/ff868695.aspx

Update 8/10/2017

Looking back on this answer, I realized I did a bad thing by only linking somewhere and not providing a bit more info.

Here’s a code snippet from that MSDN link above, showing how the Recipients object can be used to get an email address (snippet is in VBA):

Sub GetSMTPAddressForRecipients(mail As Outlook.MailItem) 
    Dim recips As Outlook.Recipients 
    Dim recip As Outlook.Recipient 
    Dim pa As Outlook.PropertyAccessor 
    Const PR_SMTP_ADDRESS As String = _ 
        "http://schemas.microsoft.com/mapi/proptag/0x39FE001E" 
    Set recips = mail.Recipients 
    For Each recip In recips 
        Set pa = recip.PropertyAccessor 
        Debug.Print recip.name &; " SMTP=" _ 
           &; pa.GetProperty(PR_SMTP_ADDRESS) 
    Next 
End Sub

More Related Contents:

  1. How to move each emails from inbox to a sub-folder [duplicate]
  2. Outlook Reply or ReplyAll to an Email
  3. How to insert text into Outlook email editor using VBA
  4. Get reference to additional Inbox
  5. How to add default signature in Outlook
  6. How to create and write to a txt file using VBA
  7. How do I trigger a macro to run after a new mail is received in Outlook?
  8. Outlook VBA – Run a code every half an hour
  9. For Each loop: Some items get skipped when looping through Outlook mailbox to delete items
  10. Can I iterate through all Outlook emails in a folder including sub-folders?
  11. Download attachment from Outlook and Open in Excel
  12. Embed picture in outlook mail body excel vba
  13. Text file in VBA: Open/Find Replace/SaveAs/Close File
  14. Sending mail using Outlook where the Send method fails
  15. How to do late binding in VBA?
  16. Distinguish visible and invisible attachments with Outlook VBA
  17. Running VBA from a HYPERLINK()
  18. Add a “CC recipient” to Outlook 2010 VBA
  19. How to send mail when the .Send does not work?
  20. Using visual basic to access subfolder in Inbox?
  21. When is a MailItem not a MailItem? [closed]
  22. Search structured text in Outlook body
  23. Switching the FROM Inbox
  24. How to add an embedded image to an HTML message in Outlook 2010
  25. Iterate all email items in a specific Outlook folder
  26. Restrict Outlook Items by Date
  27. VBA Outlook Mail .display, recording when/if sent manually
  28. Debugging an Outlook 2007 script fired by a rule
  29. Runtime error 287. Sending Emails through Outlook using VBA in Access
  30. How to Send Email When Computer is Locked?

Leave a Comment