Send Email with Embedded Images in VB.NET

In previous section, I introduced how to send email with attachment. In this section, I will introduce how to send email with embedded images in VB.NET.

Introduction

To attach an embedded images to email, you should add an attachment to email at first. Then you should assign an unique identifier(contentid) to this attachment. Finally, you need to replace the <img src="your file name" /> to <img src="cid:yourcontentid" />.

Note

Remarks: All of samples in this section are based on first section: Send email in a simple VB.NET project. To compile and run the following example codes successfully, please click here to learn how to create the test project and add reference of EASendMail to your project.

[VB.NET - Send Email with Embedded Images - Example]

The following example codes demonstrate how to send email with embedded images in VB.NET.

Note

To get the full sample projects, please refer to Samples section.

Imports EASendMail 'Add EASendMail namespace
Module Module1
    Sub Main()
        Dim oMail As New SmtpMail("TryIt")
        Dim oSmtp As New SmtpClient()
        ' Set sender email address, please change it to yours
        oMail.From = "test@emailarchitect.net"

        ' Set recipient email address, please change it to yours
        oMail.To = "support@emailarchitect.net"

        ' Set email subject
        oMail.Subject = "test HTML email with embedded image"

        ' Your SMTP server address
        Dim oServer As New SmtpServer("smtp.emailarchitect.net")

        ' User and password for ESMTP authentication, if your server doesn't require
        ' User authentication, please remove the following codes.
        oServer.User = "test@emailarchitect.net"
        oServer.Password = "testpassword"

        ' If your smtp server requires SSL/TLS connection, please add this line
        ' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto
        Try
            ' Add image attachment from local disk
            Dim oAttachment As Attachment = oMail.AddAttachment("d:\test.gif")

            ' Specifies the attachment as an embedded picture
            ' contentid can be any string.
            Dim contentID As String = "test001@host"
            oAttachment.ContentID = contentID
            oMail.HtmlBody = "<html><body>this is a <img src=""cid:" _
                     + contentID + """> embedded picture.</body></html>"

            Console.WriteLine("start to send email with embedded image ...")
            oSmtp.SendMail(oServer, oMail)
            Console.WriteLine("email was sent successfully!")
        Catch ep As Exception
            Console.WriteLine("failed to send email with the following error:")
            Console.WriteLine(ep.Message)
        End Try
    End Sub
End Module

To attach embedded images/pictures, SmtpMail.ImportHtmlBody and SmtpMail.ImportHtml methods are strongly recommended. With these methods, you don’t have to specify the ContentID manually. The html source/file html body can be imported to email with embedded pictures automatically.

[VB.NET - Send Email with Embedded Images - ImportHtml - Example]

The following example codes demonstrate how to send email using ImportHtml method with embedded images in VB.NET.

Note

To get the full sample projects, please refer to Samples section.

Imports EASendMail 'Add EASendMail namespace
Module Module1
    Sub Main()
        Dim oMail As New SmtpMail("TryIt")
        Dim oSmtp As New SmtpClient()
        ' Set sender email address, please change it to yours
        oMail.From = "test@emailarchitect.net"

        ' Set recipient email address, please change it to yours
        oMail.To = "support@emailarchitect.net"

        ' Set email subject
        oMail.Subject = "test HTML email with embedded image"

        ' Your SMTP server address
        Dim oServer As New SmtpServer("smtp.emailarchitect.net")

        ' User and password for ESMTP authentication, if your server doesn't require
        ' User authentication, please remove the following codes.
        oServer.User = "test@emailarchitect.net"
        oServer.Password = "testpassword"

        ' If your smtp server requires SSL/TLS connection, please add this line
        ' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto

        Try
           ' Import html body and also import linked image as embedded images.
           ' 'test.gif is in c:\\my picture
 oMail.ImportHtml( "<html><body>test <img src=""test.gif""> importhtml</body></html>", _
                    "c:\my picture",  _
                    ImportHtmlBodyOptions.ImportLocalPictures Or ImportHtmlBodyOptions.ImportCss )

            Console.WriteLine("start to send email with embedded image ...")
            oSmtp.SendMail(oServer, oMail)
            Console.WriteLine("email was sent successfully!")
        Catch ep As Exception
            Console.WriteLine("failed to send email with the following error:")
            Console.WriteLine(ep.Message)
        End Try
    End Sub
End Module

You can also refer to the htmlmail.* samples in EASendMail Installer. Those samples demonstrate how to build a HTML email editor and send HTML email with attachment or embedded images/pictures.

VB.NET html editor

Next Section

At next section I will introduce how to sign email with digital certificate.

Appendix

Comments

If you have any comments or questions about above example codes, please click here to add your comments.