Xojo Plugin

Access Attached Message (Embedded Email)

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

Dim success As Boolean
success = False

Dim email As New Chilkat.Email

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