Visual FoxPro

SMTP Send Raw Command

Demonstrates how to send a raw command to the SMTP server after the connecting and authenticating. Visual FoxPro

LOCAL lnSuccess
LOCAL loMailman
LOCAL lcResponseStr

lnSuccess = 0

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

loMailman = CreateObject('Chilkat.MailMan')

loMailman.SmtpHost = "smtp.mail.us-west-2.awsapps.com"
loMailman.SmtpSsl = 1
loMailman.SmtpPort = 465

lnSuccess = loMailman.SmtpConnect()
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

loMailman.SmtpUsername = "john@example.com"
loMailman.SmtpPassword = "the_password"

lnSuccess = loMailman.SmtpAuthenticate()
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

? "Authenticated!"

* Send the "EHLO" command again to get the multi-line response that includes the SMTP capabilities.
* The capabilities are the lines in the response that begin with "250-".
lcResponseStr = loMailman.SmtpSendRawCommand("EHLO client.example.com","utf-8",0)
IF (loMailman.LastMethodSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

? lcResponseStr

* A sample response:

* 250-smtp.us-west-2.mail.awsapps.com
* 250-8BITMIME
* 250-AUTH PLAIN LOGIN
* 250 Ok

RELEASE loMailman