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

LOCAL loMailman
LOCAL loImap
LOCAL loEmail
LOCAL lnSuccess
LOCAL i

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

loEmail = 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

lnSuccess = loEmail.LoadEml("HtmlEmail.eml")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loEmail.LastErrorText)
    QUIT
ENDIF

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

FOR i = 0 TO loEmail.NumRelatedItems - 1

    ? loEmail.GetRelatedFilename(i)

    lnSuccess = loEmail.SaveRelatedItem(i,"myRelatedItems")
    IF (lnSuccess <> 1) THEN
        =MESSAGEBOX(loEmail.LastErrorText)
        QUIT
    ENDIF

NEXT