急。。。IdSMTP发邮件报错"5.7.1 Message cannot be accepted..."

workers 2013-04-18 09:25:13

网上查了，此报错是
“消息无法被发送,是因为你的消息内容可能含有敏感的信息,以致被邮件服务提供商的邮件标准过滤规则过滤了”，又有解释说“邮件内容为空造成的”
但是，相同的主题和内容及收件人，我通过outlook或者foxmail发送则没问题

...全文

184 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

feiba7288 2013-04-18

打赏
举报

回复

单步调试下或者在发送前用个ShowMessage(邮件内容)看下邮件内容是否为空。

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

DelphiXE7 + Indy 10.6.0.5169 测试通过使用ssl时要用openssl动态库,libeay32.dll,ssleay32.dl

delphi发送邮件代码

DELPHI XE10.3发邮件，有附件，网易端口用25，QQ邮箱用587

在Delphi中通过代码实现电子邮件的发送。同时测试了抄送、密送；设置了邮件的重要性，以及上传附件的方法。在Delphi7 Enterprise中测试可以运行。

网络通信/分布式开发

1,594

社区成员

32,958

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章