looking for third party or sample code for batch parsing/replacing info in many contacts.

[Victor Matei]

Is there any sample code or better yet, some third party app that can allow
batch editing of contacts ?
For example, I need to delete all text in the "Title" and "Middle"
(initial) fields on a large number of contacts, located in a public folder.
Thanks for any input on this.

 

[Guest]

Here is sample code that could be run after selecting the desired folder. It
will clear out data in all MiddleName and Title fields for all Contacts in
that folder:

Sub MacroNameHere()
Dim fld As MAPIFolder
Dim objItem

Set fld = Application.ActiveExplorer.CurrentFolder
Set colContacts = fld.Items

For Each objItem In colContacts
If objItem.Class = olContact Then
With objItem
.MiddleName = ""
.Title = ""
.Save
End With
End If
Next

End Sub