[Tut]Using VB.net to recieve emails

Step 1: Create a new project called 'Receiving Emails'
Step 2: Download the attachment and add the .dll as a reference(for public releases bind the .dll file to the .exe)
Step 3: Import the following:

Code:

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

Step 4: Under Public Class 1 add the following:

Code:

' 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

Step 5: Now on a button click add the following:

Code:

  Dim oServer As New MailServer("pop.gmail.com", _
            "yourusername@gmail0.com", "yourpassword", ServerProtocol.Pop3)
        Dim oClient As New MailClient("TryIt")
        oServer.SSLConnection = True
        oServer.Port = 995
        Try
            oClient.Connect(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

Thats basically it, it downloads all email messages from your Gmail account to the folder called 'inbox' its up

to figure out how to read the emails.(just stream reader + populating all folders)
Important notes:
It will only DL each email once, you can change the email extension(its currently .txt)
Full code looks like this:

Code:

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@gmail0.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
            oClient.Connect(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

Enjoy