ContactItem.Email1EntryID プロパティ (Outlook)

連絡先の最初のメール アドレスのエントリ ID を表す 文字列型 (String) の値を返します。 読み取り専用です。

構文

式。 Email1EntryID

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

注釈

このプロパティは、MAPI プロパティの dispidEmail1OriginalEntryID をという名前に対応します。

Email1EntryID を直接参照する代わりに、いくつかの型の問題により、(VBA) ソリューションでは、Microsoft Visual Basic または Microsoft Visual Basic for Applications には、このプロパティを取得する場合する必要がありますプロパティを取得した、 ContactItem.PropertyAccessor プロパティによって返される PropertyAccessor オブジェクトを MAPI プロパティの PidLidEmail1OriginalEntryId プロパティは、MAPI id 名前空間を指定します。 VBA では、次のコード サンプルでは、この回避策を示します。

Public Sub GetEmail1EntryID() 
 
 Dim objContactFolder As Outlook.Folder 
 
 Dim objContactItem As Outlook.ContactItem 
 
 Dim objRec As Outlook.Recipient 
 
 Dim strEntryID As String 
 
 Dim oPA As Outlook.PropertyAccessor 
 
 Const EMAIL1_ENTRYID As String = "http://schemas.microsoft.com/mapi/id/{00062004-0000-0000-C000-000000000046}/80850102" 
 
 
 
 Set objContactFolder = Application.Session.GetDefaultFolder(olFolderContacts) 
 
 Set objContactItem = objContactFolder.Items(1) 
 
 Set oPA = objContactItem.PropertyAccessor 
 
 strEntryID = oPA.BinaryToString(oPA.GetProperty(EMAIL1_ENTRYID)) 
 
 Debug.Print strEntryID 
 
 Set objRec = Application.Session.GetRecipientFromID(strEntryID) 
 
 If objRec Is Nothing Then 
 
 Debug.Print "GetRecipientFromID failed" 
 
 Else 
 
 Debug.Print objRec.Name 
 
 Debug.Print objRec.EntryID 
 
 End If 
 
 
 
 'Cleanup 
 
 Set objContactItem = Nothing 
 
 Set objContactFolder = Nothing 
 
End Sub

関連項目

ContactItem オブジェクト

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

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