With sevPOP1
  ...
  ' Verbindung wurde hergestellt, 
  ' zunächst Informationen über die vorhandenen
  ' Nachrichten abrufen
  Dim oHeader As sevMailActiveX.HeaderIndo
  Dim lngIndex As Long
  Dim lngMsgCount As Long
  Dim lngSize As Long
  Dim itemX As ListItem
 
  ' Anzahl der neuen Nachrichten ermitteln
  lngMsgCount = .NewMailsAvailable(lngSize)
  If lngMsgCount > 0 Then
    ' Neue Nachrichten vorhanden!
    ' Jetzt einzelne Nachrichten-Infos abholen
    For lngIndex = 1 To lngMsgCount
      ' Nachrichten-Infos im ListView anzeigen
      Set oHeader = .HeaderInfo(lngIndex)
      With oHeader
        ' Datum/Uhrzeit
        Set itemX = lvwMails.ListItems.Add(, "Msg_" & CStr(lngIndex), _
          .MailDate & " " & .MailTime)
 
        ' Absender
        itemX.SubItems(1) = .MailFrom
 
        ' Betreff
        itemX.SubItems(2) = .Subject
 
        ' Größe der Mail in Bytes
        itemX.SubItems(3) = CStr(.Size)
 
        ' Message-ID
        itemX.SubItems(4) = .Id
      End With
    Next
  Else
    MsgBox "Keine neuen Nachrichten vorhanden!"
  End If
End With

 Dim oHeader As sevMailActiveX.HeaderIndo