Attach Message to Email (message/rfc822)

Download Chilkat Email ActiveX

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

Dim email As New ChilkatEmail2

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 Long
success = email.AddFileAttachment2("email.eml","message/rfc822")
If (success <> 1) Then
    MsgBox email.LastErrorText
Else
    email.SaveEml "out.eml"
    MsgBox "Success!"
End If