ContactItem.Email1EntryID 属性 (Outlook)

返回一个 字符串 ,表示联系人的第一个电子邮件地址的条目 ID。 此为只读属性。

语法

expressionEmail1EntryID

表达 一个代表 ContactItem 对象的变量。

备注

此属性对应于 MAPI 命名属性 dispidEmail1OriginalEntryID

如果您遇到此属性中的 Microsoft Visual Basic 或 Microsoft Visual Basic for Applications (VBA) 解决方案中,由于某些类型的问题,而不是直接引用 Email1EntryID ,应获取属性通过 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。