Display HTML Email in ASP, ASP.NET

Question:

I am using your ActiveX components for processing email via IMAP. All works great, but I have run into an interesting problem. While stepping through some new features of my application, I noticed “embedded” objects (like images, etc…) are not recognized as attachments. After digging through your very helpful documentation, I am now able to retrieve these objects using the various “getRelated….” Methods. While processing email, my application saves the “htmlbody” to a database field and I can later retrieve and display it via a web a interface (.asp side of my application). But when it comes to these “embedded objects”, how can I display them properly. When I view the “htmlbody” source I see references to cid: etc…

Answer:
One option is to convert the CID links to filesystem links, and use Chilkat MHT to unpack the email to temporary files on the web server. Here is some sample VB6 code that demonstrates it. The methods/properties are identical for .NET, so the same applies…

<font size=2 face=\"courier\">
‘ Make sure the Chilkat Email or IMAP component is unlocked.
Dim mailman As New ChilkatMailMan2
mailman.UnlockComponent "test"
‘ For the example, we’re simply loading an email object from a text file..
Dim email As New ChilkatEmail2
email.LoadEml "htmlEmail.txt"
‘ Prepare the email for extraction to MHT.
‘ email2 will be such that all sender/recipient info is eliminated,
‘ as well as subject, attachments, etc., leaving only the HTML and related items.
Dim email2 As New ChilkatEmail2
If (email.HasHtmlBody()) Then
htmlStr = email.GetHtmlBody()
‘ Convert CID links to filesystem links.
n = email.NumRelatedItems
For i = 0 To n - 1
fname = email.GetRelatedFilename(i)
email2.AddRelatedData email.GetRelatedData(i), fname
htmlStr = Replace(htmlStr, "cid:" + email.GetRelatedContentID(i), "parts/" + fname)
Next
email2.SetHtmlBody htmlStr
Else
email2.SetHtmlBody email.Body
End If
‘ Get the MIME source of the email. (MHT is nothing more than MIME source with a .mht extension)
mhtStr = email2.GetMime()
Dim mht As New ChilkatMHT
mht.UnlockComponent "test"
‘ Unpack from an in-memory MHT string to a "temp" subdirectory. Related parts will
‘ be placed in "temp/parts".
mht.UnpackMhtStr mhtStr, "temp", "test.html", "parts"
</font>