Delphi ActiveX
Delphi ActiveX
Remove a Single Attachment from an Email
See more Email Object Examples
Demonstrates the Chilkat Email.DropSingleAttachment method, which removes the attachment at the specified zero-based index. Valid indexes run from 0 through NumAttachments - 1. This example adds two attachments, removes the first, and prints the count before and after.
Background: Attachments are addressed by a zero-based index, so the first is
0, the second 1, and so on. DropSingleAttachment removes just one — use it to prune a specific file (say, an oversized or unwanted attachment) while keeping the rest. Note that after a removal the remaining attachments shift down, so if you are deleting several by index, iterate from the highest index downward to avoid skipping any.Chilkat Delphi ActiveX Downloads
var
email: TChilkatEmail;
begin
// Demonstrates the DropSingleAttachment method, which removes the attachment at the
// specified zero-based index.
email := TChilkatEmail.Create(Self);
email.Subject := 'Drop a single attachment';
email.AddStringAttachment('a.txt','first attachment');
email.AddStringAttachment('b.txt','second attachment');
Memo1.Lines.Add('NumAttachments before = ' + IntToStr(email.NumAttachments));
// Remove the attachment at index 0 (the first attachment).
email.DropSingleAttachment(0);
Memo1.Lines.Add('NumAttachments after = ' + IntToStr(email.NumAttachments));