共用方式為

Outlook) (ContactItem.UserProperties 屬性

  • 發行項

會傳回 UserProperties 集合，代表 Outlook 專案的所有使用者屬性。 唯讀。

語法

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 支援與意見反應。