' The following example codes demonstrate retrieving email from IMAP4 server
' To get full sample projects, please download and install EAGetMail on your machine.
' To run it correctly, please change email server, user, password, folder, file name value to yours

Imports System.IO 

' Imports EAGetMail namespace
Imports EAGetMail 

Module Module1 
    Sub Main() 
        ' Create a folder named "inbox" under current directory
        ' to save the email retrieved.
        Dim curpath As String = Directory.GetCurrentDirectory() 
        Dim mailbox As String = [String].Format("{0}\inbox", curpath) 

        ' If the folder is not existed, create it.
        If Not Directory.Exists(mailbox) Then 
            Directory.CreateDirectory(mailbox) 
        End If 

        Dim oServer As New MailServer("imap.emailarchitect.net", _ 
            "test@emailarchitect.net", "testpassword", ServerProtocol.Imap4) 
        Dim oClient As New MailClient("TryIt") 

        ' Set IMAP4 port
        oServer.Port = 143 

        ' If your IMAP4 server requires SSL connection,
        ' Please add the following codes:
        ' oServer.SSLConnection = True
        ' oServer.Port = 993

        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 IMAP4 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}.eml", _ 
                     mailbox, sdate, d.Millisecond.ToString("d3"), i) 

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

                ' Mark email as deleted from IMAP4 server.
                oClient.Delete(info) 
            Next 

            ' Quit and pure emails marked as deleted from IMAP4 server.
            oClient.Quit() 
        Catch ep As Exception 
            Console.WriteLine(ep.Message) 
        End Try 

    End Sub 
End Module