Mit Excel Outlooknachrichten zählen

Sub OutlookPosteingang()
Dim lngIndex As Long, lngCur As Long, lngCount As Long, lngRow As Long
Dim olApp As Outlook.Application
Dim olVerz As Outlook.MAPIFolder, olSubVerz1 As Outlook.MAPIFolder, olSubVerz2 As Outlook.   _
_
_
_
MAPIFolder
'On Error Resume Next
Set olApp = CreateObject("Outlook.Application")
For Each olVerz In olApp.GetNamespace("Mapi").Folders
If olVerz.Name = "test@test.de" Then
Set olSubVerz1 = olVerz
Exit For
End If
Next olVerz
If Not olSubVerz1 Is Nothing Then
For Each olVerz In olSubVerz1.Folders
If olVerz.Name = "Posteingang" Then
Set olSubVerz2 = olVerz
Exit For
End If
Next olVerz
End If
If Not olSubVerz2 Is Nothing Then
Range("B27") = olSubVerz2.Items.Count
Else
MsgBox "kein Postfach bzw. Postfach-Ordner gefunden!", vbCritical Or vbSystemModal
End If
Set olSubVerz2 = Nothing
Set olSubVerz1 = Nothing
Set olVerz = Nothing
Set olApp = Nothing
End Sub