Access Attached Message (Embedded Email)

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

Download Chilkat Email ActiveX for POP3 / SMTP

Download Chilkat IMAP ActiveX

Dim email As New ChilkatEmail2

'  Load an email from a .eml
Dim success As Long
success = email.LoadEml("embeddedEmail.eml")
If (success <> 1) Then
    MsgBox email.LastErrorText
    Exit Sub
End If

'  Display how many attached emails are embedded within
'  this one:
Dim numAttached As Long
numAttached = email.NumAttachedMessages
MsgBox numAttached

'  Get the 1st attached message.
Dim email2 As ChilkatEmail2
Set email2 = email.GetAttachedMessage(0)
If (Not (email2 Is Nothing )) Then

    '  Display the subject, From, and a header field...
    Text1.Text = Text1.Text & email2.Subject & vbCrLf
    Text1.Text = Text1.Text & email2.From & vbCrLf
    Text1.Text = Text1.Text & email2.GetHeaderField("X-SOMETHING") & vbCrLf
End If