VB.NET - Verify digital signature and decrypt email - S/MIME¶

Imports System.Globalization
Imports System.Text
Imports System.IO
Imports EAGetMail 'imports EAGetMail namespace
Imports System.Security.Cryptography.X509Certificates

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 decryptCert As New X509Certificate2("D:\mycert\test.pfx",
                '     "nosecret",
                '      X509KeyStorageFlags.Exportable Or X509KeyStorageFlags.UserKeySet)
                ' oMail.DecryptMessage(decryptCert)

                oMail.DecryptMessage(Nothing)
            Catch ep As Exception
                Console.WriteLine(ep.Message)
            End Try
        End If

        If oMail.IsSigned Then

            Try
                Dim signerCert As X509Certificate2 = oMail.VerifyMessageSignature()
                Console.WriteLine("This email contains a valid digital signature.")

                ' You can add the certificate to your certificate storage like this
                ' Dim store As New X509Store("My", StoreLocation.CurrentUser)
                ' store.Open(OpenFlags.ReadWrite)
                ' store.Add(signerCert)
                ' store.Close()
                ' then you can use send the encrypted email back to this sender.

            Catch ep As Exception
                Console.WriteLine(ep.Message)
            End Try
        End If

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

    End Sub
End Module