Get email recipients (FROM / TO / CC / BCC) from outlook mail item

[bradyboyy88]

My code I have creates a table from getTable method but I have recently learned there is no MAPI property to return the email addresses of these so my table columns are useless for this part. It seems the only way to do it is via the mail item object. However, I notice with my code below which uses another persons code on stackoverflow this returns a lot more information then just the email addresses. I am also not sure why this code checks to see if its an exchange user as well and this code only address recipients and actually is pretty slow.

        For Each OutRecip In Session.GetItemFromID(nextRow("EntryID")).Recipients
            'Debug.Print nextRow("Subject") & OutRecip.Address
            Select Case OutRecip.AddressEntry.AddressEntryUserType
                Case 0, 10
                    Set objExUser = OutRecip.AddressEntry.GetExchangeUser
                    If Not objExUser Is Nothing Then _
                    Debug.Print OutRecip.Address & objExUser.PrimarySmtpAddress '/* or copy somewhere */
                Case 1
                    Set objExDisUser = OutRecip.AddressEntry.GetExchangeDistributionList
                    If Not objExDisUser Is Nothing Then _
                    Debug.Print  objExDisUser.PrimarySmtpAddress  '/* or copy somewhere */
                Case Else
                '/* Do nothing, recipient not recognized */
                End Select
        Next

 

[bradyboyy88]

I still dont understand why they use that exchange object but I have shortened it up a bit and get a cleaner version for the recipient email addresses. I do wonder if there is a faster way to pull the email addresses from the advance search. Is there no field in the namespace schemas which have these properties which can extract those email addresses?

    Do Until MyTable.EndOfTable
        Set nextRow = MyTable.GetNextRow()
        For Each OutRecip In Session.GetItemFromID(nextRow("EntryID")).Recipients
            OutRecip.PropertyAccessor.GetProperty ("http://schemas.microsoft.com/mapi/proptag/0x39FE001E")
        Next
    Loop