Visual FoxPro

Get an Attached Message as an Email Object

Demonstrates the Chilkat Email.GetAttachedEmail method, which copies the Nth embedded message/rfc822 MIME part into another Email object. The index is zero-based (valid values run from 0 through NumAttachedMessages - 1). This example attaches an email and then extracts it back into its own object.

Background: When a message forwards another email as an attachment, that nested message is a complete email in its own right. GetAttachedEmail turns it back into a fully navigable Email object so you can read its subject, sender, body, and even its own attachments — essential for processing forwarded mail, or for tools that unpack reported spam/phishing to examine the original.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loInnerEmail
LOCAL loEmail
LOCAL loAttached

lnSuccess = 0

*  Demonstrates the GetAttachedEmail method, which copies the Nth embedded message/rfc822
*  MIME part into another Email object.  The index is zero-based.

*  Build an inner email and attach it to an outer email.
loInnerEmail = CreateObject('Chilkat.Email')
loInnerEmail.Subject = "Embedded message"
loInnerEmail.From = "alice@example.com"
loInnerEmail.Body = "This is the embedded message."

loEmail = CreateObject('Chilkat.Email')
loEmail.Subject = "Has an attached message"
lnSuccess = loEmail.AttachEmail(loInnerEmail)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loInnerEmail
    RELEASE loEmail
    CANCEL
ENDIF

*  Copy the first embedded message (index 0) into its own Email object.
loAttached = CreateObject('Chilkat.Email')
lnSuccess = loEmail.GetAttachedEmail(0,loAttached)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loInnerEmail
    RELEASE loEmail
    RELEASE loAttached
    CANCEL
ENDIF

? "Attached email subject: " + loAttached.Subject
? "Attached email from: " + loAttached.From

RELEASE loInnerEmail
RELEASE loEmail
RELEASE loAttached