本文整理自网络，侵删。
１. 在窗体上添加一个TidSMTP控件（在Indv Clients页）和一个TidMessage控件（在Indv Misc页）。 ２. 编写代码
procedure TForm1.Button1Click(Sender: TObject);
begin
idSMTP1.Host := 'smtp.163.com'; //邮件发送服务器
try
idSMTP1.Connect;
except
ShowMessage('连接到邮箱服务器失败！');
Exit;
end;
idSMTP1.AuthenticationType := atLogin; //服务器需验证
idSMTP1.UserId := 'YourUserName'; //邮箱登录帐号
idSMTP1.Password := 'YourPassword'; //邮箱登录密码
try
idSMTP1.Authenticate
except
ShowMessage('登录到邮箱服务器失败！');
idSMTP1.Disconnect;
Exit;
end;
idMessage1.From.Address := 'YourUserName@163.com'; //发件人
idMessage1.Recipients.EMailAddresses := 'master@learnew.com'; //收件人
idMessage1.Subject := 'Delphi发送的邮件'; //邮件主题
idMessage1.Body.Text := '这里是邮件的正文！'; //邮件内容
try
idSMTP1.Send(idMessage1);
ShowMessage('邮件发送成功！');
except
ShowMessage('邮件发送失败!');
end;
idSMTP1.Disconnect;
end;
３. 这段代码在 XP + Delphi 6 环境下运行通过。
相关阅读 >>
Delphi实现win10下Delphi 10.3.1 inline hook 调试器法获取寄存器并修改
Delphi 如何得到 winrar 处理解压缩文件的返回值 ？
Delphi Delphi tparallel cleanup needed用法
Delphi有用的函数extractfilename、extractfilepath
Delphi 创建新的messagebox窗口前，先关掉之前已经创建好的
更多相关阅读请进入《Delphi》频道 >>
