Append MIME with Initial IMAP Flags

See more IMAP Examples

Demonstrates the Chilkat Imap.AppendMimeWithFlags method, which uploads a MIME message and sets its initial system flags. The first argument is the mailbox and the second is the MIME text. The third through sixth arguments control \Seen, \Flagged, \Answered, and \Draft respectively — pass true to set a flag. This example uploads a message that is already marked read.

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.Imap,
  Chilkat.Email;

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

procedure RunDemo;
var
  success: Boolean;
  imap: TImap;
  email: TEmail;
  mimeText: string;
  seen: Boolean;
  flagged: Boolean;
  answered: Boolean;
  draft: Boolean;

begin
  success := False;

  //  Demonstrates the Imap.AppendMimeWithFlags method, which uploads a MIME message and sets its
  //  initial system flags.  The 1st argument is the mailbox, the 2nd is the MIME text, and the
  //  3rd through 6th arguments set the \Seen, \Flagged, \Answered, and \Draft flags.

  imap := TImap.Create;

  imap.Ssl := True;
  imap.Port := 993;

  success := imap.Connect('imap.example.com');
  if (success = False) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;
  success := imap.Login('user@example.com','myPassword');
  if (success = False) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  //  Build the email to be uploaded.
  email := TEmail.Create;
  email.Subject := 'Meeting agenda';
  email.From := 'Alice <alice@example.com>';
  success := email.AddTo('Bob','bob@example.com');
  email.Body := 'Let''s meet at 10am to review the agenda.';

  mimeText := email.GetMime();
  if (email.LastMethodSuccess = False) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  //  Choose the initial flags.  Named variables make each argument's meaning clear at the call.
  seen := True;
  flagged := False;
  answered := False;
  draft := False;

  //  Upload to the Inbox already marked as read (\Seen), with the other flags unset.
  success := imap.AppendMimeWithFlags('Inbox',mimeText,seen,flagged,answered,draft);
  if (success = False) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  WriteLn('Appended UID: ' + imap.AppendUid);

  success := imap.Disconnect();
  if (success = False) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;


  imap.Free;
  email.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.