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