Save HTML Email Embedded Images

Saves HTML embedded items to files in a subdirectory. Images, style sheets, and anything else embedded within HTML, are not considered to be attachments. Instead, these items are "related items". The Chilkat email object provides a set of methods/properties for accessing the related items within an email.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

'  Create a MailMan or Imap object first for the purpose
'  of unlocking the component. (Only one is necessary)
Dim mailman As New Chilkat.MailMan()
mailman.UnlockComponent("anything for 30-day trial")
Dim imap As New Chilkat.Imap()
imap.UnlockComponent("anything for 30-day trial")


Dim email As New Chilkat.Email()

'  Load an email object containing HTML with embedded images.
'  This .eml can be downloaded from:
'  http://www.example-code.com/testData/HtmlEmail.eml
Dim success As Boolean
success = email.LoadEml("HtmlEmail.eml")
If (success <> true) Then
    MsgBox(email.LastErrorText)
    Exit Sub
End If


'  Iterate over the related items.
'  Print the file name and save each to a file.
Dim i As Long
For i = 0 To email.NumRelatedItems - 1

    TextBox1.Text = TextBox1.Text & email.GetRelatedFilename(i) & vbCrLf

    success = email.SaveRelatedItem(i,"myRelatedItems")
    If (success <> true) Then
        MsgBox(email.LastErrorText)
        Exit Sub
    End If

Next