(Xojo Plugin) Access Attached Message (Embedded Email)

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim email As New Chilkat.Email

// Load an email from a .eml
Dim success As Boolean
success = email.LoadEml("embeddedEmail.eml")
If (success <> True) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

// Display how many attached emails are embedded within
// this one:
Dim numAttached As Int32
numAttached = email.NumAttachedMessages
System.DebugLog("numAttached = " + Str(numAttached))

// Get the 1st attached message.
Dim email2 As Chilkat.Email
email2 = email.GetAttachedMessage(0)
If (email.LastMethodSuccess = True) Then

    // Display the subject, From, and a header field...
    System.DebugLog(email2.Subject)
    System.DebugLog(email2.From)
    System.DebugLog(email2.GetHeaderField("X-SOMETHING"))
End If