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 Email ActiveX for POP3 / SMTP

Download Chilkat IMAP ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

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

set email = CreateObject("Chilkat.Email2")

'  Load an email object containing HTML with embedded images.
'  This .eml can be downloaded from:
'  http://www.example-code.com/testData/HtmlEmail.eml

success = email.LoadEml("HtmlEmail.eml")
If (success <> 1) Then
    MsgBox email.LastErrorText
    WScript.Quit
End If

'  Iterate over the related items.
'  Print the file name and save each to a file.

For i = 0 To email.NumRelatedItems - 1

    outFile.WriteLine(email.GetRelatedFilename(i))

    success = email.SaveRelatedItem(i,"myRelatedItems")
    If (success <> 1) Then
        MsgBox email.LastErrorText
        WScript.Quit
    End If

Next
outFile.Close