Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PowerBuilder) Mailgun Send Send HTML Email with Attachments and HTML ImagesSee more Mailgun ExamplesSends an HTML email with images and attachments. For more information, see https://documentation.mailgun.com/en/latest/api-sending.html#sending
integer li_rc oleobject loo_Http integer li_Success oleobject loo_Req oleobject loo_Bd oleobject loo_Resp oleobject loo_SbResponseBody oleobject loo_JResp integer li_RespStatusCode string ls_Id string ls_Message // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loo_Http = create oleobject li_rc = loo_Http.ConnectToNewObject("Chilkat_9_5_0.Http") if li_rc < 0 then destroy loo_Http MessageBox("Error","Connecting to COM object failed") return end if loo_Http.Login = "api" loo_Http.Password = "sending_api_key"// Replace with your actual sending API key. loo_Req = create oleobject li_rc = loo_Req.ConnectToNewObject("Chilkat_9_5_0.HttpRequest") loo_Req.HttpVerb = "POST" loo_Req.Path = "/v3/YOUR_DOMAIN_NAME/messages" loo_Req.ContentType = "multipart/form-data" // Change YOUR_DOMAIN_NAME to something like "mg.your-domain.com". loo_Req.AddParam("from","Your Name <mailgun@YOUR_DOMAIN_NAME>") loo_Req.AddParam("to","Joe Example <joe@example.com>") loo_Req.AddParam("subject","Hello Joe Example") loo_Req.AddParam("html","<html><body><b>This is the HTML body</b><br><img src=~"cid:cidStarfish.jpg~"></body></html>") // An a attachd file loo_Bd = create oleobject li_rc = loo_Bd.ConnectToNewObject("Chilkat_9_5_0.BinData") li_Success = loo_Bd.LoadFile("qa_data/hamlet.zip") if li_Success = 0 then Write-Debug "Failed to load file attachment." destroy loo_Http destroy loo_Req destroy loo_Bd return end if loo_Req.AddBdForUpload("attachment","hamlet.zip",loo_Bd,"application/zip") // add an image as CID li_Success = loo_Bd.LoadFile("qa_data/jpg/starfish.jpg") if li_Success = 0 then Write-Debug "Failed to load HTML image." destroy loo_Http destroy loo_Req destroy loo_Bd return end if loo_Req.AddBdForUpload("inline","cidStarfish.jpg",loo_Bd,"image/jpeg") loo_Resp = loo_Http.SynchronousRequest("api.mailgun.net",443,1,loo_Req) if loo_Http.LastMethodSuccess = 0 then Write-Debug loo_Http.LastErrorText destroy loo_Http destroy loo_Req destroy loo_Bd return end if loo_SbResponseBody = create oleobject li_rc = loo_SbResponseBody.ConnectToNewObject("Chilkat_9_5_0.StringBuilder") loo_Resp.GetBodySb(loo_SbResponseBody) loo_JResp = create oleobject li_rc = loo_JResp.ConnectToNewObject("Chilkat_9_5_0.JsonObject") loo_JResp.LoadSb(loo_SbResponseBody) loo_JResp.EmitCompact = 0 Write-Debug "Response Body:" Write-Debug loo_JResp.Emit() li_RespStatusCode = loo_Resp.StatusCode Write-Debug "Response Status Code = " + string(li_RespStatusCode) if li_RespStatusCode >= 400 then Write-Debug "Response Header:" Write-Debug loo_Resp.Header Write-Debug "Failed." destroy loo_Resp destroy loo_Http destroy loo_Req destroy loo_Bd destroy loo_SbResponseBody destroy loo_JResp return end if destroy loo_Resp // 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 ls_Id = loo_JResp.StringOf("id") ls_Message = loo_JResp.StringOf("message") destroy loo_Http destroy loo_Req destroy loo_Bd destroy loo_SbResponseBody destroy loo_JResp |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.