Welcome Guest! To enable all features please Login or Register.



Go to last post Go to first unread
#1 Posted : Tuesday, April 12, 2011 5:22:48 AM(UTC)

Rank: Administration

Groups: Administrators
Joined: 11/11/2010(UTC)
Posts: 1,149

Thanks: 9 times
Was thanked: 54 time(s) in 54 post(s)
Visual Basic.NET Example

The following code demonstrates how to convert email to a HTML page and display it using Web browser in C#.

After the email was converted to HTML page, you can browse it with web browser. You can get everything in the HTML page such as From, To, Cc, Subject, Date, Attachments and Embedded images.


' The following example codes demonstrate converting email to HTML page
' 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.Text.RegularExpressions 
Imports System.IO 

' Imports EAGetMail namespace
Imports EAGetMail 

Module Module1 
    Private Sub ConvertMailToHtml(ByVal fileName As String) 
            Dim pos As Integer = fileName.LastIndexOf(".") 
            Dim mainName As String = fileName.Substring(0, pos) 
            Dim htmlName As String = mainName & ".htm" 

            Dim tempFolder As String = mainName 
            If Not File.Exists(htmlName) Then 

                ' We haven't generate the html for this email, generate it now.
                _GenerateHtmlForEmail(htmlName, fileName, tempFolder) 
            End If 

            Console.WriteLine("Please open {0} to browse your email", htmlName) 
        Catch ep As Exception 
        End Try 
    End Sub 

    Private Function _FormatHtmlTag(ByVal src As String) As String 
        src = src.Replace(">", ">") 
        src = src.Replace("<", "&lt;") 
        Return src 
    End Function 

    ' We generate a html + attachment folder for every email, once the html is create,
    ' next time we don't need to parse the email again.
    Private Sub _GenerateHtmlForEmail(ByVal htmlName As String, _ 
            ByVal emlFile As String, ByVal tempFolder As String) 
        Dim oMail As New Mail("TryIt") 
        oMail.Load(emlFile, False) 

        If oMail.IsEncrypted Then 

                ' This email is encrypted, we decrypt it by user default certificate.
                oMail = oMail.Decrypt(Nothing) 
            Catch ep As Exception 
                oMail.Load(emlFile, False) 
            End Try 
        End If 

        If oMail.IsSigned Then 
                ' This email is digital signed.
                Dim cert As EAGetMail.Certificate = oMail.VerifySignature() 
                Console.WriteLine("This email contains a valid digital signature.") 
            Catch ep As Exception 
            End Try 
        End If 

        ' Parse html body
        Dim html As String = oMail.HtmlBody 
        Dim hdr As New StringBuilder() 

        ' Parse sender
        hdr.Append("<font face=""Courier New,Arial"" size=2>") 
        hdr.Append("<b>From:</b> " & _FormatHtmlTag(oMail.From.ToString()) & "<br>") 

        ' Parse to
        Dim addrs As MailAddress() = oMail.[To] 
        Dim count As Integer = addrs.Length 
        If count > 0 Then 
            hdr.Append("<b>To:</b> ") 
            For i As Integer = 0 To count - 1 
                If i < count - 1 Then 
                End If 
        End If 

        ' Parse cc
        addrs = oMail.Cc 

        count = addrs.Length 
        If count > 0 Then 
            hdr.Append("<b>Cc:</b> ") 
            For i As Integer = 0 To count - 1 
                If i < count - 1 Then 
                End If 
        End If 

        hdr.Append([String].Format("<b>Subject:</b>{0}<br>" & vbCr & vbLf, _ 

        ' Parse attachments and save to local folder
        Dim atts As Attachment() = oMail.Attachments 
        count = atts.Length 
        If count > 0 Then 
            If Not Directory.Exists(tempFolder) Then 
            End If 

            For i As Integer = 0 To count - 1 
                Dim att As Attachment = atts(i) 

                ' This attachment is in OUTLOOK RTF format, decode it here.
                If String.Compare(att.Name, "winmail.dat") = 0 Then 
                    Dim tatts As Attachment() = Nothing 
                        tatts = Mail.ParseTNEF(att.Content, True) 
                    Catch ep As Exception 
                    End Try 

                    Dim y As Integer = tatts.Length 
                    For x As Integer = 0 To y - 1 
                        Dim tatt As Attachment = tatts(x) 
                        Dim tattname As String = String.Format("{0}\{1}", _ 
                                tempFolder, tatt.Name) 
                        tatt.SaveAs(tattname, True) 
                        hdr.Append( _ 
                            String.Format("<a href=""{0}"" target=""_blank"">{1}</a> ", _ 
                            tattname, tatt.Name)) 
                    Continue For 
                End If 

                Dim attname As String = String.Format("{0}\{1}", tempFolder, att.Name) 
                att.SaveAs(attname, True) 
                hdr.Append(String.Format("<a href=""{0}"" target=""_blank"">{1}</a> ", _ 
                        attname, att.Name)) 
                If att.ContentID.Length > 0 Then 

                    ' Show embedded images.
                    html = html.Replace("cid:" + att.ContentID, attname) 
                ElseIf [String].Compare(att.ContentType, 0, "image/", 0, _ 
                        "image/".Length, True) = 0 Then 

                    ' Show attached images.
                    html = html & String.Format("<hr><img src=""{0}"">", attname) 
                End If 
        End If 

        Dim reg As New Regex("(<meta[^>]*charset[ " & vbTab & "]*=[ " _ 
            & vbTab & """]*)([^<> " & vbCr & vbLf & """]*)", _ 
            RegexOptions.Multiline Or RegexOptions.IgnoreCase) 
        html = reg.Replace(html, "$1utf-8") 
        If Not reg.IsMatch(html) Then 
            hdr.Insert(0, _ 
            "<meta HTTP-EQUIV=""Content-Type"" Content=""text-html; charset=utf-8"">") 
        End If 

        ' Write html to file
        html = hdr.ToString() & "<hr>" & html 
        Dim fs As New FileStream(htmlName, FileMode.Create, FileAccess.Write, FileShare.None) 

        Dim data As Byte() = System.Text.UTF8Encoding.UTF8.GetBytes(html) 
        fs.Write(data, 0, data.Length) 
    End Sub 

    Sub Main() 

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

    End Sub 
End Module 

Click here to read original topic - full version ...

If you have any comments or questions about above example codes, please add your comments here.
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Powered by YAF.NET | YAF.NET © 2003-2024, Yet Another Forum.NET
This page was generated in 0.048 seconds.


© All Rights Reserved, AIFEI Software Limited & AdminSystem Software Limited.