Seznam kontaktů z Outlooku

Postup:
Do projektu přidejte odkaz na Microsoft Outlook 9.0 Object Library (platí pro MSO2000). Na formulář dejte tlačítko a ListBox. Na událost Click tlačítka zapište:
Private Sub Command1_Click()


   On Error GoTo Test_Error

   Dim oOutlook As Outlook.Application
   Dim oNameSpace As NameSpace
   Dim oContactFolder As Object
   Dim X As Integer

   Set oOutlook = GetObject(, "Outlook.Application")
   Set oNameSpace = oOutlook.GetNamespace("MAPI")
   Set oContactFolder = oNameSpace.GetDefaultFolder(olFolderContacts)

   X = oContactFolder.Items.Count

   For i = 1 To X
      List1.AddItem oContactFolder.Items(i).FullName & " - " & _
         oContactFolder.Items(i).Email1Address
   Next

   Exit Sub

Test_Error:
   Select Case Err
      Case 429
         ' Pokud není outlook otevřen, tak si ho otevřeme.
         ' Bylo by moudré, aby se pak také zavřel, že.
         Set oOutlook = New Outlook.Application
         Resume Next
      Case Else
         MsgBox Err
   End Select

End Sub

Jaké další informace se nechají z kontaktů vytáhnout zjistíte tak, že si otevřete Object Browser, jako knihovnu zvolíte Outlook a podíváte se na třídu ContactItem.

Zpět