Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Embed Image in HTML EmailDemonstrates how to create and send an HTML email with an embedded image.
' 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 Chilkat.MailMan Set mailman = Chilkat.NewMailMan ' Set the SMTP server. mailman.SmtpHost = "smtp.comcast.net" ' Create a new email object Dim email As Chilkat.Email Set email = Chilkat.NewEmail ' Add an embedded image to the HTML email. fileOnDisk = "images/dude2.gif" filePathInHtml = "dudeAbc.gif" ' Embed the GIF image in the email. success = email.AddRelatedFile2(fileOnDisk,filePathInHtml) If (success <> True) Then Debug.Print mailman.LastErrorText Exit Sub End If ' The src attribute for the image tag is set to the filePathInHtml: 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 = "Excel 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 <> True) Then Debug.Print mailman.LastErrorText Else Debug.Print "Mail Sent!" End If |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.