![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi DLL) Send GMail with AttachmentsDemonstrates how to send an email containing attachments using the GMail REST API. Note: This example requires Chilkat v11.0.0 or greater.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringBuilder, HttpResponse, Email; ... procedure TForm1.Button1Click(Sender: TObject); var success: Boolean; email: HCkEmail; cid: PWideChar; sbHtml: HCkStringBuilder; numReplacements: Integer; mimeType: PWideChar; sbMime: HCkStringBuilder; http: HCkHttp; url: PWideChar; sendGzipped: Boolean; resp: HCkHttpResponse; begin success := False; // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Use the Chilkat Email API to create or load an email. email := CkEmail_Create(); // The From name/address don't need to be specified. // GMail will automatically use your Gmail address if the following 2 lines are omitted. CkEmail_putFromName(email,'My Name'); CkEmail_putFromAddress(email,'my_account_name@gmail.com'); CkEmail_AddTo(email,'John Smith','somebody@somewhere.com'); // To add more recipients, make additional calls to AddTo or AddCC, one per recipient... CkEmail_putSubject(email,'This is a test GMail email created using Chilkat.'); CkEmail_putCharset(email,'utf-8'); CkEmail_AddPlainTextAlternativeBody(email,'This is a test'); // Create an HTML email body with an embedded image. cid := CkEmail__addRelatedFile(email,'qa_data/jpg/starfish.jpg'); sbHtml := CkStringBuilder_Create(); CkStringBuilder_Append(sbHtml,'<html><body>This is a <b>test</b><br><img src="cid:STARFISH_CID"/></body></html>'); numReplacements := CkStringBuilder_Replace(sbHtml,'STARFISH_CID',cid); CkEmail_AddHtmlAlternativeBody(email,CkStringBuilder__getAsString(sbHtml)); // Add some attachments.. mimeType := CkEmail__addFileAttachment(email,'qa_data/helloWorld.pdf'); if (CkEmail_getLastMethodSuccess(email) <> True) then begin Memo1.Lines.Add('Failed to add PDF attachment.'); Exit; end; mimeType := CkEmail__addFileAttachment(email,'qa_data/msword/sample2.docx'); if (CkEmail_getLastMethodSuccess(email) <> True) then begin Memo1.Lines.Add('Failed to add MS-Word attachment.'); Exit; end; // OK.. we now have an HTML email with 2 attachments.. sbMime := CkStringBuilder_Create(); CkEmail_GetMimeSb(email,sbMime); // Send the email. (GMail has a 5MB limit on the total email size.) http := CkHttp_Create(); CkHttp_putAuthToken(http,'GMAIL-ACCESS-TOKEN'); // Send using the simple upload request for the Gmail API url := 'https://www.googleapis.com/upload/gmail/v1/users/me/messages/send?uploadType=media'; sendGzipped := True; resp := CkHttpResponse_Create(); success := CkHttp_HttpSb(http,'POST',url,sbMime,'utf-8','message/rfc822',resp); if (success = False) then begin Memo1.Lines.Add(CkHttp__lastErrorText(http)); Exit; end; // A status code of 200 indicates success. Memo1.Lines.Add('Response status code: ' + IntToStr(CkHttpResponse_getStatusCode(resp))); Memo1.Lines.Add('Response body:'); Memo1.Lines.Add(CkHttpResponse__bodyStr(resp)); // The response body contains JSON. // Use the online tool at Generate JSON Parsing Code // to generate JSON parsing code. // A sample successful JSON response: // { // "id": "166f0d4ac39e50bf", // "threadId": "166f0d4ac39e50bf", // "labelIds": [ // "SENT" // ] // } CkEmail_Dispose(email); CkStringBuilder_Dispose(sbHtml); CkStringBuilder_Dispose(sbMime); CkHttp_Dispose(http); CkHttpResponse_Dispose(resp); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.