Метод NameSpace.CompareEntryIDs (Outlook)
Возвращает логическое значение, указывающее, относятся ли два значения идентификатора записи к одному элементу Outlook.
Синтаксис
выражение. CompareEntryIDs( _FirstEntryID_ , _SecondEntryID_ )
Выражение Выражение, возвращающее объект NameSpace .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| FirstEntryID | Обязательный | String | Первый сравниваемый идентификатор записи. |
| SecondEntryID | Обязательный | String | Второй идентификатор записи для сравнения. |
Возвращаемое значение
Значение true , если значения идентификатора записи относятся к одному и тому же элементу Outlook; в противном случае — False.
Замечания
Идентификаторы входа нельзя сравнивать напрямую, так как один объект может быть представлен двумя разными двоичными значениями. Используйте этот метод, чтобы определить, представляют ли два идентификатора записи один и тот же объект.
Пример
В следующем примере Visual Basic для приложений (VBA) идентификатор записи, связанный с организатором указанного объекта AppointmentItem, сравнивается с идентификатором записи указанного объекта Recipient с помощью метода CompareEntryIDs и возвращает значение True, если организатор и указанный получатель представляют одного и того же пользователя.
Function IsRecipientTheOrganizer( _
ByVal Appt As Outlook.AppointmentItem, _
ByVal Recipient As Outlook.Recipient) As Boolean
Dim objAddrEntry As Outlook.AddressEntry
Dim objPropAc As Outlook.PropertyAccessor
Dim strOrganizerEntryId As String
Dim bytResult() As Byte
Dim objRecipientUser As Outlook.ExchangeUser
Dim objOrganizerUser As Outlook.ExchangeUser
Dim blnReturn As Boolean
'Property tag for Organizer EntryID
Const PR_SENT_REPRESENTING_ENTRYID As String = _
"http://schemas.microsoft.com/mapi/proptag/0x00410102"
' Retrieve an AddressEntry object reference for the
' specified recipient.
Set objAddrEntry = Recipient.AddressEntry
' If the address entry represents an Exchange user
' or Exchange remote user, retrieve an
' ExchangeUser object reference for the sender and
' compare the EntryID value of that object with
' the EntryID of the specified recipient.
If objAddrEntry.AddressEntryUserType = _
OlAddressEntryUserType.olExchangeUserAddressEntry _
Or objAddrEntry.AddressEntryUserType = _
OlAddressEntryUserType.olExchangeRemoteUserAddressEntry Then
' Attempt to retrieve an ExchangeUser
' object reference for the specified
' recipient.
Set objRecipientUser = objAddrEntry.GetExchangeUser()
If objRecipientUser Is Nothing Then
' An Exchange user could not be retrieved
' for the specified recipient.
blnReturn = False
Else
' Retrieve the EntryID property value of the organizer.
' The Organizer property of the AppointmentItem object only
' contains a string representation of the name of the
' organizer, so the PR_SENT_REPRESENTING_ENTRYID property value
' is instead retrieved, using the PropertyAccessor object
' associated with the appointment item.
Set objPropAc = Appt.PropertyAccessor
bytResult = objPropAc.GetProperty( _
PR_SENT_REPRESENTING_ENTRYID)
If Not IsEmpty(bytResult) Then
' Convert the binary value retrieved from the
' PR_SENT_REPRESENTING_ENTRYID property into
' a string value for comparison.
strOrganizerEntryId = _
objPropAc.BinaryToString(bytResult)
' Attempt to retrieve an ExchangeUser
' object reference for the organizer.
Set objOrganizerUser = Appt.Application.Session. _
GetAddressEntryFromID(strOrganizerEntryId).GetExchangeUser()
If objOrganizerUser Is Nothing Then
' An Exchange user could not be retrieved
' for the organizer.
blnReturn = False
Else
' Compare the EntryIDs of the organizer
' and the specified recipient.
blnReturn = Appt.Application.Session. _
CompareEntryIDs( _
objRecipientUser.ID, _
objOrganizerUser.ID)
End If
End If
End If
End If
EndRoutine:
' Clean up
Set objOrganizerUser = Nothing
Set objRecipientUser = Nothing
Set objAddrEntry = Nothing
Set objPropAc = Nothing
' Return the results.
IsRecipientTheOrganizer = blnReturn
Exit Function
ErrRoutine:
Debug.Print Err.Number & " - " & Err.Description, _
vbOKOnly Or vbCritical, _
"IsRecipientTheOrganizer"
GoTo EndRoutine
End Function
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.