Send MHTML Email

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.

Download Chilkat Email ActiveX for POP3 / SMTP

Download Chilkat IMAP ActiveX

'  The mailman object is used for sending and receiving email.
Dim mailman As New ChilkatMailMan2

'  Any string argument automatically begins the 30-day trial.
Dim success As Long
success = mailman.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Component unlock failed"
    Exit Sub
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
Dim email As New ChilkatEmail2

'  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
    MsgBox email.LastErrorText
    Exit Sub
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
    MsgBox mailman.LastErrorText
Else
    MsgBox "Mail Sent!"
End If