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 Image Downloaded from URLDemonstrates how to compose an HTML email with an embedded image where the image data is downloaded from a URL.
LOCAL loBdJpg LOCAL loHttp LOCAL lnSuccess LOCAL loMailman LOCAL loEmail LOCAL lcHtml * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * First download the image we'll be adding to the HTML "img" tag. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData') loBdJpg = CreateObject('Chilkat.BinData') * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http') loHttp = CreateObject('Chilkat.Http') lnSuccess = loHttp.QuickGetBd("https://www.chilkatsoft.com/images/starfish.jpg",loBdJpg) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loBdJpg RELEASE loHttp CANCEL ENDIF * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MailMan') loMailman = CreateObject('Chilkat.MailMan') * Use your SMTP server.. loMailman.SmtpHost = "smtp.yourserver.com" loMailman.SmtpPort = 587 loMailman.StartTLS = 1 * Set the SMTP login/password loMailman.SmtpUsername = "my_login" loMailman.SmtpPassword = "my_password" * Create an HTML email. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email') loEmail = CreateObject('Chilkat.Email') loEmail.Subject = "HTML Email with Image" loEmail.From = "Dave <somebody@mydomain.com>" loEmail.AddTo("Chilkat","info@chilkatsoft.com") lcHtml = '<html><body><p>This is an HTML email with an embedded image.</p><p><img src="starfish.jpg" /></p></body></html>' loEmail.SetHtmlBody(lcHtml) * Note: The "starfish.jpg" here must match the name in the "img" tag's "src" attribute in the HTML above. lnSuccess = loEmail.AddRelatedBd2(loBdJpg,"starfish.jpg") IF (lnSuccess = 0) THEN ? loEmail.LastErrorText RELEASE loBdJpg RELEASE loHttp RELEASE loMailman RELEASE loEmail CANCEL ENDIF loEmail.SaveEml("qa_output/out.eml") * success = mailman.SendEmail(email); * if (success == ckfalse) { * println mailman.LastErrorText; * return; * } * * ignore = mailman.CloseSmtpConnection(); ? "Success." RELEASE loBdJpg RELEASE loHttp RELEASE loMailman RELEASE loEmail |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.