Lianja

SMTP Send Raw Command

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

llSuccess = .F.

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

loMailman = createobject("CkMailMan")

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

llSuccess = loMailman.SmtpConnect()
if (llSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    return
endif

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

llSuccess = loMailman.SmtpAuthenticate()
if (llSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    return
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",.F.)
if (loMailman.LastMethodSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    return
endif

? lcResponseStr

// A sample response:

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


release loMailman