Private Sub DoMailCheck()
  Dim lngMsgCount As Long
  Dim lngSize As Long
  Dim lngIndex As Long
  Dim itemX As ListItem
  Dim oHeader As sevMailActiveX.HeaderInfo
 
  ' Liste löschen
  lvwMails.ListItems.Clear
  'cmdFetch.Enabled = False
  'cmdDelete.Enabled = False
 
  With sevPOP1
    ' Anmelde-Daten
    .ServerName = "mail.mein50plus.de"
    .ServerPort = 110
    .username = Trim(email1) 'Aus dem Formular
    .password = Trim(paswwd_klar) 'Aus dem Formular
    Debug.Print email1, paswwd_klar
    .DeleteFromServer = False
    ' am POP3-Server anmelden
    lblStatus.Caption = "Anmelden an " & .ServerName
    If Not .IsConnected Then
      If Not .connect() Then
        ' Fehler bei der Anmeldung!
        lblStatus.Caption = "Fehler: " & .POP3ErrorText
      End If
    End If
 
    ' Verbunden?
    DoEvents
    picProgress.Tag = "NoAction"
    If .IsConnected Then
      ' Sind neue Nachrichten vorhanden?
      Debug.Print "connected"
      ' 1 Sekunde warten, hat aber keinen Einfluss auf den Mailempfang
      'Call Wait(1)
      DoEvents
      lngMsgCount = .NewMailsAvailable(lngSize)
      Debug.Print "Anzahl Messages", email1, lngMsgCount, lngSize
      If lngMsgCount > 0 Then
        ' Anzahl Nachrichten + Gesamtgröße
        lblStatus.Caption = CStr(lngMsgCount) & " Nachrichten (" & CStr( _
          lngSize) & " Bytes)"
 
        picProgress.value = 0
        picProgress.max = lngMsgCount
        picProgress.visible = True
 
        ' Jetzt einzelne Nachrichten-Infos abholen
        For lngIndex = 1 To lngMsgCount
          picProgress.value = lngIndex
          DoEvents
 
          ' Nachrichten-Infos im ListView anzeigen
          Set oHeader = .HeaderInfo(lngIndex)
          With oHeader
            Set itemX = lvwMails.ListItems.add(, "Msg_" & CStr(lngIndex), _
              .MailDate & " " & .MailTime)
            itemX.SubItems(1) = .MailFrom
            itemX.SubItems(2) = .Subject
            itemX.SubItems(3) = FormatSize(.Size)
            itemX.SubItems(4) = .id
            itemX.Checked = True
          End With
        Next
        picProgress.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
    'picProgress.Tag = ""
  End With
  Screen.MousePointer = vbNormal
End Sub