Display As in Outlook 2000 Problem

P

Peter Marchert

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 ([email protected])"

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
 
D

Dmitry Streblechenko

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
 
P

Peter Marchert

Hi Dmitry,

yes, that only happens in Outlook 2000, higher version works fine.

My version of Redemption is 4.3.0.585.

I try this: Creating a new contact manually by typing:

Field "Name...": Firstname Lastname
Field "E-Mail": (e-mail address removed)

Then I save and close the contact. After reopened them I overwrite the
E-Mail Address with "Firstname Lastname". Then I can double click on
this name and see details of the contact and can change the display
name.

If I want to save this changes Outlook ask me if I want to save a copy
in the standard contact folder because the contact was changend in
another window. OK, I did so and after that I can change the display
name without asking some thing by Outlook. Strange? No, Outlook!

With the following code I want to change the display name from
"Firstname Lastname" to "Lastname Firstname ([email protected])":

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 = "Lastname Firstname
([email protected])"

Debug.Print objRDOContact.Email1DisplayName

objRDOContact.Save

objRDOContact.Display

Set objRDOContact = Nothing
Set objRDOSession = Nothing

End Sub

If that procedure runs to my contact and I double click the name in the
email field it is only shown this email address into another little
window without details.

Thanks, Peter


Dmitry said:
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 said:
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 ([email protected])"

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
Click to expand...
Click to expand...
 
P

Peter Marchert

Perhaps anybody can confirm if it works on his machine to change the
display name in Outlook 2000 or if not. This would be a help for me
too.

Thanks, Peter

Peter said:
Hi Dmitry,

yes, that only happens in Outlook 2000, higher version works fine.

My version of Redemption is 4.3.0.585.

I try this: Creating a new contact manually by typing:

Field "Name...": Firstname Lastname
Field "E-Mail": (e-mail address removed)

Then I save and close the contact. After reopened them I overwrite the
E-Mail Address with "Firstname Lastname". Then I can double click on
this name and see details of the contact and can change the display
name.

If I want to save this changes Outlook ask me if I want to save a copy
in the standard contact folder because the contact was changend in
another window. OK, I did so and after that I can change the display
name without asking some thing by Outlook. Strange? No, Outlook!

With the following code I want to change the display name from
"Firstname Lastname" to "Lastname Firstname ([email protected])":

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 = "Lastname Firstname
([email protected])"

Debug.Print objRDOContact.Email1DisplayName

objRDOContact.Save

objRDOContact.Display

Set objRDOContact = Nothing
Set objRDOSession = Nothing

End Sub

If that procedure runs to my contact and I double click the name in the
email field it is only shown this email address into another little
window without details.

Thanks, Peter


Dmitry said:
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 said:
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 ([email protected])"

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
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to set field value by RDO? 6
Body disappears in 2002 when creating an item from a saves msgattachment 2
(SIGH!) Problem with Outlook Contact.EntryID is back! 10
Display of lastname, firstname 2
MapiTable in OL 2000 slow 11
Matching Addressbook Recipients to Contacts 1
About replacing word/categories in Outlook contacts 0
Suddenly macro doesn't work 2

Top