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>