VBA/Excel/Access/Word/PowerPoint/Exchange ADO
Retrieve data from Calendar
<source lang="vb">
Sub RetrieveCalendar()
Dim strConnection As String Dim cnConn As ADODB.Connection Dim rsCalendar As ADODB.Recordset Set cnConn = New ADODB.Connection Set rsCalendar = New ADODB.Recordset With cnConn .Provider = "Microsoft.JET.OLEDB.4.0" .ConnectionString = "Exchange 4.0;" _ & "MAPILEVEL=Mailbox - G, D|;" _ & "PROFILE=DMG;" _ & "TABLETYPE=0;DATABASE=C:\;" .Open End With With rsCalendar .Open "Select * from Calendar", cnConn, adOpenStatic, adLockReadOnly Do While Not rsCalendar.EOF Debug.Print rsCalendar(3).Name & ": " & rsCalendar(3).Value Debug.Print rsCalendar(10).Name & ": " & rsCalendar(10).Value Debug.Print vbCrLf rsCalendar.MoveNext Loop .Close End With Set rsCalendar = Nothing cnConn.Close Set cnConn = Nothing
End Sub
</source>