ContactItem.UserProperties property (Outlook)

Returns the UserProperties collection that represents all the user properties for the Outlook item. Read-only.


expression. UserProperties

expression A variable that represents a ContactItem object.


This Visual Basic for Applications (VBA) example finds a custom property named LastDateContacted for the contact 'Jeff Smith' and displays it to the user. To run this example, you need to replace 'Jeff Smith' with a valid contact name and create a user-defined property called LastDateContacted for the contact.

Sub FindContact() 
 'Finds and displays last contacted info for a contact 
 Dim objContact As Outlook.ContactItem 
 Dim objContacts As Outlook.Folder 
 Dim objNameSpace As Outlook.NameSpace 
 Dim objProperty As Outlook.UserProperty 
 Set objNameSpace = Application.GetNamespace("MAPI") 
 Set objContacts = objNameSpace.GetDefaultFolder(olFolderContacts) 
 Set objContact = objContacts.Items.Find( _ 
 "[FileAs] = ""Smith, Jeff"" and [FirstName] = ""Jeff""") 
 If Not TypeName(objContact) = "Nothing" Then 
 Set objProperty = _ 
 If TypeName(objProperty) <> "Nothing" Then 
 MsgBox "Last Date Contacted: " & objProperty.Value 
 End If 
 MsgBox "The contact was not found." 
 End If 
End Sub

See also

ContactItem Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.