通过

Outlook) (ContactItem.EntryID 属性

  • 项目

返回一个表示对象的唯一条目 ID 的 字符串 。 此为只读属性。

语法

expression。 EntryID

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

备注

此属性对应于 PidTagEntryId 的 MAPI 属性。

MAPI 存储提供程序将在存储中创建项时分配的唯一 ID 字符串。 因此， EntryID 属性未设置为某个 Outlook 项目之前保存或发送。 条目 ID 更改时将项目移动到另一个存储中，例如，从 Microsoft Exchange Server 的公用文件夹，您 的收件箱或从一个到另一个.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 支持和反馈，获取有关如何接收支持和提供反馈的指南。