Automate Outlook Via ADO

Category:

Office/VBA

Type:

Snippets

Difficulty:

Intermediate

Author:

Brian Gillham

Version Compatibility: Visual Basic 6

More information:

If you need to use Outlook in your application you can use this code as a starting point. It is an easier alternative to using the Outlook Object Model and trying to understand what it is all about. With very few changes you can access ANY of the folders in Outlook.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

'Set a reference to the ADO RecordSet object.
Sub Outlook_Contacts()

Dim ADOConn As ADODB.Connection
    Dim ADORS As ADODB.Recordset
    Dim strConn As String

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

With ADOConn
          'Change the Connection String below to the correct 
          'settings;Database is the folder where the personal 
          'address book resides

.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Exchange 4.0;MAPILEVEL=Outlook Address Book\;PROFILE=Outlook;TABLETYPE=1;DATABASE=c:\temp"
        .Open
    End With

With ADORS
        Set .ActiveConnection = ADOConn
        .CursorType = adOpenStatic
        .LockType = adLockReadOnly
        .Open "Select * from [Contacts]"
        .MoveFirst
        'As a test just loop thru the first contact
        Dim i As Long
        For i = 0 To ADORS.Fields.Count - 1
            Debug.Print ADORS(i).Name + vbTab + Format(ADORS(i).Value)
        Next i
        .Close
    End With

Set ADORS = Nothing

ADOConn.Close
    Set ADOConn = Nothing

End Sub