Public Class kommunikation_email_abrufen
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim pop As New POP3.Client
        pop.Connect("URL MAILSERVER", "BENUTZERNAME", "PASSWORT") 'Hier die 
        ' Logindaten eintragen
 
        'Liste der auf dem Server vorhanden Nachrichten abrufen
        pop.GetMessageList()
        Dim MessageList As New List(Of POP3.Client.MessageList)
        ' gibt eine List mit ID und Groesse der Mails zurück
        MessageList = pop.GetMessageList()
 
        ' Hier wird z.B. die Mail mit ID Nr. 1 abgerufen
        Dim m() As String = pop.GetMessage(1).Split(vbCrLf)
        For i As Integer = 0 To m.Length - 1
            Debug.Print(m(i))
        Next
        pop.Disconnect()
    End Sub
End Class