Access Attached Message (Embedded Email)

Download Chilkat Email ActiveX

How to access an email embedded within another email (i.e. an attached message).

LOCAL loEmail
LOCAL lnSuccess
LOCAL lnNumAttached
LOCAL loEmail2

loEmail = CreateObject('Chilkat.Email2')

*  Load an email from a .eml

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

*  Display how many attached emails are embedded within
*  this one:

lnNumAttached = loEmail.NumAttachedMessages
=MESSAGEBOX(STR(lnNumAttached))

*  Get the 1st attached message.

loEmail2 = loEmail.GetAttachedMessage(0)
IF (NOT (loEmail2 = NULL )) THEN

    *  Display the subject, From, and a header field...
    ? loEmail2.Subject
    ? loEmail2.From
    ? loEmail2.GetHeaderField("X-SOMETHING")
ENDIF