Pascal (Lazarus/Delphi)
Outlook Send Email using MIME Format

This example sends an email using MIME format via the Microsoft Graph Outlook REST API.
Chilkat Pascal (Lazarus/Delphi) Downloads

Download Chilkat for Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.HttpResponse,
  Chilkat.Email,
  Chilkat.StringBuilder,
  Chilkat.JsonObject,
  Chilkat.Http,
  Chilkat.BinData;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  http: THttp;
  jsonToken: TJsonObject;
  email: TEmail;
  contentIdStarfish: string;
  sbHtml: TStringBuilder;
  numReplacements: Integer;
  content: string;
  bdMime: TBinData;
  sbBase64: TStringBuilder;
  resp: THttpResponse;
  json: TJsonObject;

begin
  success := False;

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

  http := THttp.Create;

  //  Use your previously obtained access token here:
  //  See the following examples for getting an access token:
  //     Get Microsoft Graph OAuth2 Access Token (Azure AD v2.0 Endpoint).
  //     Get Microsoft Graph OAuth2 Access Token (Azure AD Endpoint).
  //     Refresh Access Token (Azure AD v2.0 Endpoint).
  //     Refresh Access Token (Azure AD Endpoint).

  jsonToken := TJsonObject.Create;
  success := jsonToken.LoadFile('qa_data/tokens/microsoftGraph.json');
  if (success = False) then
    begin
      WriteLn(jsonToken.LastErrorText);
      Exit;
    end;

  http.AuthToken := jsonToken.StringOf('access_token');

  //  To send email, we'll POST to the following endpoint:
  //  
  //  POST /users/{id | userPrincipalName}/sendMail
  //  
  //  (The special keyword "me" may be used in place of a principal name.)
  //  

  //  The body of the POST request will contain the MIME source of the email in base64 format.

  //  Create a new email object
  email := TEmail.Create;
  email.Subject := 'Test Outlook API to Send HTML Email with Attachments';
  email.From := 'Mary <mary@somewhere.com>';
  email.AddTo('Joe','joe@example.com');

  //  Add a plain-text alternative body, which will likely never be seen.
  //  (It is shown if the receiving email client is incapable of displaying HTML email.)
  email.AddPlainTextAlternativeBody('This is a plain-text alternative body...');

  //  Our HTML will include an image, so add the related image here.
  contentIdStarfish := email.AddRelatedFile('qa_data/jpg/starfish.jpg');
  if (email.LastMethodSuccess = False) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  //  The src attribute for the image tag is set to the contentIdStarfish:
  sbHtml := TStringBuilder.Create;
  sbHtml.Append('<html><body><p>This is an HTML email with an embedded image.</p>');
  sbHtml.Append('<p><img src="cid:CONTENT_ID_STARFISH" /></p></body></html>');
  numReplacements := sbHtml.Replace('CONTENT_ID_STARFISH',contentIdStarfish);

  email.AddHtmlAlternativeBody(sbHtml.GetAsString());

  //  Finally, add some attachments to the email.
  //  Add a file attachment.
  success := email.AddFileAttachment2('qa_data/pdf/fishing.pdf','application/pdf');
  if (success = False) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  //  Add an attachment where the content is contained in a string.
  content := 'This is the content of the 2nd attached file.';
  email.AddStringAttachment('someText.txt',content);

  //  Get the email as multi-line base64..
  bdMime := TBinData.Create;
  email.GetMimeBd(bdMime);

  //  Now get it as multi-line base64
  sbBase64 := TStringBuilder.Create;
  bdMime.GetEncodedSb('base64_mime',sbBase64);

  //  Send the HTTP POST (i.e. send the email)
  resp := THttpResponse.Create;
  success := http.HttpSb('POST','https://graph.microsoft.com/v1.0/me/sendMail',sbBase64,'utf-8','text/plain',resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  //  The send succeeded if the response status code = 202.
  //  In the success case, there is no response body.  (We just get the response code to know that it succeeded.)
  if (resp.StatusCode <> 202) then
    begin
      json := TJsonObject.Create;
      json.Load(resp.BodyStr);
      json.EmitCompact := False;
      WriteLn(json.Emit());
      WriteLn('Failed, response status code = ' + resp.StatusCode);
    end
  else
    begin
      WriteLn('Outlook Mail Sent.');
    end;


  http.Free;
  jsonToken.Free;
  email.Free;
  sbHtml.Free;
  bdMime.Free;
  sbBase64.Free;
  resp.Free;
      json.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.