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;