Outlook) (ContactItem.Email1EntryID 屬性

  • 發行項

會傳回 String ，代表連絡人第一個電子郵件地址的專案識別碼。 唯讀。

語法

expression。 Email1EntryID

表達 代表 ContactItem 物件的 變數。

註解

這個屬性會對應至 MAPI 具名屬性 dispidEmail1OriginalEntryID。

如果您要在 Microsoft Visual Basic 或 Microsoft Visual Basic for Applications (VBA) 解決方案中取得此屬性，因為某些類型問題，而不是直接參考Email1EntryID，您應該透過ContactItem.PropertyAccessor屬性所傳回的PropertyAccessor物件取得屬性，並指定 MAPI 屬性PidLidEmail1OriginalEntryId屬性及其 MAPI 識別碼命名空間。 下列 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 支援與意見反應。