idSmtp 发送邮件失败

hackervip1988 2014-01-15 04:17:35

最近再用Indy10 : idsmtp + idMessage 处理发送邮件
采用定时器每天发送邮件
第一天发送正常，第二天就突然失败啦
提示： connection close gracefully
网上没找到有效的解决方案
目前采取的方式是：当出现异常后，自动重启程序然后在进行发送
请问还有其他好的解决方案吗？
如何解决这个Bug

...全文

146 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

一个简单的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;

昨天高考结束，心里也是一番感慨，当初为了考一个好的学校，高三下学期的时候也是整天挑灯夜战，各种模拟试卷接连着做，结果也只是考了个普通的二本学校。想想当初也是一番血泪史呀。现在大学也毕业刚好三年了，做程序员也有3、4年了，现在也开始转战业务了，不怎么敲代码了，感觉经常ctrl+c,ctrl+v没什么意思，所以只有当有开发技术难点的时候才愿意专研一下。 csdn伴随着我的成长，从刚一开始我

delphi 7发送个邮件一般用到TIdSMTP与TIdMessage这两个组件，他们分别在Indy Clients和Indy Misc两个面板组件页内，或者通过菜单 View -> Component List里面直接输入控件名字查找控件。一般的邮件发送用到前两个控件就可以了，但是现在许多邮箱需要通过SSL加密来发送邮件，这样还需要一个控件TIdSSLIOHandlerSocket（

在delphi2010中拖idsmtp和idmessage这俩个控件。就能够发送邮件了。在buttonbtn1的click事件下写例如以下代码：值得注意的是：1、你用哪个邮箱的server，在IdSMTP1.Host:='smtp.qq.com'这都是有差别的。另外还需在所用的邮箱中设置账号里面开启SMTP服务。 发送邮件内容时，假设不指定IdMessage1.Char...

在Delphi中使用indy SMTP发送gmail邮件[转] 2012-01-01 22:44:30|分类： Delphi |标签： |举报 |字号大中小订阅在Delphi中发送email很简单，发送ssl方式的gmail邮件也很简单，只要在使用的idSMTP上附加一个TIdSSLIOHandlerSocket 就可以了。使用控件...

网络通信/分布式开发

1,593

社区成员

32,963

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章