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

LOCAL loMailman
LOCAL lnSuccess
LOCAL loEmail

*  The mailman object is used for sending and receiving email.
loMailman = CreateObject('Chilkat.MailMan2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loMailman.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Component unlock failed")
    QUIT
ENDIF

*  Set the SMTP server.
loMailman.SmtpHost = "mail.chilkatsoft.com"

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

*  Create a new email object
loEmail = CreateObject('Chilkat.Email2')

*  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:
lnSuccess = loEmail.LoadEml("myMhtml.mht")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loEmail.LastErrorText)
    QUIT
ENDIF

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

*  Send the MHTML mail.
lnSuccess = loMailman.SendEmail(loEmail)
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loMailman.LastErrorText)
ELSE
    =MESSAGEBOX("Mail Sent!")
ENDIF