A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Display As in Outlook 2000 Problem



 
 
Thread Tools Search this Thread Display Modes
  #1  
Old December 15th 06, 05:46 PM posted to microsoft.public.outlook.program_vba
Peter Marchert
external usenet poster
 
Posts: 208
Default Display As in Outlook 2000 Problem

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
  #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



  #3  
Old December 15th 06, 08:11 PM posted to microsoft.public.outlook.program_vba
Peter Marchert
external usenet poster
 
Posts: 208
Default Display As in Outlook 2000 Problem

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":

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 )":

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
)"

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 Streblechenko schrieb:

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


  #4  
Old December 17th 06, 06:06 PM posted to microsoft.public.outlook.program_vba
Peter Marchert
external usenet poster
 
Posts: 208
Default Display As in Outlook 2000 Problem

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 Marchert schrieb:

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":

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 )":

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
)"

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 Streblechenko schrieb:

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


 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
outlook 2000 display size Richard Outlook - General Queries 7 September 29th 06 02:09 PM
Distribution lists: problem with display of names (Outlook 2000) Torsten Villnow Outlook - General Queries 2 July 17th 06 12:26 PM
Contacts Display In Outlook 2000 Jim Outlook - Using Contacts 3 April 21st 06 12:30 PM
Outlook 2000 Sent Address' Display Jim Outlook - Using Contacts 1 April 20th 06 11:56 PM
Outlook 2000 - Unable to display folder Megan Outlook - General Queries 0 February 8th 06 02:13 AM


All times are GMT +1. The time now is 10:20 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.