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.
Sections:
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.
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()
Try
Dim oMail As New SmtpMail("TryIt")
' 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"
' 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>"
' Your SMTP server address
Dim oServer As New SmtpServer("smtp.emailarchitect.net")
' User and password for ESMTP authentication
oServer.User = "test@emailarchitect.net"
oServer.Password = "testpassword"
' Most mordern SMTP servers require SSL/TLS connection now.
' ConnectTryTLS means if server supports SSL/TLS, SSL/TLS will be used automatically.
oServer.ConnectType = SmtpConnectType.ConnectTryTLS
' If your SMTP server uses 587 port
' oServer.Port = 587
' If your smtp server requires SSL/TLS connection, please use
' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto
Console.WriteLine("start to send email with embedded image ...")
Dim oSmtp As New SmtpClient()
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.
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()
Try
Dim oMail As New SmtpMail("TryIt")
' 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"
' 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 )
' Your SMTP server address
Dim oServer As New SmtpServer("smtp.emailarchitect.net")
' User and password for ESMTP authentication
oServer.User = "test@emailarchitect.net"
oServer.Password = "testpassword"
' Most mordern SMTP servers require SSL/TLS connection now.
' ConnectTryTLS means if server supports SSL/TLS, SSL/TLS will be used automatically.
oServer.ConnectType = SmtpConnectType.ConnectTryTLS
' If your SMTP server uses 587 port
' oServer.Port = 587
' If your SMTP server requires SSL/TLS connection on 25/587/465 port
' oServer.Port = 25 ' 25 or 587 or 465
' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto
Console.WriteLine("start to send email with embedded image ...")
Dim oSmtp As New SmtpClient()
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.
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.