VBScript

Access Attached Message (Embedded Email)

How to access an email embedded within another email (i.e. an attached message). 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

set email = CreateObject("Chilkat.Email")

' Load an email from a .eml
success = email.LoadEml("embeddedEmail.eml")
If (success = 0) 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.
set email2 = CreateObject("Chilkat.Email")
success = email.GetAttachedEmail(0,email2)
If (success = 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