Hello,

I want to change the Field "Display As" in Outlook 2000 but I have a
problem to save the changes:

Sub ChangeDisplayAs()

Dim objContact As Outlook.ContactItem
Dim objRDOSession As Object
Dim objRDOContact As Object

Set objRDOSession = CreateObject("Redemption.RDOSession")

objRDOSession.Logon "", "", False, False, 0

Set objContact = Outlook.ActiveExplorer.Selection(1)

Debug.Print objContact.Email1DisplayName

Set objRDOContact =
objRDOSession.GetMessageFromID(objContact.EntryID,
objContact.Parent.StoreID)

objRDOContact.Email1DisplayName = "Test )"

Debug.Print objRDOContact.Email1DisplayName

objRDOContact.Save

objRDOContact.Display

Set objRDOContact = Nothing
Set objRDOSession = Nothing

End Sub

If I create a new contact manually I can edit the field Display As by
double clicking on the email address. After running this code I can not
edit the field Display As any more.

Can anybody help me, please?

Best regards
Peter

--
Peter Marchert
[EDV-Service Marchert]
Homepage: http://www.marchert.de
Excel- and Outlook programming