View Single Post
  #2  
Old December 15th 06, 06:26 PM posted to microsoft.public.outlook.program_vba
Dmitry Streblechenko
external usenet poster
 
Posts: 2,116
Default Display As in Outlook 2000 Problem

Does that only happen in Outlook 2000? What is your version of Redemption?
What exactly happens (I don't have Outlook 2000 handy at the moment)? Does
the edit box for display name become disabled? Or you cannot click the
address at all?

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool

"Peter Marchert" wrote in message
oups.com...
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



Ads