How to get the full Outlook EntryID via WebDAV or ADODB

[Guest]

This simple function "almost" get's Outlook EntryID value for at mail item:

---
Octenttohex(rs.Fields("http://schemas.microsoft.com/mapi/proptag/0x0FFF0102")

Function Octenttohex(OctenArry As Variant) As String
ReDim aOUt(Len(OctenArry) - 1)
For i = 1 To Len(OctenArry) '+ 1
If Len(Hex(AscB(MidB(OctenArry, i, 1)))) = 1 Then
aOUt(i - 1) = "0" & Hex(AscB(MidB(OctenArry, i, 1)))
Else
aOUt(i - 1) = Hex(AscB(MidB(OctenArry, i, 1)))
End If
Next
Octenttohex = Join(aOUt, "")
End Function
---

Men - only the first half of the ID.

As you will see from the example below I can come very close to combining
EntryID and FolderID keys, only missing the last 8 characters (57420000):

Outlook EntryID:
00000000D04D936A971B9949B29C546E1BF88923070069265AC77A48AF4EAD3161FA67594F89000000005315000069265AC77A48AF4EAD3161FA67594F890000000057420000

The retrieved EntryID from the MAPI property:
00000000D04D936A971B9949B29C546E1BF88923070069265AC77A48AF4EAD3161FA67

These strings are taken from the FolderID on the mail item, and piece by
piece they match a portion of the EntryID:
594F890000000053150000
69265AC77A48AF4EAD3161FA67
594F8900000000

Folder ID på mailen:
00000000D04D936A971B9949B29C546E1BF88923010069265AC77A48AF4EAD3161FA67594F890000000053150000


As you can see, I can pick out different strings from the Folder ID and
match them with pieces in the EntryID string - BUT not the last 8 characters.

How can the exact EntryID be retrieved or calculated???