(Visual FoxPro) 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 item". The Chilkat email object provides a set of methods/properties for accessing the related items within an email.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loEmail
LOCAL lnSuccess
LOCAL i
LOCAL lnNumRelated

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')

* Load an email object containing HTML with embedded images.

lnSuccess = loEmail.LoadEml("myEmails/HtmlEmail.eml")
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    CANCEL
ENDIF

* Iterate over the related items.  
* Print the file name and save each to a file.
i = 0
lnNumRelated = loEmail.NumRelatedItems
DO WHILE i < lnNumRelated

    ? loEmail.GetRelatedFilename(i)

    lnSuccess = loEmail.SaveRelatedItem(i,"myRelatedItemsDir")
    IF (lnSuccess <> 1) THEN
        ? loEmail.LastErrorText
        RELEASE loEmail
        CANCEL
    ENDIF

    i = i + 1
ENDDO

RELEASE loEmail