自动发邮件提示，并将内容显示在邮件中

Question

我们公司想做个报告，当报告中的数据超出上限若A>A*1.02 这自动触发发邮件到指定的邮箱。并将数据显示在邮件中，请问 要那些控件和怎样编辑才可以实现？
谢谢

Answer 1

一个IdMessage控件，和一个IdSMTP控件，其他的你自己加吧。
    
    IdSMTP.Host:=发件服务器;
    IdSMTP.UserName:=发件用户;
    IdSMTP.Password:=发件密码;
    IdSMTP.Connect;    IdMessage.Body.Add('邮件正文');
    IdMessage.Subject:='邮件主题';
    IdMessage.From.Address:=发件地址;
    IdMessage.Recipients.EMailAddresses :=收件地址;
    TIdAttachmentFile.Create(IdMessage.MessageParts,'D:\附件.txt');    IdSMTP.AuthType:=satDefault;
    IdSMTP.Authenticate;
    IdSMTP.Send(IdMessage);
    IdSMTP.Disconnect;
    IdMessage.MessageParts.Delete(0);程序通过Dephi 2010和QQ邮箱发送，请注意开启QQ邮箱的SMTP发件功能。