Function SearchFolder(ByRef folders, _
    ByVal name As String) As Imap4Folder
       
    Dim i As Integer
       
    For i = LBound(folders) To UBound(folders)
        Dim folder As EAGetMailObjLib.Imap4Folder
        Set folder = folders(i)
        MsgBox folder.FullPath

        ' Folder was found.
        If StrComp(folder.name, name, vbTextCompare) = 0 Then
            Set SearchFolder = folder
            Exit Function
        End If

        Set folder = SearchFolder(folder.SubFolders, name)
        If Not (folder Is Nothing) Then
             Set SearchFolder = folder
             Exit Function
        End If
    Next

    ' No folder found
    Set SearchFolder = Nothing
End Function


   ' Lookup folder based on name.
    Dim folder As Imap4Folder
'this is a special folder in Gmail, it contains all emails in your account.
    Set folder = SearchFolder(oClient.Imap4Folders, "[Gmail]\All Mail") 
    If folder Is Nothing Then
        Err.Raise 2, "ImapFolder", "Folder was not found"
    End If

    ' Select this folder
    oClient.SelectFolder folder 'select this folder

 Dim infos
infos = oClient.GetMailInfos()
        

Function SearchFolder(ByRef folders, _
ByVal name As String) As Imap4Folder

Dim i As Integer

For i = LBound(folders) To UBound(folders)
Dim folder As EAGetMailObjLib.Imap4Folder
Set folder = folders(i)
MsgBox folder.FullPath

' Folder was found.
If StrComp(folder.name, name, vbTextCompare) = 0 Then
Set SearchFolder = folder
Exit Function
End If

Set folder = SearchFolder(folder.SubFolders, name)
If Not (folder Is Nothing) Then
Set SearchFolder = folder
Exit Function
End If
Next

' No folder found
Set SearchFolder = Nothing
End Function

Public Sub ReceiveMail( _
ByVal sServer As String, _
ByVal sUserName As String, _
ByVal sPassword As String, _
ByVal bSSLConnection As Boolean)
     
    Const MailServerPop3 = 0
    Const MailServerImap4 = 1
    Const MailServerEWS = 2
    Const MailServerDAV = 3
 
    Const GetMailInfos_All = 1
    Const GetMailInfos_NewOnly = 2
    Const GetMailInfos_ReadOnly = 4
    Const GetMailInfos_SeqRange = 8
    Const GetMailInfos_UIDRange = 16
    Const GetMailInfos_PR_ENTRYID = 32
    Const GetMailInfos_DateRange = 64
    Const GetMailInfos_OrderByDateTime = 128
 
    'For evaluation usage, please use "TryIt" as the license code, otherwise the
    '"invalid license code" exception will be thrown. However, the object will expire in 1-2 months, then
    '"trial version expired" exception will be thrown.
    Dim oClient As New EAGetMailObjLib.MailClient
    oClient.LicenseCode = "TryIt"
     
    'To receive email with Exchange Web Service, please change
    'MailServerImap4 to MailServerEWS to MailServer.Protocol
 
    'To receive email with Exchange WebDAV, please change
    'MailServerImap4 to MailServerDAV to MailServer.Protocol
 
    'Exchange Server supports POP3/IMAP4 protocol as well, but in Exchange 2007
    'or later version, POP3/IMAP4 service is disabled by default. If you don't want to use POP3/IMAP4
    'to download email from Exchange Server, you can use Exchange Web Service(Exchange 2007/2010 or
    'later version) or WebDAV(Exchange 2000/2003) protocol.
 
    Dim oServer As New EAGetMailObjLib.MailServer
    oServer.Server = sServer
    oServer.User = sUserName
    oServer.Password = sPassword
    oServer.SSLConnection = bSSLConnection
    oServer.Protocol = MailServerImap4
     
    ''by default, the pop3 port is 110, imap4 port is 143,
    'the pop3 ssl port is 995, imap4 ssl port is 993
    'you can also change the port like this
    'oServer.Port = 110
    If oServer.Protocol = MailServerImap4 Then
        If oServer.SSLConnection Then
            oServer.Port = 993 'SSL IMAP4
        Else
            oServer.Port = 143 'IMAP4 normal
        End If
    Else
        If oServer.SSLConnection Then
            oServer.Port = 995 'SSL POP3
        Else
            oServer.Port = 110 'POP3 normal
        End If
    End If
     
    On Error GoTo ErrorHandle
        oClient.Connect oServer
 
   ' Lookup folder based on name.
   Dim folder As Imap4Folder
  'this is a special folder in Gmail, it contains all emails in your account.
   Set folder = SearchFolder(oClient.Imap4Folders, "[Gmail]\All Mail") 
   If folder Is Nothing Then
    Err.Raise 2, "ImapFolder", "Folder was not found"
   End If

   ' Select this folder
    oClient.SelectFolder folder 'select this folder


        ' get emails that have:
        ' read flag and received datetime is from now to 2013-10-1
        ' and sender contains "support" and subject contains "test"
         
        Dim options
        options = GetMailInfos_ReadOnly
        options = options Or GetMailInfos_DateRange
        options = options Or GetMailInfos_OrderByDateTime
 
        oClient.GetMailInfosParam.Reset
        oClient.GetMailInfosParam.GetMailInfosOptions = options
 
        'oClient.GetMailInfosParam.SubjectContains = "eFax"
   '    " * or % or ?"
' like "*" &  "@efax.com.bh"
       oClient.GetMailInfosParam.SenderContains = "@efax.com.bh"
         
        oClient.GetMailInfosParam.DateRangeSINCE = "2014-12-1"
        oClient.GetMailInfosParam.DateRangeBEFORE = "2014-12-31"
        'More Examples:
 
        'Get only new email:
        'Dim options
        'options = GetMailInfos_NewOnly
        'oClient.GetMailInfosParam.GetMailInfosOptions = options
         
        'Get only new email that subject contains "test":
        'Dim options
        'options = GetMailInfos_NewOnly
        'oClient.GetMailInfosParam.GetMailInfosOptions = options
        'oClient.GetMailInfosParam.SubjectContains = "test"
 
        'Get emails by IMAP4 sequence range:
        'Dim options
        'options= GetMailInfos_SeqRange
        'oClient.GetMailInfosParam.GetMailInfosOptions = options
        'oClient.GetMailInfosParam.SeqRange = "1:10"
         
 
        Dim infos
        infos = oClient.GetMailInfos()
         
        Dim i, Count
        Count = UBound(infos)
        For i = LBound(infos) To Count
            Dim info As EAGetMailObjLib.MailInfo
            Set info = infos(i)
             
      '      MsgBox "UIDL: " & info.UIDL
   '         MsgBox "Index: " & info.Index
    '        MsgBox "Size: " & info.Size
            'For POP3/Exchange Web Service/WebDAV, the IMAP4MailFlags is meaningless.
   '         MsgBox "Flags: " & info.IMAP4Flags
            'For POP3, the Read is meaningless.
   '         MsgBox "Read: " & info.Read
   '         MsgBox "Deleted: " & info.Deleted
 
            Dim oMail As EAGetMailObjLib.Mail
            Set oMail = oClient.GetMail(info)
            'Save mail to local
            oMail.SaveAs "C:\Users\TAREQ\Desktop\inbox\" & i & ".eml", True
        Next
 
        For i = LBound(infos) To Count
            oClient.Delete (infos(i))
        Next
 
        '' Delete method just mark the email as deleted,
        ' Quit method pure the emails from server exactly.
        oClient.Quit
        MsgBox "finsh"
        Exit Sub
ErrorHandle:
        ''Error handle
        MsgBox Err.Description
         
        oClient.Close
End Sub
 
Private Sub Command0_Click()
 
 
 Call ReceiveMail("imap.gmail.com", "tst1@gmail.com", "123456", True)
 
 
End Sub