|
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 a Simple HTML EmailDemonstrates how to send a simple HTML email (i.e. with no images, style sheets, etc.).
LOCAL loMailman LOCAL loEmail 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') * Set the SMTP server. loMailman.SmtpHost = "smtp.chilkatsoft.com" * Set the SMTP login/password (if required) loMailman.SmtpUsername = "myUsername" loMailman.SmtpPassword = "myPassword" * 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 = "This is a test" loEmail.SetHtmlBody('<html><body><p>This is <b>bold text</b>, this is a <a href="http://www.chilkatsoft.com/">hyperlink</a></p></body></html>') loEmail.From = "Chilkat Support <support@chilkatsoft.com>" lnSuccess = loEmail.AddTo("Chilkat Admin","admin@chilkatsoft.com") * Call SendEmail to connect to the SMTP server and send. * The connection (i.e. session) to the SMTP server remains * open so that subsequent SendEmail calls may use the * same connection. lnSuccess = loMailman.SendEmail(loEmail) IF (lnSuccess <> 1) THEN ? loMailman.LastErrorText RELEASE loMailman RELEASE loEmail CANCEL ENDIF * Some SMTP servers do not actually send the email until * the connection is closed. In these cases, it is necessary to * call CloseSmtpConnection for the mail to be sent. * Most SMTP servers send the email immediately, and it is * not required to close the connection. We'll close it here * for the example: lnSuccess = loMailman.CloseSmtpConnection() IF (lnSuccess <> 1) THEN ? "Connection to SMTP server not closed cleanly." ENDIF ? "Mail Sent!" RELEASE loMailman RELEASE loEmail |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.