Xojo Plugin

SMTP Send Raw Command

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

Dim success As Boolean
success = False

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

Dim mailman As New Chilkat.MailMan

mailman.SmtpHost = "smtp.mail.us-west-2.awsapps.com"
mailman.SmtpSsl = True
mailman.SmtpPort = 465

success = mailman.SmtpConnect()
If (success = False) Then
    System.DebugLog(mailman.LastErrorText)
    Return
End If

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

success = mailman.SmtpAuthenticate()
If (success = False) Then
    System.DebugLog(mailman.LastErrorText)
    Return
End If

System.DebugLog("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-".
Dim responseStr As String
responseStr = mailman.SmtpSendRawCommand("EHLO client.example.com","utf-8",False)
If (mailman.LastMethodSuccess = False) Then
    System.DebugLog(mailman.LastErrorText)
    Return
End If

System.DebugLog(responseStr)

// A sample response:

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