If lngMsgCount > 0 Then
 
 
        For i = 1 To lngMsgCount 'geht alle emails auf dem server durch
        Text2 = "Emails " & lngMsgCount - i 'alle emails durchgehen
        DoEvents
        Set oHeader = .HeaderInfo(i)
         With oHeader
 
        Text4 = "Absender: " & oHeader.MailFrom  >>>Hier tritt der Fehler auf <<<
 
        Text5 = "Organisation: " & oHeader.Organization
        Text6 = "Betreff: " & oHeader.Subject
       Text7 = "Anhang: " & oHeader.Attachments
       Text8 = "Email: " & oHeader.Size 'größe der email in bytes
      End With