Xbase++
Mailgun Send Send HTML Email with Attachments and HTML Images

Sends an HTML email with images and attachments.
Chilkat Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oHttp
LOCAL oReq
LOCAL oBd
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")

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("html", '<html><body><b>This is the HTML body</b><br><img src="cid:cidStarfish.jpg"></body></html>')

//  An a attachd file
oBd := CreateObject("Chilkat.BinData")
nSuccess := oBd:LoadFile("qa_data/hamlet.zip")
IF (nSuccess == 0)
    ? "Failed to load file attachment."
    oHttp:destroy()
    oReq:destroy()
    oBd:destroy()
    RETURN
ENDIF

oReq:AddBdForUpload("attachment", "hamlet.zip", oBd, "application/zip")

//  add an image as CID
nSuccess := oBd:LoadFile("qa_data/jpg/starfish.jpg")
IF (nSuccess == 0)
    ? "Failed to load HTML image."
    oHttp:destroy()
    oReq:destroy()
    oBd:destroy()
    RETURN
ENDIF

oReq:AddBdForUpload("inline", "cidStarfish.jpg", oBd, "image/jpeg")

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq("api.mailgun.net", 443, 1, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    oBd: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()
    oBd: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()
oBd:destroy()
oResp:destroy()
oSbResponseBody:destroy()
oJResp:destroy()