' The following example codes demonstrate retrieving email over SSL connection 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

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 = "imap.emailarchitect.net" 
    oServer.User = "test@emailarchitect.net" 
    oServer.Password = "testpassword" 
    oServer.Protocol = MailServerImap4 

    ' Enable SSL connection
    oServer.SSLConnection = True 

    ' Set 993 SSL IMAP4 port
    oServer.Port = 993 

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

    oClient.Connect oServer 
    MsgBox "Connected" 

    Dim infos 
    infos = oClient.GetMailInfos() 
    MsgBox UBound(infos) + 1 & " emails" 

    Dim i As Integer 
    For i = LBound(infos) To UBound(infos) 
        Dim info As EAGetMailObjLib.MailInfo 
        Set info = infos(i) 
        MsgBox "Index: " & info.Index & "; Size: " & info.Size & _ 
        "; UIDL: " & info.UIDL 

        ' Receive email from IMAP4 server
        Dim oMail As EAGetMailObjLib.Mail 
        Set oMail = oClient.GetMail(info) 

        MsgBox "From: " & oMail.From.Address & _ 
            vbCrLf & "Subject: " & oMail.Subject 

        Dim fileName As String 
        ' Generate a random file name by current local datetime,
        ' You can use your method to generate the filename if you do not like it
        fileName = mailbox & "\" & oTools.GenFileName(i) & ".eml 

        ' 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 
    Exit Sub 

ErrorHandle: 
    MsgBox Err.Description 
End Sub