用IdSMTP做的邮件发送程序,用STMP.SINA.COM.CN, 出现'220 sina.com ESMTP' 是何原因.

jas_liu 2003-05-20 12:47:04

Project mail.exe raised exception class EIdProtocolReplyError with message "220 sina.com ESMTP".

...全文

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

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

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

SMTP发送邮件 -源码.zip

主要介绍了Delphi - Indy idMessage和idSMTP实现邮件的发送,本文通过实例代码给大家介绍的非常详细，具有一定的参考借鉴价值，需要的朋友可以参考下

用Indy10中的TIdSMTP发送邮件，按以下方法可以实现SSL安全连接： 1 把附件文件解压缩后的两个dll放到程序文件夹下 2 增加一个TIdSSLIOHandlerSocketOpenSSL控件 3 两个控件的关键属性设置如下： object IdSMTP1: TIdSMTP IOHandler = IdSSLIOHandlerSocketOpenSSL1 Host = 'smtp.qq.com' Port = 465 UseTLS = utUseImplicitTLS end object IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL Destination = 'smtp.qq.com:465' Host = 'smtp.qq.com' Port = 465 end 以上方法，用Delphi6+Indy10.5.5测试通过。同样用此方法，可以用TIdPOP3实现接收邮件。注意，网上查到的相关说明大都是针对Indy9的，不适用于Indy10。

delphi idsmtp发送信件。无第三方控件。 ------------ 下载后评分。

网络通信/分布式开发

1,593

社区成员

32,964

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章