Delphi ActiveX

Append a MIME Message to an IMAP Mailbox

Demonstrates the Chilkat Imap.AppendMime method, which uploads a complete RFC 822/MIME message to a mailbox. The first argument is the destination mailbox name and the second is the MIME text. This example obtains the MIME from an Email object and uploads it to Drafts.

Background: Use AppendMime when you already hold a message's raw source — a .eml file, a message you assembled, or one you received. Chilkat sends the text exactly as supplied, without normalizing line endings or re-encoding headers, so every header and MIME boundary is preserved verbatim. The supplied text must be plain text (no raw non-text binary bytes).

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
imap: TChilkatImap;
email: TChilkatEmail;
mimeText: WideString;

begin
success := 0;

//  Demonstrates the Imap.AppendMime method, which uploads a complete MIME message to a mailbox.
//  The 1st argument is the destination mailbox name and the 2nd is the MIME text.

imap := TChilkatImap.Create(Self);

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

success := imap.Connect('imap.example.com');
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;
success := imap.Login('user@example.com','myPassword');
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

//  Build the email to be uploaded.
email := TChilkatEmail.Create(Self);
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.';

//  Obtain the MIME text to upload.  Here it is generated from the Email, but it could equally
//  be read from a .eml file.
mimeText := email.GetMime();
if (email.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

//  Append (upload) the MIME to the "Drafts" mailbox.
success := imap.AppendMime('Drafts',mimeText);
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Appended UID: ' + IntToStr(imap.AppendUid));

success := imap.Disconnect();
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;