' 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

Imports System.Collections 
Imports System.Text 
Imports System.IO 

' Imports EAGetMail namespace
Imports EAGetMail 

Module Module1 
    Private Sub ParseEmail(ByVal emlFile As String) 
        Dim oMail As New Mail("TryIt") 
        oMail.Load(emlFile, False) 

        ' Parse Mail From/Sender
        Console.WriteLine("From: {0}", oMail.From.ToString()) 

        ' Parse Mail To/Recipient
        Dim addrs As MailAddress() = oMail.[To] 
        For i As Integer = 0 To addrs.Length - 1 
            Console.WriteLine("To: {0}", addrs(i).ToString()) 
        Next 

        ' Parse Mail CC
        addrs = oMail.Cc 
        For i As Integer = 0 To addrs.Length - 1 
            Console.WriteLine("To: {0}", addrs(i).ToString()) 
        Next 

        ' Parse Mail Subject
        Console.WriteLine("Subject: {0}", oMail.Subject) 

        ' Parse Mail Text/Plain body
        Console.WriteLine("TextBody: {0}", oMail.TextBody) 

        ' Parse Mail Html Body
        Console.WriteLine("HtmlBody: {0}", oMail.HtmlBody) 

        ' Parse Attachments
        Dim atts As Attachment() = oMail.Attachments 
        For i As Integer = 0 To atts.Length - 1 
            Console.WriteLine("Attachment: {0}", atts(i).Name) 
        Next 
    End Sub 

    Sub Main() 

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

    End Sub 
End Module