没有合适的资源?快使用搜索试试~ 我知道了~
Delphi 邮件发送示例 含源码文件.rar
所需积分/C币: 44 浏览量·208 RAR 8KB 2019-07-10 18:57:26 上传
身份认证 购VIP最低享 7 折!

一个简单的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;
资源推荐
资源评论







资源评论

weixin_39840650
- 粉丝: 399
- 资源: 1万+

上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
已下载
下载帮助

看过该资源的人还看了
安全验证
文档复制为VIP权益,开通VIP直接复制
