Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Delphi ActiveXDelphi DLLVisual FoxProJavaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerShellPythonRubySQL ServerUnicode CUnicode C++Visual Basic 6.0VB.NETVBScript

Visual FoxPro Examples

Certificates
Email Object
Encryption
FTP
HTML-to-XML/Text
Gzip
HTTP
IMAP
MHT / HTML Email
POP3
RSA Encryption
MIME
SMTP
Socket/SSL/TLS
SSH Key
SSH
SFTP
Tar Archive
XML
XMP
Zip

More Examples...
Amazon S3
Bounced Email
CSV
Diffie-Hellman
DKIM / DomainKey
NTLM

 

 

 

 

 

 

 

(Visual FoxPro) Send a Simple Email

Create a simple email and sends it. The SendEmail method establishes a connection (session) with the SMTP server if necessary, and leaves the connection open so that additional sends may proceed using the same session. The SMTP connection (session) may be explicitly closed by calling CloseSmtpSession.

Important: 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.

More information about minimizing SMTP connections.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loMailman
LOCAL lnSuccess
LOCAL loEmail

*  The mailman object is used for sending and receiving email.
* This CreateObject statement uses the new single-DLL ActiveX for v9.5.0
loMailman = CreateObject('Chilkat_9_5_0.MailMan')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loMailman.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loMailman.LastErrorText
    QUIT
ENDIF

*  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
* This CreateObject statement uses the new single-DLL ActiveX for v9.5.0
loEmail = CreateObject('Chilkat_9_5_0.Email')

loEmail.Subject = "This is a test"
loEmail.Body = "This is a test"
loEmail.From = "Chilkat Support <support@chilkatsoft.com>"
loEmail.AddTo("Chilkat Admin","admin@chilkatsoft.com")
*  To add more recipients, call AddTo, AddCC, or AddBcc once per recipient.

*  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
    QUIT
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
    =MESSAGEBOX("Connection to SMTP server not closed cleanly.")
ENDIF

=MESSAGEBOX("Mail Sent!")
 

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