PRB: Changing Properties of AddressEntry object of a Recipient

MORE INFORMATION

Steps to Reproduce Behavior

The following code placed in a Visual Basic module will reproduce the problem described in the Symptoms section above. Note that the property change used here for illustration purposes assumes that the default setting of the PR_SEND_RICH_INFO property is True. If the default setting on your system is False, you will want to modify the code below to see the behavior.

    ' Note: This code requires a reference to CDO (1.1, 1.2, 1.21)

    Dim objSession As Session
    Dim objMessage As Mapi.Message
    Dim objRecip As Mapi.Recipient
    Dim objAddress As Mapi.AddressEntry

    ' Create and logon to a MAPI Session
    Set objSession = CreateObject("Mapi.Session")
    objSession.Logon ShowDialog:=True

    ' Create a new message
    Set objMessage = objSession.Outbox.Messages.Add

    ' Create a new recipient on our message
    Set objRecip = objMessage.Recipients.Add
    ' Set the properties of our recipient and resolve to a single address
    objRecip.Name = "myemail@mycompany.com"
    objRecip.Type = CdoTo
    objRecip.Resolve

    ' *** To make this code function as needed, replace this section
    ' *** of code with the corrected code provided in the Resolution
    ' *** section above.
    ' Attempt to set the PR_SEND_RICH_INFO property.
    ' This is the line of code that may need to change, depending on the
    ' default setting on your system.
    objRecip.AddressEntry.Fields(ActMsgPR_SEND_RICH_INFO) = False
    ' Update the AddressEntry object
    objRecip.AddressEntry.Update

    ' View the details of the Recipient to confirm changes
    objRecip.AddressEntry.Details

    ' Delete the message and Logoff the Session
    objMessage.Delete
    objSession.Logoff