B4X

SMTP Connect and Authenticate

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

Dim success As Boolean = False

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

Dim mailman As ChilkatMailMan
mailman.Initialize("mailman")

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

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


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

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


Log("Authenticated!")

Log(mailman.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.