Xbase++

Mailgun Send Simple Email

See more Mailgun Examples

Send a simple email using Mailgun. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oReq
LOCAL oResp
LOCAL oSbResponseBody
LOCAL oJResp
LOCAL nRespStatusCode
LOCAL cId
LOCAL cMessage

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Implements the following CURL command:

//  curl -s --user 'api:SENDING_API_KEY' \
//  	 https://api.mailgun.net/v3/YOUR_DOMAIN_NAME/messages \
//  	 -F from='Your Name <mailgun@YOUR_DOMAIN_NAME>' \
//  	 -F to='Joe Example <joe@example.com>' \
//  	 -F subject='Hello Joe Example' \
//  	 -F text='Congratulations Joe Example, you just sent an email with Mailgun!  You are truly awesome!'

//  Use the following online tool to generate HTTP code from a CURL command
//  Convert a cURL Command to HTTP Source Code

oHttp:Login := "api"
oHttp:Password := "sending_api_key"//  Replace with your actual sending API key.

oReq := CreateObject("Chilkat.HttpRequest")
oReq:HttpVerb := "POST"
oReq:Path := "/v3/YOUR_DOMAIN_NAME/messages"
oReq:ContentType := "multipart/form-data"

//  Change YOUR_DOMAIN_NAME to something like "mg.your-domain.com".
oReq:AddParam("from", "Your Name <mailgun@YOUR_DOMAIN_NAME>")
oReq:AddParam("to", "Joe Example <joe@example.com>")
oReq:AddParam("subject", "Hello Joe Example")
oReq:AddParam("text", "Congratulations Joe Example, you just sent an email with Mailgun!  You are truly awesome!")

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq("api.mailgun.net", 443, 1, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    oResp:destroy()
    RETURN
ENDIF

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
oResp:GetBodySb(oSbResponseBody)
oJResp := CreateObject("Chilkat.JsonObject")
oJResp:LoadSb(oSbResponseBody)
oJResp:EmitCompact := 0

? "Response Body:"
? oJResp:Emit()

nRespStatusCode := oResp:StatusCode
? "Response Status Code = " + Str(nRespStatusCode)
IF (nRespStatusCode >= 400)
    ? "Response Header:"
    ? oResp:Header
    ? "Failed."
    oHttp:destroy()
    oReq:destroy()
    oResp:destroy()
    oSbResponseBody:destroy()
    oJResp:destroy()
    RETURN
ENDIF

//  Sample JSON response:
//  (Sample code for parsing the JSON response is shown below)

//  {
//    "id": "<20210429234809.1.2D550E1C94D3D98F@sandbox0e542e4c577f4bbb98c8bf6b6bca727b.mailgun.org>",
//    "message": "Queued. Thank you."
//  }

//  Sample code for parsing the JSON response...
//  Use the following online tool to generate parsing code from sample JSON:
//  Generate Parsing Code from JSON

cId := oJResp:StringOf("id")
cMessage := oJResp:StringOf("message")

oHttp:destroy()
oReq:destroy()
oResp:destroy()
oSbResponseBody:destroy()
oJResp:destroy()