Convert Email HTML to Plain-Text Alternative

Loads an HTML email from a web page, converts the HTML to a plain-text alternative body, and sends it.

Download Chilkat .NET for 2.0 / 3.5 Framework

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()

'  Any string argument automatically begins the 30-day trial.
Dim success As Boolean
success = mailman.UnlockComponent("30-day trial")
If (success <> true) Then
    MsgBox("MailMan component unlock failed")
    Exit Sub
End If


success = mht.UnlockComponent("30-day trial")
If (success <> true) Then
    MsgBox("Mht component unlock failed")
    Exit Sub
End If


Dim email As Chilkat.Email

mht.UseCids = true
email = mht.GetEmail("http://www.bonairefishing.com/")
If (email Is Nothing ) Then
    MsgBox(mht.LastErrorText)
    Exit Sub
End If


email.Subject = "Test HTML/plain-text email"

email.AddTo("Chilkat Support","support@chilkatsoft.com")
email.From = "admin@chilkatsoft.com"

Dim h2t As New Chilkat.HtmlToText()
success = h2t.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(h2t.LastErrorText)
    Exit Sub
End If

'  Get the email's HTML body.
Dim html As String
html = email.GetHtmlBody()

'  Convert it to plain text:
Dim plainText As String
plainText = h2t.ToText(html)

'  Add a plain-text alternative to the email:
email.AddPlainTextAlternativeBody(plainText)

mailman.SmtpHost = "mail.chilkatsoft.com"
mailman.SmtpUsername = "admin@chilkatsoft.com"
mailman.SmtpPassword = "*myPassword5*"

success = mailman.SendEmail(email)
If (success <> true) Then
    MsgBox(mailman.LastErrorText)
    Exit Sub
End If




MsgBox("HTML/plain-text Email Sent!")