Do the names and addresses not appear or just the addresses?
If the latter open the contact and resave it - or run the following macro
from Outlook
Sub ResaveContact()
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
.Display
.Close (olSave)
End With
End If
Err.Clear
Next
Set objOL = Nothing
Set objNS = Nothing
Set obj = Nothing
Set objContactFolder = Nothing
Set objContact = Nothing
End Sub
which will resave all the contacts
If the former, try deleting the address book from Outlook (NOT THE CONTACTS
LIST!!!) and re-add it, which will reset the links to the address book from
the contacts.
From Outlook File > Data File Management > Address Books > Select Outlook
Address Book (normally this will be the only address book) > Change > Remove
the address book, then add it back again from the previous dialog.
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
