' 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

Option Explicit 

Const MailServerPop3 = 0 
Const MailServerImap4 = 1 

Private Sub Command1_Click() 
    Dim curpath As String 
    Dim mailbox As String 
    Dim oTools As New EAGetMailObjLib.Tools 

    ' Create a folder named "inbox" under current directory
    ' to save the email retrieved.
    curpath = App.Path 
    mailbox = curpath & "\inbox" 
    oTools.CreateFolder mailbox 

    Dim oServer As New EAGetMailObjLib.MailServer 
    oServer.Server = "pop3.emailarchitect.net" 
    oServer.User = "test@emailarchitect.net" 
    oServer.Password = "testpassword" 
    oServer.Protocol = MailServerPop3 

    ' If your POP3 requires SSL connection
    ' Please add the following codes
    ' oServer.SSLConnection = True
    ' oServer.Port = 995

    On Error GoTo ErrorHandle: 
    Dim oClient As New EAGetMailObjLib.MailClient 
    oClient.LicenseCode = "TryIt" 

    ' Leave a copy of message on server.
    Dim leaveCopy As Boolean 
    leaveCopy = True 

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

    ' Send request to EAGetMail Service, then EAGetMail Service retrieves email
    ' in background and this method returns immediately.
    oClient.GetMailsByQueue oServer, downloadFolder, leaveCopy 

    Exit Sub 

ErrorHandle: 
    MsgBox Err.Description 
End Sub