Sub Main()
    Dim p As sevMailActiveX.sevPOP
    Dim m As sevMailActiveX.sevMail
    p = CreateObject("sevMailActiveX.sevPOP")
    p.ServerName = "pop3server.de"
    p.ServerPort = 110
    p.UserName = "grobe"
    p.Password = "geheim;)"
 
    p.Connect()
    For i As Integer = 1 To p.NewMailsAvailable
        p.FetchMail(i, "C:\mail.txt")
        m = CreateObject("sevMailActiveX.sevMail")
        m.OpenMail("C:\mail.txt")
        If m.Attachment.AttachCount > 0 Then
            MsgBox(i)
            MsgBox(m.Message.TextPlain)
            MsgBox(m.Header.Subject)
        End If
    Next
    p.Disconnect()
End Sub