VB.NET - Parse winmail.dat (TNEF)¶

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

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

        If oMail.IsEncrypted Then
            Try
                ' This email is encrypted, we decrypt it by user default certificate.
                ' you can also use specified certificate like this
                ' Dim oCert As New Certificate()
                ' oCert.Load("c:\test.pfx", "pfxpassword", _
                ' Certificate.CertificateKeyLocation.CRYPT_USER_KEYSET)
                ' oMail = oMail.Decrypt(oCert)
                oMail = oMail.Decrypt(Nothing)
            Catch ep As Exception
                Console.WriteLine(ep.Message)
            End Try
        End If

        If oMail.IsSigned Then
            Try
                ' This email is digital signed.
                Dim signerCert As Certificate = oMail.VerifySignature()
                ' You can add the certificate to your certificate storage like this
                ' signerCert.AddToStore(
                '  Certificate.CertificateStoreLocation.CERT_SYSTEM_STORE_CURRENT_USER,
                '  "addressbook")
                ' Then you can use send the encrypted email back to this sender.
                Console.WriteLine("This email contains a valid digital signature.")
            Catch ep As Exception
                Console.WriteLine(ep.Message)
            End Try
        End If

        ' Decode winmail.dat (TNEF) and RTF body automatically
        oMail.DecodeTNEF()

        ' 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
            Dim att As Attachment = atts(i)
            Console.WriteLine("Attachment: {0}", att.Name)
        Next
    End Sub

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

    End Sub
End Module