Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Send HTML Mail with Embedded Image
VB.NET source code example showing how to send an HTML mail with images embedded within the HTML.
' Create a mailman object for sending email.
Dim mailman As New Chilkat.MailMan()
' Any string passed to UnlockComponent automatically begins a 30-day trial.
Dim success As Boolean
success = mailman.UnlockComponent("Hello World")
If (success <> true) Then
MsgBox(mailman.LastErrorText)
Exit Sub
End If
' Set the SMTP server.
mailman.SmtpHost = "smtp.earthlink.net"
' Create an email object
Dim email As New Chilkat.Email()
' Add an embedded image to the HTML email.
Dim cid As String = email.AddRelatedFile("dude.gif")
If cid Is Nothing Then
MessageBox.Show(email.LastErrorText)
Return
End If
' Update the HTML to reference the image using the CID
Dim htmlBody As String = "<html><body>Embedded Image:<br><img src=""cid:IMAGE_CID""></body></html>"
htmlBody = htmlBody.Replace("IMAGE_CID", cid)
' Set the basic email stuff: HTML body, subject, "from", "to"
email.SetHtmlBody(htmlBody)
email.Subject = "This is an HTML email with an embedded image."
email.AddTo("Chilkat Support", "support@chilkatsoft.com")
email.From = "Programmer <programmer@chilkatsoft.com>"
success = mailman.SendEmail(email)
If Not success Then
MessageBox.Show(mailman.LastErrorText)
Return
End If
|
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.