Fetch a Text IMAP Attachment into a StringBuilder

See more IMAP Examples

Demonstrates the Chilkat Imap.FetchAttachmentSb method, which decodes one text attachment into a StringBuilder. The first argument is the Email, the second is the zero-based attachment index, the third is the charset used to decode the bytes, and the fourth is the StringBuilder, which is cleared first. This example decodes the first attachment as UTF-8.

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

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

procedure RunDemo;
var
  success: Boolean;
  imap: TImap;
  headersOnly: Boolean;
  useUid: Boolean;
  seqNum: Integer;
  email: TEmail;
  numAttach: Integer;
  sb: TStringBuilder;
  attachText: string;

begin
  success := False;

  //  Demonstrates the Imap.FetchAttachmentSb method, which downloads one text attachment and
  //  decodes it into a StringBuilder.  The 1st argument is the Email, the 2nd is the zero-based
  //  attachment index, the 3rd is the charset used to decode, and the 4th is the StringBuilder
  //  (cleared first).
  //  
  //  The message is fetched headers-only, then the attachment is downloaded on demand.

  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;

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

  //  Fetch only the message headers.  Attachment bodies are NOT downloaded, but the ckx-imap-*
  //  metadata describing the attachments is present, so the attachment info methods still work.
  headersOnly := True;
  useUid := False;
  seqNum := 1;
  email := TEmail.Create;
  success := imap.FetchEmail(headersOnly,seqNum,useUid,email);
  if (success = False) then
    begin
      WriteLn(imap.LastErrorText);
      Exit;
    end;

  numAttach := imap.GetMailNumAttach(email);
  if (numAttach > 0) then
    begin
      //  Download the first (text) attachment and decode it as UTF-8.  Use this only for text.
      sb := TStringBuilder.Create;
      success := imap.FetchAttachmentSb(email,0,'utf-8',sb);
      if (success = False) then
        begin
          WriteLn(imap.LastErrorText);
          Exit;
        end;

      attachText := sb.GetAsString();
      WriteLn(attachText);
    end;

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


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