Dim oMessage As New sevMailActiveX.sevMail
            With oMessage
                If .OpenMessage(ServerPfad$ + "mails\" + EMail_Nr$ + ".txt") _
                  Then
                    Dim sFrom As String
                    sFrom = .Header.MailFrom
                    Absender$ = .ExtractEMail(sFrom)
                End If
            End With

Fehler beim Kompilieren:
 
Methode oder Mitgliedsdaten nicht gefunden