DELPHI发送邮件源代码


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;
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678