Delphi DLL

Insert Email into GMail Folder

See more GMail REST API Examples

Directly inserts a message into only this user's mailbox similar to IMAP APPEND, bypassing most scanning and classification. Does not send a message.

This example will create a Chilkat Email object and upload/insert it into GMail. Then adds the "INBOX" label to the email to make it appear in INBOX

Delphi DLL

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, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
email: HCkEmail;
sbMime: HCkStringBuilder;
http: HCkHttp;
resp: HCkHttpResponse;
url: PWideChar;
json: HCkJsonObject;
id: PWideChar;
json2: HCkJsonObject;

begin
success := False;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

email := CkEmail_Create();

// This example chooses to load an email from a file.
success := CkEmail_LoadEml(email,'qa_data/eml/testEmail.eml');
if (success = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

// Get the email as MIME.
sbMime := CkStringBuilder_Create();
CkEmail_GetMimeSb(email,sbMime);

http := CkHttp_Create();
resp := CkHttpResponse_Create();

CkHttp_putAuthToken(http,'GMAIL-ACCESS-TOKEN');

// Upload to GMail (does not send, but just inserts).

// IMPORTANT: After uploading/inserting, you won't see the message in the Inbox.
// In your web browser, if you go to "All Mail", you will see it.

url := 'https://www.googleapis.com/upload/gmail/v1/users/me/messages?uploadType=media';
CkHttp_putUncommonOptions(http,'SendGzipped');
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;
CkHttp_putUncommonOptions(http,'');

// 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.
// A sample successful JSON response:

// {
//  "id": "166f583051d36144",
//  "threadId": "166f5529e079a456"
// }

json := CkJsonObject_Create();
CkJsonObject_Load(json,CkHttpResponse__bodyStr(resp));
id := CkJsonObject__stringOf(json,'id');

// Add the Inbox label to the inserted email so that it appears in Inbox.
Memo1.Lines.Add('---- Adding the Inbox label to the newly inserted email. ----');

// Create the following JSON to be sent in a POST to modify labels for this message.
// {
//   "addLabelIds": [
//     "INBOX"
//     ]
// }

json2 := CkJsonObject_Create();
CkJsonObject_UpdateString(json2,'addLabelIds[0]','INBOX');

CkHttp_SetUrlVar(http,'id',id);
url := 'https://www.googleapis.com/gmail/v1/users/me/messages/{$id}/modify';

success := CkHttp_HttpJson(http,'POST',url,json2,'application/json',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.
// A sample successful JSON response:

// {
//  "id": "166f583051d36144",
//  "threadId": "166f583051d36144",
//  "labelIds": [
//   "INBOX"
//  ]
// }

CkEmail_Dispose(email);
CkStringBuilder_Dispose(sbMime);
CkHttp_Dispose(http);
CkHttpResponse_Dispose(resp);
CkJsonObject_Dispose(json);
CkJsonObject_Dispose(json2);

end;