|
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 AttachmentsDemonstrates how to send an HTML email with file attachments.
LOCAL loMailman LOCAL loEmail LOCAL lcContentIdStarfish LOCAL loSbHtml LOCAL lnNumReplacements LOCAL lnSuccess LOCAL lcContent * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MailMan') loMailman = CreateObject('Chilkat.MailMan') loMailman.SmtpHost = "smtp.my-starttls-mail-server.com" loMailman.SmtpUsername = "MY-SMTP-USERNAME" loMailman.SmtpPassword = "MY-SMTP-PASSWORD" loMailman.StartTLS = 1 loMailman.SmtpPort = 587 * 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 = "Test SMTP API to Send HTML Email with Attachments" loEmail.From = "Joe Programmer <joe@my-starttls-mail-server.com>" loEmail.AddTo("Chilkat Support","support@chilkatsoft.com") * Add a plain-text alternative body, which will likely never be seen. * (It is shown if the receiving email client is incapable of displaying HTML email.) loEmail.AddPlainTextAlternativeBody("This is a plain-text alternative body...") * Our HTML will include an image, so add the related image here. 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.AddHtmlAlternativeBody(loSbHtml.GetAsString()) * Finally, add some attachments to the email. * Add a file attachment. lnSuccess = loEmail.AddFileAttachment2("qa_data/pdf/fishing.pdf","application/pdf") IF (lnSuccess <> 1) THEN ? loEmail.LastErrorText RELEASE loMailman RELEASE loEmail RELEASE loSbHtml CANCEL ENDIF * Add an attachment where the content is contained in a string. lcContent = "This is the content of the 2nd attached file." loEmail.AddStringAttachment("someText.txt",lcContent) * Send the HTML email. lnSuccess = loMailman.SendEmail(loEmail) IF (lnSuccess <> 1) THEN ? loMailman.LastErrorText RELEASE loMailman RELEASE loEmail RELEASE loSbHtml CANCEL ENDIF lnSuccess = loMailman.CloseSmtpConnection() IF (lnSuccess <> 1) THEN ? "Connection to SMTP server not closed cleanly." ENDIF ? "HTML email with attachments sent!" RELEASE loMailman RELEASE loEmail RELEASE loSbHtml |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.