Sending emails from within a CXP page

Sample description

This example contains a class for sending emails from within a CXP page. The class can be used for transforming HTML form data into an XML stream, which is subsequently sent to a certain mail account for further processing. You can find an example for the class' usage in the contact-form.cxp application.

Configuration management

Run in new tab

Live editor

<%#code locality="page-render"%>
<%
    /* Service messages */
    cSuccessDelivery := "Thank you! Your message has been sent and will be processed as soon as possible."
    cFailedConnect := "Unable to connect to the mail server"
    cFailedDelivery := "Unable to deliver message"

/* Create a message to send */
    cMessage := "Empty message"
    IF PCount() > 0
        // Transform the form data sent with the request into an XML stream,
        //and send it to the backend via email for further processing
        aData := ::Params:Collection
        cMessage := '<?xml version="1.0" encoding="UTF-8"?>' + Chr(13)+Chr(10)
        FOR i:=1 TO Len(aData)
            cMessage += "<" + aData[i][1] + ">" + Var2XML(aData[i][2]) + "</" + aData[i][1] + ">" + Chr(13)+Chr(10)
        NEXT
    ENDIF

/* Initialize an smtp client */
    oSmtp := SMTPClient():new(::Config:Smtp:Server, Val(::Config:Smtp:Port))
    oSender := MailAddress():new(::Config:Smtp:Sender)
    oRecipient := MailAddress():new(::Config:Smtp:Recipient)

/* Create an email using the message */
    oMail := MIMEMessage():new()
    oMail:setFrom(oSender)
    oMail:addRecipient(oRecipient)
    oMail:setSubject("CXP Message")
    oMail:setMessage(cMessage)

/* Send the email */
    oResult := DataObject():new()
    oResult:erroneous := .F.

//If the sample running test mode, no email will be sent.
    //Otherwise the sample connects to the mail server and sends the email.
    IF ::Config:smtp:test == "yes"
        oResult:message := cSuccessDelivery
    ELSE
        lConnected := IIF(!Empty(::Config:Smtp:User), oSmtp:connect(::Config:Smtp:User, ::Config:Smtp:Pwd), oSmtp:connect())
        IF lConnected
            lSent := oSmtp:send(oMail)
            oResult:erroneous := !lSent
            oResult:message := IIF(lSent, cSuccessDelivery, cFailedDelivery)
            oSmtp:disconnect()
        ELSE
            oResult:erroneous := .T.
            oResult:message := cFailedConnect
        ENDIF
    ENDIF

? Var2JSON(oResult)
%>

                    Result
                    built with V2 2156
                

Sending emails from within a CXP page

Related articles: