文件名称：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)