A
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
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