Attach Message to Email (message/rfc822)

Download Chilkat Email ActiveX

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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%


set email = Server.CreateObject("Chilkat.Email2")

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:

success = email.AddFileAttachment2("email.eml","message/rfc822")
If (success <> 1) Then
    Response.Write email.LastErrorText & "<br>"
Else
    email.SaveEml "out.eml"
    Response.Write "Success!" & "<br>"
End If


%>
</body>
</html>