mMsg := TIdMessage.Create(Self);
TIdAttachment.Create(mMsg.MessageParts, fileName); //filename是你的附件文件名称
with mMsg do
begin
From.Text := '参考帮助';
Recipients.EMailAddresses := '参考帮助';
Subject := '主题';
Priority := mpNormal;
ReceiptRecipient.Text := '参考帮助';
....
end;
