Outlook Contacts

[Mr_Zer0]

Hi,can some one show me an example of extracting the outlook contacts to a listbox?,would be good just with pure api so no dlls etc thanks

[Jacob Roman]

API's are using dll's. Try using VBScript in VB. Google this for some excellent code "VBScript Outlook" without the quotes.

[Xiarcel]

Private Sub Command1_Click()
  Dim o As New Outlook.Application, ns As Outlook.Namespace
  Dim fldr As Outlook.MAPIFolder, ctcItems As Outlook.Items
  Dim j As Integer
  Set ns = o.GetNamespace("MAPI")
  Set fldr = ns.GetDefaultFolder(olFolderContacts)
  Set ctcItems = fldr.Items
  For j = 1 To ctcItems.Count
     On Error Resume Next ' in case you encounter a distribution list 
     List1.AddItem ctcItems.Item(j).FullName
  Next j
End Sub

Hope this helps

[Mr_Zer0]

what refrences do i need?

[sciguyryan]

what refrences do i need?

Microsoft Outlook xxx Object Library

Where xxx is the version nmber of your Outlook package

Cheers,

RyanJ

[Jacob Roman]

You don't have to use references when you use VBScript in VB just to let you know.
But his code requires it.

[RobDog888]

There are a couple of variations of what you could do.

You could use VB Script behind a Outlook Form to do this.
You could use VB6 to automate it like posted.
You could use early binding like posted.
You could use late binding so it will work without any references (vb script or vb6).
'...
'...

[Xiarcel]

If you don't want to add references

Private Sub Command1_Click()
  Dim o As Object, ns As Object
  Dim fldr As Object, ctcItems As Object
  Dim j As Integer
  Dim ctc As Object
  Set o = CreateObject("Outlook.Application")
  Set ns = o.GetNamespace("MAPI")
  Set fldr = ns.GetDefaultFolder(10)
  Set ctcItems = fldr.Items
  For j = 1 To ctcItems.Count
     On Error Resume Next
     List1.AddItem ctcItems.Item(j).FullName
  Next j
End Sub