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
(Delphi ActiveX) 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
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_v9_5_0_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var http: TChilkatHttp; success: Integer; req: TChilkatHttpRequest; bd: TChilkatBinData; resp: IChilkatHttpResponse; sbResponseBody: TChilkatStringBuilder; jResp: TChilkatJsonObject; respStatusCode: Integer; id: WideString; message: WideString; begin // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. http := TChilkatHttp.Create(Self); http.Login := 'api'; http.Password := 'sending_api_key';// Replace with your actual sending API key. req := TChilkatHttpRequest.Create(Self); req.HttpVerb := 'POST'; req.Path := '/v3/YOUR_DOMAIN_NAME/messages'; req.ContentType := 'multipart/form-data'; // Change YOUR_DOMAIN_NAME to something like "mg.your-domain.com". req.AddParam('from','Your Name <mailgun@YOUR_DOMAIN_NAME>'); req.AddParam('to','Joe Example <joe@example.com>'); req.AddParam('subject','Hello Joe Example'); req.AddParam('html','<html><body><b>This is the HTML body</b><br><img src="cid:cidStarfish.jpg"></body></html>'); // An a attachd file bd := TChilkatBinData.Create(Self); success := bd.LoadFile('qa_data/hamlet.zip'); if (success = 0) then begin Memo1.Lines.Add('Failed to load file attachment.'); Exit; end; req.AddBdForUpload('attachment','hamlet.zip',bd.ControlInterface,'application/zip'); // add an image as CID success := bd.LoadFile('qa_data/jpg/starfish.jpg'); if (success = 0) then begin Memo1.Lines.Add('Failed to load HTML image.'); Exit; end; req.AddBdForUpload('inline','cidStarfish.jpg',bd.ControlInterface,'image/jpeg'); resp := http.SynchronousRequest('api.mailgun.net',443,1,req.ControlInterface); if (http.LastMethodSuccess = 0) then begin Memo1.Lines.Add(http.LastErrorText); Exit; end; sbResponseBody := TChilkatStringBuilder.Create(Self); resp.GetBodySb(sbResponseBody.ControlInterface); jResp := TChilkatJsonObject.Create(Self); jResp.LoadSb(sbResponseBody.ControlInterface); jResp.EmitCompact := 0; Memo1.Lines.Add('Response Body:'); Memo1.Lines.Add(jResp.Emit()); respStatusCode := resp.StatusCode; Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode)); if (respStatusCode >= 400) then begin Memo1.Lines.Add('Response Header:'); Memo1.Lines.Add(resp.Header); Memo1.Lines.Add('Failed.'); Exit; end; // 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 id := jResp.StringOf('id'); message := jResp.StringOf('message'); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.