UserProperties Property
Collapse the table of content
Expand the table of content

ContactItem.UserProperties Property

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



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.

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 = _
        If TypeName(objProperty) <> "Nothing" Then
            MsgBox "Last Date Contacted: " & objProperty.Value
        End If
        MsgBox "The contact was not found."
    End If
End Sub

© 2015 Microsoft