How to: Display Address Entry Details for the Sender of a Message

  • [アーティクル]

The recipient of each mail message deliverable by a transport provider has an address entry in the provider's hierarchy of address books for the session. This topic describes how to programmatically display the address entry information of the sender of a mail item that is currently displayed in an inspector.

  1. For the currently displayed mail item, use the PropertyAccessor object to determine the Entry ID of the sender.

  2. Use the NameSpace.GetAddressEntryFromID method of the current session to return an AddressEntry object.

  3. Use the AddressEntry.AddressEntryUserType property to determine the type of the AddressEntry, and then display the details accordingly:

    • If the address entry is a contact item in the Outlook Contacts folder, or if the SMTP address of the sender matches an e-mail address of one contact item in the default Contacts folder, then display the address entry information in a Contacts inspector. To match e-mail addresses in the Contacts folder, use the Table object to do a quick filter on the ContactItem.Email1Address, ContactItem.Email2Address, and ContactItem.Email3Address properties of items in that folder.

    • In all other cases, display the address entry information in the E-mail Properties dialog box.

Remarks

To run this code sample:

  1. Open a mail message to have it displayed in the active inspector.

  2. Place the code in the built-in ThisOutlookSession module.

  3. Run the TestAddressEntryDetails procedure to display address entry details on the mail message in the active inspector:

    Sub TestAddressEntryDetails() Dim oMail As MailItem

    Set oMail = Application.ActiveInspector.CurrentItem DisplayAddressEntryDetails oMail End Sub

    Sub DisplayAddressEntryDetails(oM As MailItem) Dim oPA As Outlook.PropertyAccessor Dim oContact As Outlook.ContactItem Dim oSender As Outlook.AddressEntry Dim SenderID As String

    'Create an instance of PropertyAccessor Set oPA = oM.PropertyAccessor

    'Obtain PidTagSenderEntryId and convert to string SenderID = oPA.BinaryToString _ (oPA.GetProperty("https://schemas.microsoft.com/mapi/proptag/0x0C190102"))

    'Obtain AddressEntry Object of the sender Set oSender = Application.Session.GetAddressEntryFromID(SenderID)

    'Examine AddressEntryUserType If oSender.AddressEntryUserType = olOutlookContactAddressEntry Then 'Obtain ContactItem for AddressEntry Set oContact = oSender.GetContact oContact.Display 'Display details for Exchange or SMTP sender Else oSender.Details End If End Sub