Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftTclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.js

Visual FoxPro Examples

Async
Certificates
ECC
Email Object
Encryption
FTP
HTML-to-XML/Text
Gzip
HTTP
IMAP
JSON
MHT / HTML Email
PEM
PFX/P12
Java KeyStore (JKS)
POP3
RSA Encryption
MIME
REST
SCP
SMTP
Socket/SSL/TLS
SSH Key
SSH
SFTP
Stream
Tar Archive
XML
XMP
Zip

More Examples...
Google APIs
Google Cloud Storage
Azure Cloud Storage
Amazon S3 (new)
Google Drive
ASN.1
PRNG
Amazon S3
Bounced Email
CSV
Diffie-Hellman
DKIM / DomainKey
DSA
NTLM
QuickBooks

 

 

 

 

 

 

 

Sending Mail in Visual FoxPro 7

This examples demonstrates sending mail in Visual FoxPro 7.

***********************************************************
*** Chilkat SMTP: Send a single email without attachments
***********************************************************

LOCAL loMailMan, loEmail, lnSuccess


********************************************************************
*!*	object loMailman (ChilkatMailMan2) manages pop3 / smtp configuration
*!*	and sending and receiving email
********************************************************************
*!*	object loEMail (ChilkatEmail2) represents an email
********************************************************************


****************************
*!*	configure smtp options
****************************
loMailman = CreateObject('Chilkat.MailMan2')
loMailman.UnlockComponent('unlock_code')        && Unlocks the mailman object

*The hostname of the SMTP server used to send email
loMailman.SmtpHost     = 'smtp.earthlink.net'

*The login for logging into the SMTP server. Use this only if your SMTP server requires authentication
*loMailman.SmtpUsername = 'my_username'   
*loMailman.SmtpPassword = 'my_password'
       
*default: 25 -> The port number of the SMTP server used to send email. 
*Only needs to be set if the SMTP server is running on a non-standard port
*loMailman.SmtpPort     = 25 

****************************
*!*	create the email
****************************
loEmail         = CreateObject("Chilkat.Email2")
loEmail.AddTo   ( "Chilkat Support", "support@chilkatsoft.com")           && Adds a recipient to the "to" list
loEmail.Subject = "Hello! This is a test email"           && The subject of the email
loEmail.Body    = "This is an email."                      && The body of the email
loEmail.FromName    = 'Matt'
loEmail.FromAddress = "matt@chilkatsoft.com" 

*Send an email. If mail was not successfully sent to any recipients, then an error is raised
lnSuccess = loMailman.SendEmail(loEmail) 

*!*	Nobody got the email: Function returns 0 and error is raised. 
*!*	Everybody got the email: Function returns 1. 
*!*	Some, but not everyone, got the email: Function returns 0, but error is not raised.

IF ( lnSuccess = 1 )
	=MESSAGEBOX('The mail was sent succesfully',0+64,'Chilkat send email')
ELSE
	=MESSAGEBOX(loMailman.LastErrorText)
ENDIF

******************************************************************************
* Releasing objects
******************************************************************************
RELEASE loMailman, loEmail

RETURN .T.
******************************************************************************

 

 

© 2000-2016 Chilkat Software, Inc. All Rights Reserved.