Send HTML Mail with Embedded Image

Download: Chilkat .NET Assemblies

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