文件名称:
Delphi 邮件发送示例 含源码文件.rar
开发工具:
文件大小: 8kb
下载次数: 0
上传时间: 2019-07-10
详细说明： 一个简单的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.Message Parts,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;
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
相关搜索:
