通过

Outlook) (ContactItem.UserProperties 属性

  • 项目

返回表示 Outlook 项目的所有用户属性的 UserProperties 集合。 此为只读属性。

语法

expression。 UserProperties

表达 一个代表 ContactItem 对象的变量。

示例

此Visual Basic for Applications (VBA) 示例查找一个名为LastDateContacted“Jeff Smith”的自定义属性，并将其显示给用户。 要运行此示例，需将"Jeff Smith"替换为一个有效的联系人姓名，并为该联系人创建一个称作 LastDateContacted 的用户定义属性。

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

另请参阅

创建 ContactItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。