VBScript

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 VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 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.
set innerEmail = CreateObject("Chilkat.Email")
innerEmail.Subject = "Embedded message"
innerEmail.From = "alice@example.com"
innerEmail.Body = "This is the embedded message."

set email = CreateObject("Chilkat.Email")
email.Subject = "Has an attached message"
success = email.AttachEmail(innerEmail)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

'  Copy the first embedded message (index 0) into its own Email object.
set attached = CreateObject("Chilkat.Email")
success = email.GetAttachedEmail(0,attached)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Attached email subject: " & attached.Subject)
outFile.WriteLine("Attached email from: " & attached.From)

outFile.Close