' The following example codes demonstrate parsing email (*.EML) file
' 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 

Private Sub ParseEmail(ByVal emlFile As String) 
    Dim oMail As New EAGetMailObjLib.Mail 
    oMail.LicenseCode = "TryIt" 

On Error GoTo ErrorHandle 
    oMail.LoadFile emlFile, False 

    ' Parse email sender
    MsgBox "From: " & oMail.From.Address 

    Dim arAddr 
    Dim i As Integer 
    Dim addr As EAGetMailObjLib.MailAddress 

    ' Parse email to recipients
    arAddr = oMail.To 
    For i = LBound(arAddr) To UBound(arAddr) 
        Set addr = arAddr(i) 
        MsgBox "To: " & addr.Address 
    Next 

    ' Parse email cc
    arAddr = oMail.Cc 
    For i = LBound(arAddr) To UBound(arAddr) 
        Set addr = arAddr(i) 
        MsgBox "Cc: " & addr.Address 
    Next 

    ' Parse email subject
    MsgBox "Subject: " & oMail.Subject 

    ' Parse email text body
    MsgBox "Text body: " & oMail.TextBody 

    ' Parse email HTML body
    MsgBox "Html body: " & oMail.HtmlBody 

    Dim atts 
    Dim att As EAGetMailObjLib.Attachment 

    ' Parse attachments
    atts = oMail.Attachments 
    For i = LBound(atts) To UBound(atts) 
        Set att = atts(i) 
        MsgBox "Attachment: " & att.name 
    Next 

    Exit Sub 
ErrorHandle: 
    MsgBox Err.Description 
End Sub 

Private Sub Command1_Click() 

    ParseEmail "c:\my folder\test.eml" 

    Exit Sub 
ErrorHandle: 
    MsgBox Err.Description 
End Sub