次の方法で共有

ContactItem.EntryID プロパティ (Outlook)

  • [アーティクル]

オブジェクトの一意のエントリ ID を表す文字列型 ( String ) の値を取得します。 値の取得のみ可能です。

構文

式。 EntryID

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

注釈

このプロパティは、MAPI プロパティの PR_CREATION_TIME に対応しています。 PidTagEntryId

MAPI ストアのプロバイダーでは、そのストア内でアイテムを作成するときに一意の ID 文字列が割り当てられます。 したがって、 EntryID プロパティが設定されていません Outlook アイテムの保存または送信されるまで。 アイテムのエントリ ID の変更は、たとえば、Microsoft Exchange Server パブリック フォルダー、 受信トレイから、または 1 つの個人用フォルダー (.pst) ファイルを別の .pst ファイルから別のストアに移動します。 ソリューションは、 EntryID プロパティが一意になるアイテムが移動しない限りに依存する必要があります。 EntryID プロパティは MAPI 長期エントリ ID を返します。 長期および短期 の EntryIDの詳細については、 Microsoft Learn で PidTagEntryId を検索してください。

例

次の Visual Basic for Applications (VBA) の例は、 EntryID プロパティを使って、ある連絡先のエントリ ID と検索処理で返される連絡先のエントリ ID を比較し、両方のオブジェクトが同じ連絡先を表しているかどうかを確認します。 この使用例を実行する前に、名前の部分を自分の連絡先フォルダーにある有効な連絡先の名前に置き換えてください。

Sub UseEntryID() 
 Dim myNamespace As Outlook.NameSpace 
 Dim myContacts As Outlook.Folder 
 Dim myItem1 As Outlook.ContactItem 
 Dim myItem2 As Outlook.ContactItem 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts) 
 Set myItem1 = myContacts.Items.Find("[FirstName] = ""Dan""") 
 Set myitem2 = myContacts.Items.Find("[FileAs] = ""Wil"" and [FirstName] = ""Dan""") 
 If Not TypeName(myitem2) = "Nothing" Then 
 If myItem1.EntryID = myitem2.EntryID Then 
 MsgBox "These two contact items refer to the same contact." 
 End If 
 Else 
 MsgBox "The contact items were not found." 
 End If 
End Sub

関連項目

ContactItem オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。