Standard-Email-Account nehmen

Public Sub InboxCheck()
Dim olapp        As Object
Dim olName       As Object
Dim olHFolder    As Object
Dim olUFolder    As Object
Dim objFolder    As Object
Dim olItemsCount As Long
Dim Min30 As Date
Dim ReceiT As Date
Dim EmailAccount As String
On Error Resume Next
EmailAccount = "test@test.de"         'EmailAccount festlegen
Min30 = DateAdd("n", -30, Now())                        'jetzt und 30 Minuten zurück
Set olapp = CreateObject("Outlook.Application")
Set olName = olapp.GetNamespace("MAPI")
Set olHFolder = olName.Session.Folders(EmailAccount)    ' Kontoname
Set olUFolder = olHFolder.Folders("Posteingang")        'Ordnername
For olItemsCount = 1 To olUFolder.Items.Count
With olUFolder.Items.Item(olItemsCount)
ReceiT = .receivedtime             'für Debug only
If ReceiT > Min30 Then
If LCase(.Subject) = LCase("Mein Testbetreff") Then
UF_Einsatzprotokolle.CommandButton9.Enabled = True
Exit For
End If
Else
UF_Einsatzprotokolle.CommandButton9.Enabled = False
ReceiT = ReceiT             'Debug only
End If
End With
Next olItemsCount
End Sub