Visual Basic 6.0

Embed Image in HTML Email

Demonstrates how to create and send an HTML email with an embedded image.

Chilkat Visual Basic 6.0 Downloads

Visual Basic 6.0

Dim success As Long
success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' The mailman object is used for sending and receiving email.
Dim mailman As New ChilkatMailMan

' Set the SMTP server.
mailman.SmtpHost = "smtp.comcast.net"

' Create a new email object
Dim email As New ChilkatEmail

' Add an embedded image to the HTML email.
Dim fileOnDisk As String
fileOnDisk = "images/dude2.gif"
Dim filePathInHtml As String
filePathInHtml = "dudeAbc.gif"

' Embed the GIF image in the email.
success = email.AddRelatedFile2(fileOnDisk,filePathInHtml)
If (success <> 1) Then
    Debug.Print mailman.LastErrorText
    Exit Sub
End If

' The src attribute for the image tag is set to the filePathInHtml:
Dim htmlBody As String
htmlBody = "<html><body>Embedded Image:<br><img src=""dudeAbc.gif""></body></html>"

' Set the basic email stuff: HTML body, subject, "from", "to"
email.SetHtmlBody htmlBody
email.Subject = "Visual Basic 6.0 HTML email with an embedded image."
success = email.AddTo("Admin","admin@chilkatsoft.com")
email.From = "Chilkat Support <support@chilkatsoft.com>"

success = mailman.SendEmail(email)
If (success <> 1) Then
    Debug.Print mailman.LastErrorText
Else
    Debug.Print "Mail Sent!"
End If