Delphi DLL

Unzip an Email's Zip Attachments

Demonstrates the Chilkat Email.UnzipAttachments method, which unzips and replaces any Zip file attachments with their expanded contents. For example, if an email contains a single Zip holding three files, that Zip attachment is replaced by the three files as individual attachments. This example loads an email and expands its Zip attachments.

Background: Senders often bundle several files into one .zip to keep a message tidy or to compress large content. UnzipAttachments reverses that automatically, so downstream processing can work with the individual files directly rather than having to detect, extract, and re-inject archive contents. It is the inverse of ZipAttachments.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
email: HCkEmail;

begin
success := False;

//  Demonstrates the UnzipAttachments method, which unzips and replaces any Zip file
//  attachments with their expanded contents.  For example, a single Zip containing 3 files
//  is replaced by those 3 files as individual attachments.

email := CkEmail_Create();

success := CkEmail_LoadEml(email,'qa_data/eml/with_zip_attachment.eml');
if (success = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

Memo1.Lines.Add('NumAttachments before = ' + IntToStr(CkEmail_getNumAttachments(email)));

//  Expand any Zip attachments in place.
success := CkEmail_UnzipAttachments(email);
if (success = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

Memo1.Lines.Add('NumAttachments after = ' + IntToStr(CkEmail_getNumAttachments(email)));

//  Note: The path "qa_data/..." is a relative local filesystem path,
//  relative to the current working directory of the running application.

CkEmail_Dispose(email);