Свойство ContactItem.EntryID (Outlook)

Статья
04/07/2023

Возвращает значение String , представляющее уникальный идентификатор объекта Entry. Только для чтения.

Синтаксис

выражение. EntryID

Выражение Переменная, представляющая объект ContactItem .

Замечания

Это свойство соответствует свойству MAPI PidTagEntryId.

Поставщик хранилища MAPI назначает строку уникального идентификатора при создании элемента в хранилище. Таким образом, свойство EntryID не задается для элемента Outlook, пока он не будет сохранен или отправлен. Идентификатор записи изменяется при перемещении элемента в другое хранилище, например из папки "Входящие" в Microsoft Exchange Server общедоступную папку или из одного PST-файла личных папок в другой PST-файл. Решения не должны зависеть от уникальности свойства EntryID , если элементы не будут перемещены. Свойство EntryID возвращает долгосрочный идентификатор входа MAPI. Дополнительные сведения о долгосрочных и краткосрочных идентификаторах EntryIDсм. в Microsoft Learn по запросу PidTagEntryId.

Пример

В этом примере Visual Basic для приложений (VBA) свойство EntryID используется для сравнения идентификатора записи одного контакта с идентификатором записи контакта, возвращенного операцией поиска, чтобы определить, представляют ли объекты один и тот же контакт. Перед выполнением этого примера замените это имя допустимым именем контакта в папке "Контакты".

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 и обратная связь.

Поделиться через