Outlook, nicht Standart- Ordner lesen.

Private Sub Command1_Click()
Dim objOutlook As Outlook.Application
Dim objMapi As Outlook.Namespace
Dim Anzahl As Integer
Set objOutlook = New Outlook.Application
Set objMapi = objOutlook.GetNamespace("MAPI")
Anzahl = 0
For i = 1 To objMapi.GetDefaultFolder(6).UnReadItemCount
Anzahl = Anzahl + 1
Next
MsgBox Anzahl & " ungelesene Nachricht(en) !", vbInformation, "Outlook Postfach"
Set objMapi = Nothing
Set objOutlook = Nothing
End Sub

Nun möchte ich einen Outlookordner (Name= "sonstige"), den ich angelegt habe auslesen.
Mit GetDefaultFolder(...) bekomme ich nur die Standartordner gelesen.
Könnt Ihr mir helfen?
Gruß
Tino