【文件属性】：
文件名称：Delphi 邮件发送示例 含源码文件.rar
文件大小：8KB
文件格式：RAR
更新时间：2022-07-30 12:44:06
Delphi源码-界面编程
一个简单的Delphi7.0 邮件发送示例 含源码文件，将窗口中的邮件主题、收件人、邮件标题、邮件地址等信息填写完毕后，单击按钮即可发送邮件，基于SMTP发邮件的例子。部分代码段先睹为快：
Clear;
Subject := Edit2.Text;//邮件主题
From.Text := Edit4.Text;//发件人
Recipients.EMailAddresses := Edit3.Text;//收件人
Body.Assign(Memo1.Lines);//邮件内容
if Edit7.Text = '' then//添加附件
TIdAttachment.Create(IdMessage1.MessageParts,Edit7.Text);
IdSMTP1.AuthenticationType := atLogin;//进行身份检验
IdSMTP1.Username := Edit5.Text;//用户名
IdSMTP1.Password := Edit6.Text;//密码
try
IdSMTP1.Connect();//连接
IdSMTP1.Send(IdMessage1);//发送
IdSMTP1.Disconnect;//断开
Application.MessageBox('邮件发送成功!', '提示', MB_OK MB_ICONINFORMATION);
except
Application.MessageBox('邮件发送失败!', '提示', MB_OK MB_ICONINFORMATION);
end;
【文件预览】：
srcfans.com
----邮件发送()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(6KB)
--------Unit1.dfm(4KB)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(3KB)
--------Unit1.pas(2KB)