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; // 先清空上次发送的内容
    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;

相关下载

点击下载