VBScript

SMTP Connect and Authenticate

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

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

set mailman = CreateObject("Chilkat.MailMan")

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

success = mailman.SmtpConnect()
If (success = 0) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

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

success = mailman.SmtpAuthenticate()
If (success = 0) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Authenticated!")

outFile.WriteLine(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.

outFile.Close