mit diesem Code ermittle ich, wie viele ungelesene Nachrichten sich in meinem Posteingang befinden.
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