This quick snip should do the trick but there are lots of ways to do the
same thing. To stress, this should only be used for UDF's that are
NOT part of a custom form definition.
----------------------------------------------------------------------
Dim olItms As Outlook.Items
Dim olCItm As Outlook.ContactItem
Dim olUProp As Outlook.UserProperty
' assume olItms already set to selected ContactFolder.Items
For Each olCItm In olItms
'this skips everything other than contacts assigned to the
'standard contact message class
If olCItm.MessageClass <> "IPM.Contact" Then
GoTo Next_Con
End If
Set olUProp = olCItm.UserProperties.Find("PropName", True)
'this will skip the property if it doesn't exist for a given
contact
'UDF's should NEVER be deleted this way if a custom form
' is in use
If olUProp Is Nothing Then
'if checking for more than one UDF - adjust accordingly
GoTo Next_Con
End If
olUProp.Delete
olCItm.Save
Next_Con:
Next
-----------------------------------------------------------------------
Karl
--
____________________________________________________________
Karl Timmermans - The Claxton Group
ContactGenie - QuickPort/DataPort/Exporter/Toolkit/Duplicate Contact Mgr
"Contact import/export/data management tools for Outlook '2000/2010"
http://www.contactgenie.com