I have 2 users that use iphones. Somehow, the syncing of contacts in the
iphone to OL03/07 (both were upgraded from 03), has caused an invalid entryid
on most of the contacts, when anyone opens them from the address book (also
causes email to not send -get stuck in outbox- if the address book is used).
Someone on the apple forum posted an ol07 macro. I used it. It fixed about
50% of the problem contacts, then errors out with an error 13 type mismatch
on the first NEXT statement. Here is the code (BTW it looks strange, it looks
recursive);
<STARTMACROCODE>

Option Explicit

Sub FixEntryIDs()
Call FixEntryID
End Sub

Sub FixEntryID(Optional ByVal contacts As folder)
Dim item As ContactItem
Dim subf As folder
Dim changed As Boolean

If IsMissing(contacts) Or contacts Is Nothing Then
Set contacts = ActiveExplorer.CurrentFolder
End If

For Each item In contacts.Items
changed = False
If Len(item.Email1DisplayName) Then
changed = True
item.Email1DisplayName = ""
End If

If Len(item.Email2DisplayName) Then
changed = True
item.Email2DisplayName = ""
End If

If Len(item.Email3DisplayName) Then
changed = True
item.Email3DisplayName = ""
End If

If changed Then
Call item.Save
End If
Next

For Each subf In contacts.Folders
Call FixEntryID(subf)
Next
End Sub