DataFlex

SMTP Send Raw Command

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

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMailman
    String sResponseStr
    String sTemp1
    Boolean bTemp1

    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!"

    // 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-".
    Get ComSmtpSendRawCommand Of hoMailman "EHLO client.example.com" "utf-8" False To sResponseStr
    Get ComLastMethodSuccess Of hoMailman To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln sResponseStr

    // A sample response:

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


End_Procedure