[Tut]Using VB.net to recieve emails

Imports System.IO
Imports System
Imports EAGetMail 'imports EAGetMail namespace

' to save the email retrieved.
    Dim curpath As String = Directory.GetCurrentDirectory()
    Dim mailbox As String = [String].Format("{0}\inbox", curpath)
    Dim r As IO.StreamReader

  Dim oServer As New MailServer("pop.gmail.com", _
            "yourusername@gmail.com", "yourpassword", ServerProtocol.Pop3)
        Dim oClient As New MailClient("TryIt")
        oServer.SSLConnection = True
        oServer.Port = 995
        Try
            oClien*****nnect(oServer)
            Dim infos As MailInfo() = oClient.GetMailInfos()
            For i As Integer = 0 To infos.Length - 1
                Dim info As MailInfo = infos(i)
                Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}", _
                        info.Index, info.Size, info.UIDL)

                'receive email from POP3 server
                Dim oMail As Mail = oClient.GetMail(info)

                Console.WriteLine("From: {0}", oMail.From.ToString())
                Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject)

                'generate an email file name based on date time.
                Dim d As System.DateTime = System.DateTime.Now
                Dim cur As New System.Globalization.CultureInfo("en-US")
                Dim sdate As String = d.ToString("yyyyMMddHHmmss", cur)
                Dim fileName As String = [String].Format("{0}\{1}{2}{3}.txt", _
                     mailbox, sdate, d.Millisecond.ToString("d3"), i)

                'save email to local disk
                oMail.SaveAs(fileName, True)

                'mark email as deleted from POP3 server.
                oClient.Delete(info)
            Next
            'quit and pure emails marked as deleted from POP3 server.
            oClient.Quit()
        Catch ep As Exception
            Console.WriteLine(ep.Message)
        End Try

Imports System.IO
Imports System
Imports EAGetMail 'imports EAGetMail namespace

Public Class Form1
    ' to save the email retrieved.
    Dim curpath As String = Directory.GetCurrentDirectory()
    Dim mailbox As String = [String].Format("{0}\inbox", curpath)
    Dim r As IO.StreamReader
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Directory.Exists(mailbox) Then
            Directory.CreateDirectory(mailbox)
        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oServer As New MailServer("pop.gmail.com", _
            "username@gmail.com", "passwordr", ServerProtocol.Pop3)
        Dim oClient As New MailClient("TryIt")

        'if your POP3 server requires SSL connection,
        'please add the following codes:
        oServer.SSLConnection = True
        oServer.Port = 995

        Try
            oClien*****nnect(oServer)
            Dim infos As MailInfo() = oClient.GetMailInfos()
            For i As Integer = 0 To infos.Length - 1
                Dim info As MailInfo = infos(i)
                Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}", _
                        info.Index, info.Size, info.UIDL)

                'receive email from POP3 server
                Dim oMail As Mail = oClient.GetMail(info)

                Console.WriteLine("From: {0}", oMail.From.ToString())
                Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject)

                'generate an email file name based on date time.
                Dim d As System.DateTime = System.DateTime.Now
                Dim cur As New System.Globalization.CultureInfo("en-US")
                Dim sdate As String = d.ToString("yyyyMMddHHmmss", cur)
                Dim fileName As String = [String].Format("{0}\{1}{2}{3}.txt", _
                     mailbox, sdate, d.Millisecond.ToString("d3"), i)

                'save email to local disk
                oMail.SaveAs(fileName, True)

                'mark email as deleted from POP3 server.
                oClient.Delete(info)
            Next
            'quit and pure emails marked as deleted from POP3 server.
            oClient.Quit()
        Catch ep As Exception
            Console.WriteLine(ep.Message)
        End Try
           End Sub
end class