(Visual FoxPro) SMTP Connect and Authenticate

Demonstrates how to connect and then authenticate with an SMTP server.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loMailman
LOCAL lnSuccess

* 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.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!"

? loMailman.SmtpSessionLog

* Sample session log:

* 220 smtp.us-west-2.mail.awsapps.com ESMTP Amazon WorkMail SMTP Service
* EHLO SLICE<CRLF>
* 250-smtp.us-west-2.mail.awsapps.com
* 250-8BITMIME
* 250-AUTH PLAIN LOGIN
* 250 Ok
* AUTH LOGIN<CRLF>
* 334 VXNlcm5hbWU6
* am9obkBleGFtcGxlLmNvbQ==<CRLF>
* 334 UGFzc3dvcmQ6
* {PasswordOrCredentials}
* 235 Authentication successful.

RELEASE loMailman