ContactItem.UserProperties Property

  • Article
Outlook Developer Reference

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.

Visual Basic for Applications 
  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.<strong class="bterm">UserProperties</strong>.Find("LastDateContacted")
    If TypeName(objProperty) &lt;&gt; "Nothing" Then
        MsgBox "Last Date Contacted: " &amp; objProperty.Value
    End If
Else
    MsgBox "The contact was not found."
End If



End Sub

See Also