Local myOLapp As Outlook.Application Local myNamespace As Outlook.NameSpace Local myContacts As Outlook.MAPIFolder myOLapp = Createobject("Outlook.Application") myNamespace = myOLapp.GetNamespace("MAPI") Local prp As Outlook.ItemProperty Local itm As Outlook.ContactItem Local strFields As String, strTemp As String myContacts = myNamespace.Folders("Personal Folders").Folders("Contacts") itm = myContacts.Items.GetFirst If Not Isnull(itm) For Each prp In itm.ItemProperties ? prp.Name strTemp = prp.Name If strTemp <> "" Then strFields = strFields + strTemp + Chr(13) + Chr(10) Endif strTemp = "" Next strFields = Left(strFields, Len(strFields) - 1) _Cliptext = strFields Endifto get field names.