次の方法で共有

ContactItem.UserProperties プロパティ (Outlook)

  • [アーティクル]

Outlook アイテムのすべてのユーザー プロパティを [ユーザー プロパティ] コレクションを返します。 読み取り専用です。

構文

式。 UserProperties

式ContactItem オブジェクトを表す変数。

例

このVisual Basic for Applications (VBA) の例では、連絡先 'Jeff Smith' という名前LastDateContactedのカスタム プロパティを検索し、ユーザーに表示します。 この例を実行する前に、"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 のサポートおよびフィードバックを参照してください。