//设置SMTP
　SMTP.Host := ledHost.Text; //具体使用的SMTP，可以到你申请的邮箱所在的网站中去找
　SMTP.Port := 25;

　//设置邮件内容
　MailMessage.From.Address := ledFrom.Text;
　MailMessage.Recipients.EMailAddresses := ledTo.Text + ',' + ledCC.Text;

　MailMessage.Subject := ledSubject.Text;
　MailMessage.Body.Text := Body.Text;

　if FileExists(ledAttachment.Text) then
　　TIdAttachment.Create(MailMessage.MessageParts,
　　ledAttachment.Text);

　　//发送邮件
　　try
　　　try
　　　　SMTP.Connect(1000);
　　　　SMTP.Send(MailMessage);
　　　except on E:Exception do
　　　　StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
　　　end;
　　finally
　　　if SMTP.Connected then
　　　SMTP.Disconnect;
　end;

end;

//添加附件代码
procedure TMailerForm.btnAttachmentClick(Sender: TObject);
begin
　if AttachmentDialog.Execute then
　　ledAttachment.Text := AttachmentDialog.FileName;
end;