本文整理自网络，侵删。
1、拖一个TIdSMTP控件，命名为：ZkyIdSMTP2、拖一个IdMessage控件，命名为：ZkyIdMessage3、拖一个按钮控件，双击进去后写代码。如下：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdBaseComponent, IdMessage; type TForm1 = class(TForm) ZkyIdMessage: TIdMessage; //注意看这里两个控件的名字，下面会用到的 ZkyIdSMTP: TIdSMTP; //注意看这里两个控件的名字，下面会用到的 btnSendMail: TButton; procedure btnSendMailClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnSendMailClick(Sender: TObject);begin //------------------------------------ //设置登录信息 //ZkyIdSMTP为控件名， //可自己更改为与上面的一样的名字。 //格式为： //<TIdSMIP控件名>.<属性>:=<自己的信息> //------------------------------------ ZkyIdSMTP.AuthenticationType := atLogin;//设置登录类型，一般不变动 ZkyIdSMTP.Host := 'mail.qq.com'; //设置SMTP地址 ZkyIdSMTP.UserId := '1111@qq.com'; //设置登录账号 ZkyIdSMTP.Password := '1111'; //设置登录密码 ZkyIdSMTP.Port := 25; //设置端口，必须要整形型 try ZkyIdSMTP.Connect; //连接服务器 except //如果连接失败，提示并退出程序 ShowMessage('连接服务器失败'); Exit; end; ShowMessage('成功连接服务器。'+#10#13+'点击确认后准备发邮件。'); //------------------------------------ //配置发送的内容，格式为： //<TIdMessage的控件名> . <属性>:= //------------------------------------ ZkyIdMessage.From.name := '1111@qq.com';//设置发件人姓名 ZkyIdmessage.Recipients.EMailAddresses:='2222@qq.com';//设置收件人邮箱地址（此为单发邮件的语句，群发时需去掉） Zkyidmessage.Subject := '这是邮件的主题'; //设置邮件主题 Zkyidmessage.body.text := '这是邮件的内容';//设置邮件内容 //------------------------------------ //群发邮件： //ZkyIdMessage.Recipients.add.Text:='<收件人邮箱>'; //ZkyIdMessage.BCCList.Add.Address := '<抄送人邮箱>' ; //ZkyIdMessage.CCList.Add.Address := '<密送人邮箱>' ; //发送给多人的时候，多打几遍语句。 //------------------------------------ try //发邮件 ZkyIdSMTP.Send(ZkyIdMessage); Showmessage('邮件发送成功!'); except Showmessage('邮件发送失败!'); end; end; end.
来源：https://blog.csdn.net/zhouky1993/article/details/60953892 相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
