本文整理自网络，侵删。
DELPHI发送邮件源代码
测试环境Delphi 10.1 Berlin 和Delphi7
主要控件为indy中 IdSMTP 和 IdMessage
主要代码：
procedure TForm1.SendMail;
begin
if (Edit1.Text = '') or (Edit2.Text = '') or (Edit3.Text = '') then
showmessage('请完整输入信息!')
else
begin
try
IdSMTP1.Username := Edit1.Text; // 设置登陆帐号
IdSMTP1.Password := Edit2.Text; // 设置登陆密码
IdSMTP1.Host := Edit3.Text; // 设置SMTP地址
IdSMTP1.Connect; // 开始连接服务器
except
showmessage('连接失败,请重试!');
Exit; // 连接失败 的话 退出该执行过程
end;
IdMessage1.Body.Clear; // 先清空上次发送的内容 www.delphitop.com
IdMessage1.CharSet := 'GB2312'; // 不设置这个中文会乱码
IdMessage1.Subject := Edit4.Text; // 设置邮件发送的标题
IdMessage1.Body.Text := Memo1.Lines.Text; // 设置邮件发送的主题
IdMessage1.From.Address := Edit1.Text; // 设置邮件的发件人
IdMessage1.Recipients.EMailAddresses := Edit5.Text; // 收件人的地址
try
IdSMTP1.Send(IdMessage1);
showmessage('邮件发送成功!');
except
showmessage('邮件发送失败!');
end;
end;
end; 相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
