Delphi DLL

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 DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
imap: HCkImap;
email: HCkEmail;
mimeText: PWideChar;

begin
success := False;

//  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 := CkImap_Create();

CkImap_putSsl(imap,True);
CkImap_putPort(imap,993);

success := CkImap_Connect(imap,'imap.example.com');
if (success = False) then
  begin
    Memo1.Lines.Add(CkImap__lastErrorText(imap));
    Exit;
  end;
success := CkImap_Login(imap,'user@example.com','myPassword');
if (success = False) then
  begin
    Memo1.Lines.Add(CkImap__lastErrorText(imap));
    Exit;
  end;

//  Build the email to be uploaded.
email := CkEmail_Create();
CkEmail_putSubject(email,'Meeting agenda');
CkEmail_putFrom(email,'Alice <alice@example.com>');
success := CkEmail_AddTo(email,'Bob','bob@example.com');
CkEmail_putBody(email,'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 := CkEmail__getMime(email);
if (CkEmail_getLastMethodSuccess(email) = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

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

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

success := CkImap_Disconnect(imap);
if (success = False) then
  begin
    Memo1.Lines.Add(CkImap__lastErrorText(imap));
    Exit;
  end;

CkImap_Dispose(imap);
CkEmail_Dispose(email);