How do I change the displayed columns in the address book

  • Thread starter Thread starter KennyT
  • Start date Start date
K

KennyT

I have a number of similar contacts (e.g "The Treasurer") for various
companies in my Outlook contacts list. When I try to display the address
book in Word, "company name" is not amongst the listed items. Is there any
way of adding it?
 
You'll undoubtedly need to address this problem in Outlook, and you may need
to ask in an Outlook newsgroup to find out what to do.
 
The simple answer is no. The problem is caused because you have configured
the contact name as The Treasure instead of as Job Title. This removes one
problem, but creates the other. Personally I would put The Treasurer in the
Job Title field and leave the contact name field blank. The following
Outlook Macro will do that for all your contacts so affected. You may then
have to attend to the way you use the address book to insert the contact
details in Word - see http://www.gmayor.com/Macrobutton.htm

Public Sub MoveNameToJobTitle()

'Create this macro in OUTLOOK!
Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objContactFolder As Outlook.MAPIFolder
Dim objContact As Outlook.ContactItem
Dim objItems As Outlook.Items
Dim obj As Object
Dim strName As String

On Error Resume Next

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

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

With objContact
If InStr(1, .FullName, "Treasurer") Then
strName = .FullName
.JobTitle = strName 'Copy Name to Job Title
.FullName = "" 'Set the FullName field content to nothing
.Save
End If
End With
End If

Err.Clear
Next

Set objOL = Nothing
Set objNS = Nothing
Set obj = Nothing
Set objContactFolder = Nothing
Set objContact = Nothing
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
OK, understood. The main problem is that the contacts name is unknown, so
leaving that blank doesn't make it any easier to identify the correct contact
from the address book listing.

Thank you anyway.

K
 
Actually it does, because if you remove The Treasurer from the contact
field(s) the Company name is listed in the address book instead, which was
your original request. Try it!

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Back
Top