VB.NET - Parse Outlook MSG file (.msg) and convert it to RFC822 message (.eml)¶

Imports System.Text
Imports System.IO
Imports EAGetMail ' Imports EAGetMail namespace

Module Module1
    Sub ParseMSG(ByVal msgFile As String)
        Dim oMail As New Mail("TryIt")
        oMail.LoadOMSG(msgFile)

        ' 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()
        Try
            ParseMSG("c:\my folder\test.msg")
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Module

Imports System.Text
Imports System.IO
Imports EAGetMail ' Imports EAGetMail namespace

Module Module1
    Private Sub ConvertMSGToRfc822(ByVal msgFile As String, ByVal emlFile As String)
        Dim oMail As New Mail("TryIt")
        oMail.LoadOMSG(msgFile)
        oMail.Update()

        oMail.SaveAs(emlFile, True)
    End Sub

    Sub Main()
        Try
            ConvertMSGToRfc822("c:\my folder\test.msg", "c:\my folder\test.eml")
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Module