' The following example codes demonstrate downloading email from POP3 server in background
' 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("pop3.emailarchitect.net", "test@emailarchitect.net", _ 
             "testpassword", 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 
            ' Leave a copy of message on server.
            Dim leaveCopy As Boolean = True 

            ' Download emails to this local folder
            Dim downloadFolder As String = mailbox 

            ' Send request to EAGetMail Service, then EAGetMail Service retrieves email
            ' in background and this method returns immediately.
            oClient.GetMailsByQueue(oServer, downloadFolder, leaveCopy) 
        Catch ep As Exception 
            Console.WriteLine(ep.Message) 
        End Try 
    End Sub 
End Module