Outlook Get EntyID

[Anton Hengg]

Hi,

I read the Outlook Inbox folder with the following code. According to the
Microsoft specification 24 columns should appear, among them the column
EntryID.
But only 20 columns are displayed. How do I get the column EntryID? Or is
there a code to create it?

Best regards
Anton


Public Function OpenExchange_Calendar()
Dim ADOConn As ADODB.Connection
Dim ADORS As ADODB.Recordset
Dim strConn As String, i As Integer

Set ADOConn = New ADODB.Connection
Set ADORS = New ADODB.Recordset

With ADOConn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Exchange 4.0;" _
& "MAPILEVEL=Persönlicher Ordner|;" _
& "PROFILE=Outlook;" _
& "TABLETYPE=0;DATABASE=dbs.name;"
Debug.Print .ConnectionString
.Open
End With

With ADORS
.Open "Select * from [Posteingang]", ADOConn, adOpenStatic, _
adLockReadOnly

.MoveFirst
' Do Until ADORS.EOF
For i = 0 To 24
On Error Resume Next
Debug.Print i;
Debug.Print ADORS(i).Name, ADORS(i).Value;
On Error GoTo 0
Debug.Print
Next i
' .MoveNext
' Loop
.Close
End With

Set ADORS = Nothing
ADOConn.Close
Set ADOConn = Nothing

End Function

 

[Sue Mosher [MVP-Outlook]]

What specification? I'm not sure the Jet engine exposes EntryID. I have always considered it too limited for any practical use.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers