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

Notification

Icon
Error

Options
Go to last post Go to first unread
ivan  
#1 Posted : Monday, May 2, 2011 5:24:06 PM(UTC)
ivan

Rank: Administration

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

Thanks: 9 times
Was thanked: 37 time(s) in 37 post(s)
VB6 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.

Code:

' 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

Option Explicit 

Const CRYPT_MACHINE_KEYSET = 32 
Const CRYPT_USER_KEYSET = 4096 
Const CERT_SYSTEM_STORE_CURRENT_USER = 65536 
Const CERT_SYSTEM_STORE_LOCAL_MACHINE = 131072 

' 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) 

    On Error GoTo ErrorGenHtml 

    Dim oMail As New EAGetMailObjLib.Mail 
    oMail.LicenseCode = "TryIt" 

    oMail.LoadFile emlFile, False 
    If Err.Number <> 0 Then 
        MsgBox Err.Description 
        Exit Sub 
    End If 

    On Error Resume Next 
    If oMail.IsEncrypted Then 
        Set oMail = oMail.Decrypt(Nothing) 
        If Err.Number <> 0 Then 
            MsgBox Err.Description 
        End If 
    End If 

    If oMail.IsSigned Then 
        oMail.VerifySignature 
        If Err.Number <> 0 Then 
            MsgBox Err.Description 
        End If 
    End If 

    On Error GoTo ErrorGenHtml 

    Dim html As String 
    html = oMail.HtmlBody 
    Dim hdr As String 
    hdr = hdr & "<font face=""Courier New,Arial"" size=2>" 
    hdr = hdr & "<b>From:</b> " + FormatHtmlTag(oMail.From.name & "<" & _ 
     oMail.From.Address & ">") + "<br>" 

    Dim addrs 
    addrs = oMail.To 
    Dim i, Count 

    i = LBound(addrs) 
    Count = UBound(addrs) 
    If (Count >= i) Then 
        hdr = hdr & "<b>To:</b> " 
        For i = LBound(addrs) To Count 
            hdr = hdr & FormatHtmlTag(addrs(i).name & "<" & addrs(i).Address & ">") 
            If (i < Count) Then 
                hdr = hdr & ";" 
            End If 
        Next 
        hdr = hdr & "<br>" 
    End If 

    addrs = oMail.Cc 
    i = LBound(addrs) 
    Count = UBound(addrs) 
    If (Count >= i) Then 
        hdr = hdr & "<b>Cc:</b> " 
        For i = LBound(addrs) To Count 
            hdr = hdr & FormatHtmlTag(addrs(i).name & "<" & addrs(i).Address & ">") 
            If (i < Count) Then 
                hdr = hdr & ";" 
            End If 
        Next 
        hdr = hdr & "<br>" 
    End If 

    hdr = hdr & "<b>Subject:</b>" & FormatHtmlTag(oMail.Subject) & "<br>" & vbCrLf 
    Dim atts 
    atts = oMail.Attachments 
    i = LBound(atts) 
    Count = UBound(atts) 
    If (Count >= i) Then 
        If Not oTools.ExistFile(tempFolder) Then 
            oTools.CreateFolder (tempFolder) 
        End If 

        hdr = hdr & "<b>Attachments:</b>" 
        For i = LBound(atts) To Count 
            Dim att As Attachment 
            Set att = atts(i) 
            If LCase(att.name) = "winmail.dat" Then 
                Dim tatts 
                tatts = oMail.ParseTNEF(att.Content, True) 
                Dim x As Integer 
                For x = LBound(tatts) To UBound(tatts) 
                    Dim tatt As Attachment 
                    Set tatt = tatts(x) 
                    Dim tattname As String 
                    tattname = tempFolder & \" & tatt.name 
                    tatt.SaveAs tattname, True 
                    hdr = hdr & "<a href=""" & tattname & """ target=""_blank"">" _ 
                        & tatt.name & "</a> " 
                Next 
            Else 
                Dim attname 
                attname = tempFolder & \" & att.name 
                att.SaveAs attname, True 
                hdr = hdr & "<a href=""" & attname & """ target=""_blank"">" & att.name & "</a> " 
                If Len(att.ContentID) > 0 Then 
                    'show embedded image.
                    html = Replace(html, "cid:" + att.ContentID, attname) 
                ElseIf InStr(1, att.ContentType, "image/", vbTextCompare) = 1 Then 
                    'show attached image.
                    html = html & "<hr><img src=""" & attname & """>" 
                End If 
            End If 
        Next 
    End If 

    hdr = "<meta HTTP-EQUIV=""Content-Type"" Content=""text-html; charset=utf-8"">" & hdr 
    html = hdr & "<hr>" & html 
    oTools.WriteTextFile htmlName, html, 65001 
    oMail.Clear 
    Exit Sub 

ErrorGenHtml: 
    MsgBox "Failed to generate html file for the email; " & Err.Description 

End Sub 

Private Function FormatHtmlTag(ByVal src As String) As String 
    src = Replace(src, ">", "&gt;") 
    src = Replace(src, "<", "&lt;") 
    FormatHtmlTag = src 
End Function 

Private Sub ConvertMailToHtml(ByVal fileName As String) 
    Dim pos 
    pos = InStrRev(fileName, ".") 
    Dim mainName 
    Dim htmlName 
    mainName = Mid(fileName, 1, pos - 1) 
    htmlName = mainName & ".htm" 

    Dim tempFolder As String 
    tempFolder = mainName 
    If Not (oTools.ExistFile(htmlName)) Then 
        ' We haven't generate the html for this email, generate it now.
        GenerateHtmlForEmail htmlName, fileName, tempFolder 
    End If 

End Sub 

Private Sub Command1_Click() 

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

    Exit Sub 
ErrorHandle: 
    MsgBox Err.Description 
End Sub 


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-2019, Yet Another Forum.NET
This page was generated in 0.143 seconds.

EXPLORE TUTORIALS

© All Rights Reserved, AdminSystem Software Limited.