BeforeSendAttachment Event

Marks the start of sending an attachment.

Syntax

type TBeforeSendAttachmentEvent = procedure (
  Sender: TObject;
  var LastAttachment: Boolean
) of Object;

property OnBeforeSendAttachment: TBeforeSendAttachmentEvent read FOnBeforeSendAttachment write FOnBeforeSendAttachment;

Remarks

Use either AttachmentBytes, AttachmentFile or AttachmentStream properties to pass attachment to the component.

Set LastAttachment parameter to False to indicate that you have more than one attachment to pass.