Attach Message to Email (message/rfc822)

How to create an email with an attached message (content-type = message/rfc822)

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim email As New Chilkat.Email()

email.Subject = "Subject..."
email.From = "Chilkat Support <support@chilkatsoft.com>"

'  Call AddTo multiple times, once per recipient, or
'  call AddMultipleTo with a comma-separated email address string.
'  or call AddHeaderField("To","To someone...")
email.AddTo("Chilkat Admin","admin@chilkatsoft.com")

'  Add our own custom header.
email.AddHeaderField("X-MyCompany","testing")

email.Body = "This is the email body..."

'  The email object now has a very basic plain-text email,
'  with a customer header.

'  The email we'll add is going to be loaded from a .eml file:
Dim success As Boolean
success = email.AddFileAttachment2("email.eml","message/rfc822")
If (success <> true) Then
    MsgBox(email.LastErrorText)
Else
    email.SaveEml("out.eml")
    MsgBox("Success!")
End If