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
Word MVP web site
http://word.mvps.org
KennyT wrote:
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
"Graham Mayor" wrote:
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
Word MVP web site http://word.mvps.org
KennyT wrote:
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?