Send MHTML Email

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Simple example to send MHTML email. If you have a .mht file, this example show how to send it as an email.

MHTML stands for MIME HTML (Multipurpose Internet Mail Extension HTML). It is a standard for including resources that in usual HTTP pages are linked externally, such as images and sound files, in the same file as the HTML code, based on RFC 2557. The included data files are encoded using MIME. This format is sometimes referred to as MHT, after the suffix .mht given to such files by default when created by Microsoft Word, Internet Explorer or Opera.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'  The mailman object is used for sending and receiving email.
set mailman = Server.CreateObject("Chilkat_9_5_0.MailMan")

'  Any string argument automatically begins the 30-day trial.
success = mailman.UnlockComponent("30-day trial")
If (success <> 1) Then
    Response.Write Server.HtmlEncode("Component unlock failed") & "<br>"

End If

'  Set the SMTP server.
mailman.SmtpHost = "mail.chilkatsoft.com"

'  You may or may not need SMTP authentication -- it depends
'  on your SMTP server...
mailman.SmtpUsername = "mylogin"
mailman.SmtpPassword = "mypassword"

'  Create a new email object
set email = Server.CreateObject("Chilkat_9_5_0.Email")

'  Note: .mht files are MIME, and are really no different
'  than .eml.  The only difference is the file extension
'  and the intended use.  You can load any .mht into
'  an email object by calling LoadEml:
success = email.LoadEml("myMhtml.mht")
If (success <> 1) Then
    Response.Write Server.HtmlEncode(email.LastErrorText) & "<br>"

End If

'  To complete the email, add a subject, From address,
'  and recipients...
email.Subject = "This is an MHTML email test"
email.From = "Chilkat <admin@chilkatsoft.com>"
email.AddTo "Chilkat Support","support@chilkatsoft.com"

'  Send the MHTML mail.
success = mailman.SendEmail(email)
If (success <> 1) Then
    Response.Write Server.HtmlEncode(mailman.LastErrorText) & "<br>"
Else
    Response.Write Server.HtmlEncode("Mail Sent!") & "<br>"
End If

%>
</body>
</html>