|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Visual FoxPro) Send HTML Email with Embedded Image Loaded from MemoryDemonstrates how to compose an HTML email with an embedded image where the image data is loaded directly from memory.
LOCAL loFac LOCAL loImageBytes LOCAL loMailman LOCAL loEmail LOCAL lcContentIdStarfish LOCAL loSbHtml LOCAL lnNumReplacements LOCAL lnSuccess * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * First load image data into memory. * This example loads image data from a file. * However, your application could get the image data from any other source, such as * from a database. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess') loFac = CreateObject('Chilkat.FileAccess') loImageBytes = loFac.ReadEntireFile("qa_data/jpg/starfish.jpg") * The mailman object is used for sending and receiving email. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MailMan') loMailman = CreateObject('Chilkat.MailMan') * Use your SMTP server hostname. This example uses office365, but it could be any SMTP server.. loMailman.SmtpHost = "outlook.office365.com" loMailman.SmtpPort = 587 loMailman.StartTLS = 1 * Set the SMTP login/password loMailman.SmtpUsername = "OFFICE365-SMTP-LOGIN" loMailman.SmtpPassword = "OFFICE365-SMTP-PASSWORD" * Create a new email object * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email') loEmail = CreateObject('Chilkat.Email') loEmail.Subject = "HTML Email with Image Loaded from In-Memory Bytes" loEmail.From = "Chilkat Support <my-office365-user@mydomain.com>" loEmail.AddTo("Chilkat Support","support@chilkatsoft.com") lcContentIdStarfish = loEmail.AddRelatedData("starfish.jpg",loImageBytes) IF (loEmail.LastMethodSuccess <> 1) THEN ? loEmail.LastErrorText RELEASE loFac RELEASE loMailman RELEASE loEmail CANCEL ENDIF * The src attribute for the image tag is set to the contentIdStarfish: * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') loSbHtml = CreateObject('Chilkat.StringBuilder') loSbHtml.Append("<html><body><p>This is an HTML email with an embedded image.</p>") loSbHtml.Append('<p><img src="cid:CONTENT_ID_STARFISH" /></p></body></html>') lnNumReplacements = loSbHtml.Replace("CONTENT_ID_STARFISH",lcContentIdStarfish) loEmail.SetHtmlBody(loSbHtml.GetAsString()) lnSuccess = loMailman.SendEmail(loEmail) IF (lnSuccess <> 1) THEN ? loMailman.LastErrorText ELSE ? "Mail Sent!" ENDIF RELEASE loFac RELEASE loMailman RELEASE loEmail RELEASE loSbHtml |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.