Private Sub Application_Startup()
  Dim Oi As Object
  Dim Of As Object
  Dim c As Long     ' Zähler für ungelesene Mails
  Set inbox = Application.GetNamespace("MAPI"). _
GetDefaultFolder(olFolderInbox)
 
 
  ' Für jedes Postfach
  For Each Of In Outlook.Session.Folders
    ' Fehler Pop-Up wird unterdrückt
    ' On Error Resume Next
    c = inbox.UnReadItemCount
    ' -> Führt zum Fehler, wenn der Mailserver nicht erreicht wird
    If Err.Number = 0 Then  ' es liegt kein Fehler vor
      On Error GoTo 0   ' Fehler Pop-Up wird re-aktiviert
      ' Für jede Mail im Ordner Inbox
      For Each Oi In inbox.Items
        If Oi.UnRead Then
          If TypeName(Oi) = "MailItem" Then
            MN.neue_mail Oi.EntryID
          End If
          c = c - 1
          If c = 0 Then Exit For
        End If
      Next Oi
    End If
  Next Of
  ' Fehler Pop-Up wird re-aktiviert
  On Error GoTo 0
 
  ' Excel speichern und schließen
  GL.close_XL
End Sub