|
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
(Visual FoxPro) 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
LOCAL loHttp LOCAL lnSuccess LOCAL loReq LOCAL loBd LOCAL loResp LOCAL loSbResponseBody LOCAL loJResp LOCAL lnRespStatusCode LOCAL lcId LOCAL lcMessage * This example assumes the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http') loHttp = CreateObject('Chilkat.Http') loHttp.Login = "api" loHttp.Password = "sending_api_key"* Replace with your actual sending API key. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest') loReq = CreateObject('Chilkat.HttpRequest') loReq.HttpVerb = "POST" loReq.Path = "/v3/YOUR_DOMAIN_NAME/messages" loReq.ContentType = "multipart/form-data" * Change YOUR_DOMAIN_NAME to something like "mg.your-domain.com". loReq.AddParam("from","Your Name <mailgun@YOUR_DOMAIN_NAME>") loReq.AddParam("to","Joe Example <joe@example.com>") loReq.AddParam("subject","Hello Joe Example") loReq.AddParam("html",'<html><body><b>This is the HTML body</b><br><img src="cid:cidStarfish.jpg"></body></html>') * An a attachd file * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData') loBd = CreateObject('Chilkat.BinData') lnSuccess = loBd.LoadFile("qa_data/hamlet.zip") IF (lnSuccess = 0) THEN ? "Failed to load file attachment." RELEASE loHttp RELEASE loReq RELEASE loBd CANCEL ENDIF loReq.AddBdForUpload("attachment","hamlet.zip",loBd,"application/zip") * add an image as CID lnSuccess = loBd.LoadFile("qa_data/jpg/starfish.jpg") IF (lnSuccess = 0) THEN ? "Failed to load HTML image." RELEASE loHttp RELEASE loReq RELEASE loBd CANCEL ENDIF loReq.AddBdForUpload("inline","cidStarfish.jpg",loBd,"image/jpeg") loResp = loHttp.SynchronousRequest("api.mailgun.net",443,1,loReq) IF (loHttp.LastMethodSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loHttp RELEASE loReq RELEASE loBd CANCEL ENDIF * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') loSbResponseBody = CreateObject('Chilkat.StringBuilder') loResp.GetBodySb(loSbResponseBody) * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJResp = CreateObject('Chilkat.JsonObject') loJResp.LoadSb(loSbResponseBody) loJResp.EmitCompact = 0 ? "Response Body:" ? loJResp.Emit() lnRespStatusCode = loResp.StatusCode ? "Response Status Code = " + STR(lnRespStatusCode) IF (lnRespStatusCode >= 400) THEN ? "Response Header:" ? loResp.Header ? "Failed." RELEASE loResp RELEASE loHttp RELEASE loReq RELEASE loBd RELEASE loSbResponseBody RELEASE loJResp CANCEL ENDIF RELEASE loResp * 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 lcId = loJResp.StringOf("id") lcMessage = loJResp.StringOf("message") RELEASE loHttp RELEASE loReq RELEASE loBd RELEASE loSbResponseBody RELEASE loJResp |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.