...
Dim HeaderI As sevMailActiveX.HeaderInfo
Dim AnzahlNeueMails as Long
Dim z1 As Long
AnzahlNeueMails = sevPop.NewMailsAvailable()
For z1 = 1 To AnzahlNeueMails
   If sevPop.IsConnected Then
      Set HeaderI = Nothing
      'Gibt nach ca. der Hälfte der neuen Mails keinen Header
      'mehr zurück
      Set HeaderI = .HeaderInfo(z1)
      If not HeaderI is Nothing Then
         ...
         'Wenn Header != Nothing dann funktioniert das bestens
         If sevPOP.FetchMailByID(HeaderI.ID, Dateipfad, True) Then
            ...
      else
         ...
         'Das hier funktioniert nicht wenn der Header == Nothing ist
         If sevPOP.FetchMail(z1, Dateipfad, True) Then
            'Nach diesem Aufruf ist sevPop.IsConnected = False
            'Bedeutet beim nächsten Schleifendurchlauf
            'breche ich das Laden ab
            ...
 
      End if
    else
       'Abbrechen des Schleifendurchlaufs
       Exit For
    End if
Next z1