Convert HTML Web Page to Email and Send

Converts an HTML page at a URL into an email with embedded images and sends it.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

'  The mailman object is used for receiving (POP3)
'  and sending (SMTP) email.
Dim mailman As New Chilkat.MailMan()

'  The MHT component can be used to convert an HTML page
'  from a URL, file, or in-memory HTML into an email
'  with embedded images and style sheets.
Dim mht As New Chilkat.Mht()

'  Note: This example requires licenses to both "Chilkat Email" and "Chilkat MHT".

'  Any string argument automatically begins the 30-day trial.
Dim success As Boolean
success = mailman.UnlockComponent("30-day trial")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & mailman.LastErrorText & vbCrLf
    Exit Sub
End If


success = mht.UnlockComponent("30-day trial")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & mht.LastErrorText & vbCrLf
    Exit Sub
End If


Dim email As Chilkat.Email

'  There are two ways of embedding images in emails: with CIDs
'  and without.  When using CIDs, the IMG SRC attributes use
'  urls that begin with "CID:" and the corresponding image
'  embedded within the email includes a Content-ID header field.
'  When not using CIDs, the IMG SRC attribute can have a URL,
'  path, etc. and the corresponding image embedded within
'  the email has a matching Content-Location header field.

'  When testing with GMail, if CIDs are used the email will
'  be displayed with images blocked (by default) unless
'  the user allows them to be displayed.  Without CIDs,
'  the images are automatically displayed.

'  When testing with Eudora, Mozilla Thunderbird, and Outlook Express,
'  embedded images display correctly with our without CIDs.

'  When testing with Yahoo! Mail, embedded images display OK.
'  However, the Yahoo! Mail user has the option of blocking
'  images.  If this is turned on, the CID images will still
'  display correctly even though images are blocked.  Why?
'  It's because when viewing the email there is no external
'  HTTP request to fetch an image.  Therefore, a spammer
'  cannot get an indication that you've read the email.
'  However, if CIDs are not used, the images are blocked by
'  any Yahoo! Mail user that has image blocking turned on --
'  even though the images are embedded.

'  I haven't tested Hotmail yet...
'  Regardless, there is no perfect solution.  If CIDs are used,
'  GMail users may block your embedded images, if CIDs are not
'  used, Yahoo! Mail users may block your embedded images.

'  I recommend setting using CIDs.  This is what Mozilla Thunderbird
'  does by default, and it's the more clear an unambiguous way
'  to indicate that images are indeed embedded.
mht.UseCids = true

email = mht.GetEmail("http://www.bonairefishing.com/")
If (email Is Nothing ) Then
    TextBox1.Text = TextBox1.Text & mht.LastErrorText & vbCrLf
    Exit Sub
End If


email.Subject = "Test HTML email"

'  This example is tested in:
'  Outlook 2000, Eudora 7, Mozilla Thunderbird 1.5.0.9, Outlook Express 6, GMail, Yahoo Mail
email.AddTo("Chilkat Support","support@chilkatsoft.com")

'  Note: Chilkat does not regularly check our GMail and Yahoo
'  email accounts.  Please send support email to support@chilkatsoft.com
email.AddTo("Chilkat on Yahoo","chilkat_software@yahoo.com")
email.AddTo("Chilkat on GMail","chilkat.support@gmail.com")

email.From = "chilkat@live.com"

'  Send email using smtp.live.com
mailman.SmtpHost = "smtp.live.com"
mailman.SmtpUsername = "chilkat@live.com"
mailman.SmtpPassword = "myPassword"
mailman.SmtpPort = 587
mailman.StartTLS = true

success = mailman.SendEmail(email)
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & mailman.LastErrorText & vbCrLf

    Exit Sub
End If


success = mailman.CloseSmtpConnection()
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & mailman.LastErrorText & vbCrLf

    Exit Sub
End If




MsgBox("HTML Email Sent!")