Outlook Contacts as ADO RecordSet

Posted: 2002-06-01
By: ArchiveBot
Viewed: 88

Filed Under:

VB6 Code Cache

No attachments for this post

The purpose of this code is to read the Outlook Contacts Folder into an ADO RecordSet. Often you want to let your app use either the Outlook Contacts or your own. This will give you a jump start.

Original Author: Brian Gillham

Returns

ADO RecordSet

Code

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
  .ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Exchange 4.0;MAPILEVEL=Outlook Address Book;PROFILE=Outlook;TABLETYPE=1;DATABASE=c: emp"
  .Open
End With
With ADORS
  Set .ActiveConnection = ADOConn
  .CursorType = adOpenStatic
  .LockType = adLockReadOnly
  .Open "Select * from [Contacts]"
  .MoveFirst
  '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


Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.