With Me.sevPOP
    ' Anmelde-Daten
    .ServerName = "post.strato.de"
    .ServerPort = 110
    .UserName = "XXX.com"
    .Password = "xxxxxxxxxxx"
    .DeleteFromServer = 0
    ' ggf. abmelden
    .Disconnect
    ' am POP3-Server anmelden
    Screen.MousePointer = vbHourglass
    lblStatus.Caption = "Anmelden an Strato "
    If Not .Connect() Then
        ' Fehler bei der Anmeldung!
        lblStatus.Caption = "Fehler: " & .POP3ErrorText & ", " & .LastResponse
    Else
        ' Sind neue Nachrichten vorhanden?
        lngMsgCount = .NewMailsAvailable(lngSize)
        If lngMsgCount > 0 Then
            ' Anzahl Nachrichten + Gesamtgröße
            lblStatus.Caption = CStr(lngMsgCount) & " Nachrichten (" & CStr( _
              lngSize) & " Bytes)"
            ProgressBar1.Max = lngMsgCount
            ProgressBar1.Value = 0
            ProgressBar1.Visible = True
            ' Jetzt einzelne Nachrichten-Infos abholen
            For lngIndex = 1 To lngMsgCount
                ProgressBar1.Value = lngIndex
                DoEvents
                Call CheckTxMail(.HeaderInfo(lngIndex), lngIndex)
            Next
            ProgressBar1.Visible = False
        Else
            If .POP3Error <> 0 Then
                ' Fehler!
                lblStatus.Caption = "Fehler: " & .POP3ErrorText
            Else
              ' keine Nachrichten vorhanden
              lblStatus.Caption = "Keine Nachrichten vorhanden..."
            End If
        End If
    End If
    ' Abmelden
    If .POP3Error <> 0 Then .Disconnect
End With