DataFlex

SMTP Connect and Authenticate

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMailman
    String sTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    Set ComSmtpHost Of hoMailman To "smtp.mail.us-west-2.awsapps.com"
    Set ComSmtpSsl Of hoMailman To True
    Set ComSmtpPort Of hoMailman To 465

    Get ComSmtpConnect Of hoMailman To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Set ComSmtpUsername Of hoMailman To "john@example.com"
    Set ComSmtpPassword Of hoMailman To "the_password"

    Get ComSmtpAuthenticate Of hoMailman To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Authenticated!"

    Get ComSmtpSessionLog Of hoMailman To sTemp1
    Showln sTemp1

    // 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.


End_Procedure