(VBScript) Access Attached Message (Embedded Email)

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

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

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Email")
set email = CreateObject("Chilkat.Email")

' Load an email from a .eml
success = email.LoadEml("embeddedEmail.eml")
If (success <> 1) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

' Display how many attached emails are embedded within
' this one:
numAttached = email.NumAttachedMessages
outFile.WriteLine("numAttached = " & numAttached)

' Get the 1st attached message.

' email2 is a Chilkat.Email
Set email2 = email.GetAttachedMessage(0)
If (email.LastMethodSuccess = 1) Then

    ' Display the subject, From, and a header field...
    outFile.WriteLine(email2.Subject)
    outFile.WriteLine(email2.From)
    outFile.WriteLine(email2.GetHeaderField("X-SOMETHING"))
End If


outFile.Close