|
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 to iPhoneDemonstrates how to compose an HTML email with an embedded image that will display correctly on an iPhone. This example produces an email that looks like this on the iPhone:
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. * 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 = "Testing for Chilkat SMTP API..." loEmail.Body = "Testing for Chilkat SMTP API..." loEmail.From = "Chilkat Support <my-office365-user@mydomain.com>" loEmail.AddTo("Chilkat Support","support@chilkatsoft.com") * For whatever reason, the iPhone's email program requires * images in HTML to be referenced by Content-ID. Therefore, * we must add the image like this: lcContentIdStarfish = loEmail.AddRelatedFile("qa_data/jpg/starfish.jpg") IF (loEmail.LastMethodSuccess <> 1) THEN ? loEmail.LastErrorText 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 loMailman RELEASE loEmail RELEASE loSbHtml |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.
