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