![]() |
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. |
|
|
Thread Tools | Search this Thread | Display Modes |
#1
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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
|
|||
|
|||
![]()
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 |
Display Modes | |
|
|
![]() |
||||
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 |