Outlook VBA

[_Markus]

Hallo, ich möchte in Outlook 2010 die Anzahl meiner Adressbuch- Einträge
zählen lassen, und diese dann in einer Userform anzeigen.
Ich habe nun folgenden Code entwickelt:

Sub AdressData()
  Dim ol As New Outlook.Application
  Dim olns As Outlook.NameSpace
  Dim cf As Outlook.MAPIFolder
  Dim c As Outlook.ContactItem
  Dim objItems As Outlook.Items
  Dim Prop As Outlook.UserProperty
  Set cf = olns.GetDefaultFolder(olFolderContacts)
  Set objItems = cf.Items
  iNumContacts = objItems.Count
  
  UserForm1.TextBox1.Text = Str(iNumContacts)
End Sub

Private Sub Beenden_Click()
  End
End Sub

Private Sub Suche_Click()
  AdressData
End Sub

So, wenn ich jetzt auf den Suche-Button klicke, soll in Textfeld1 die
Anzahl der Einträge erscheinen, das mache ich durch
" iNumContacts = objItems.Count".

Wenn dich den Code jetzt ausführe, bekomme ich folgende Fehlermeldung:

Run-time Error '91':

Objekt variable or White block variable not set

Ich verstehe das nicht, warum kann ich nicht auf "Kontakte" zugreifen?
Hat jemand Rat für mich?

[Wowbagger]

Ich kann's gerade nicht testen, aber versuche mal, den Namespace vorher mit set zuzuweisen

Set olns = ol.GetNamespace("MAPI")
Set cf = olns.GetDefaultFolder(olFolderContacts)

---

ggf. cf anders deklarieren:

Dim cf As Outlook.Folder