Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

How can I change Contacts "DISPLAY AS" e-mail address information

Posted on 2010-08-23
8
361 Views
Last Modified: 2013-02-10
Using Outlook 2007 and 2010 on Win XP.   Is there a way to change the default email "Display As" format in the contact info?  
This IS NOT for setting the Name & Filing Options (Full Name and File As) under Tools, Contacts.
I want to control the E-MAIL Address "DisplayAs:" field.

Thank you.
0
Comment
Question by:BIC1925
  • 2
  • 2
  • 2
8 Comments
 
LVL 7

Expert Comment

by:kpmartin
ID: 33501964
Slipstick has a good solution for this and if you're not comfortable with VBA there are tools listed to make the changes

http://www.slipstick.com/contacts/emaildisplayname.asp
0
 
LVL 76

Expert Comment

by:David Lee
ID: 33509248
Hi, BIC9125.

Are you looking for a one time solution to adjust all the existing email display as fields, or are you looking for a solution that will set them properly every time you create a contact?  If the former, then the code kpmartin linked to is the solution.  If the latter, then that same code will do if you want to remember to run it after you create each contact.  If you don't want to have to remember, then you need a different solution.
0
 

Author Comment

by:BIC1925
ID: 33587269
BlueDevilFan -
Can instruct users to input specific way going forward, so at this point I am looking to adjust the existing ones.  I tried the code - so far it doesn't correct existing entries.  Still testing . . . .
0
What is SQL Server and how does it work?

The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.

 
LVL 76

Expert Comment

by:David Lee
ID: 33591127
Tried what code?
0
 
LVL 7

Expert Comment

by:kpmartin
ID: 33591231
Yea, Inquiring minds want to know!
0
 

Accepted Solution

by:
BIC1925 earned 0 total points
ID: 34115506
Public Sub ChangeEmailDisplayName()
    Dim objOL As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Dim objContact As Outlook.ContactItem
    Dim objItems As Outlook.Items
    Dim objContactsFolder As Outlook.MAPIFolder
    Dim obj As Object
    Dim strFirstName As String
    Dim strLastName As String
    Dim strFileAs As String

    On Error Resume Next

    Set objOL = CreateObject("Outlook.Application")
    Set objNS = objOL.GetNamespace("MAPI")
    Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)
    Set objItems = objContactsFolder.Items

    For Each obj In objItems
        'Test for contact and not distribution list
        If obj.Class = olContact Then
            Set objContact = obj

            With objContact
            ' Uncomment the  strFileAs line for the desired format
            ' Add the email address to any string using
            ' the following code:
            ' & " (" & .Email1Address & ")"
               
                'Firstname Lastname (email address) format
                ' strFileAs = .FullName & " (" & .Email1Address & ")"
               
                'Lastname, Firstname format
                ' strFileAs = .LastNameAndFirstName
               
                'Company name (email address) format
                ' strFileAs = .CompanyName & " (" & .Email1Address & ")"
               
                'Comapany Firstname Lastname (email address) format
                'the display name will have a leading space if
                'the contact doesn't have a company name
                'strFileAs = .CompanyName & " " & .FullName & " (" & .Email1Address & ")"
               
                'File As format
                'Does not support Company (Fullname) format.
                'Only Company name is used in the display name
                'strFileAs = .FileAs
               
               .Email1DisplayName= strFileAs

                .Save
            End With
        End If

        Err.Clear
    Next

    Set objOL = Nothing
    Set objNS = Nothing
    Set obj = Nothing
    Set objContact = Nothing
    Set objItems = Nothing
    Set objContactsFolder = Nothing
End Sub
0

Featured Post

What is SQL Server and how does it work?

The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This process describes the steps required to Import and Export data from and to .pst files using Exchange 2010. We can use these steps to export data from a user to a .pst file, import data back to the same or a different user, or even import data t…
Finding original email is quite difficult due to their duplicates. From this article, you will come to know why multiple duplicates of same emails appear and how to delete duplicate emails from Outlook securely and instantly while vital emails remai…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Many of my clients call in with monstrous Gmail overloading issues with Outlook. A quick tip is to turn off the All Mail and Important folders from synching. Here is a quick video I made to show you how to turn off these and other folders in Gmail s…

789 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question