ContactItem.UserProperties Property (Outlook)
Returns the UserProperties collection that represents all the user properties for the Outlook item. Read-only.
Syntax
expression .UserProperties
expression A variable that represents a ContactItem object.
Example
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 = _
objContact.UserProperties.Find("LastDateContacted")
If TypeName(objProperty) <> "Nothing" Then
MsgBox "Last Date Contacted: " & objProperty.Value
End If
Else
MsgBox "The contact was not found."
End If
End Sub