D dongfz Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-18 #1 163的可以,我们学校采用的是eyou的email系统,就是不行,怎么回事?
D dongfz Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-18 #2 163的可以,我们学校采用的是eyou的email系统,就是不行,怎么回事?
C chenybin Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-18 #3 看看是不是设置stmp验证,也就是smtp服务器需要身份验证,把设置代码贴出来看看
D dongfz Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-19 #4 就是非常简单的,我设置登陆方式为atlogin.用户名和密码都添加了,就是不行。使用163,263的邮箱都可以。简单代码如下: procedure TForm1.Button2Click(Sender: TObject); begin smtpcom.Disconnect ; end; procedure TForm1.Button3Click(Sender: TObject); begin smtpcom.Disconnect ; smtpcom.AuthenticationType:=atLogin; smtpcom.Host :=smtpserver.Text ; smtpcom.Username :=smtpusername.Text ; smtpcom.Password :=smtppassword.Text ; smtpcom.HeloName :=smtpheloname.Text ; smtpcom.MailAgent :=smtpmailagent.Text ; smtpcom.Port:=25; smtpcom.Connect(-1); //设置邮件服务器参数 with Msg do begin Body.Assign(smtpbody.Lines); //填写信件正文 From.Text:=smtpfrom.text; //填写发信人地址 Recipients.EMailAddresses :=smtpto.Text ; //填写收信人地址 Subject:=smtpSubject.text; //填写邮件标题 Msg.Priority :=mpNormal; //设置发送邮件的优先级 end; //设置发送邮件的内容 Try smtpcom.Send(Msg); finally smtpcom.Disconnect ; end; //发送邮件 end;
就是非常简单的,我设置登陆方式为atlogin.用户名和密码都添加了,就是不行。使用163,263的邮箱都可以。简单代码如下: procedure TForm1.Button2Click(Sender: TObject); begin smtpcom.Disconnect ; end; procedure TForm1.Button3Click(Sender: TObject); begin smtpcom.Disconnect ; smtpcom.AuthenticationType:=atLogin; smtpcom.Host :=smtpserver.Text ; smtpcom.Username :=smtpusername.Text ; smtpcom.Password :=smtppassword.Text ; smtpcom.HeloName :=smtpheloname.Text ; smtpcom.MailAgent :=smtpmailagent.Text ; smtpcom.Port:=25; smtpcom.Connect(-1); //设置邮件服务器参数 with Msg do begin Body.Assign(smtpbody.Lines); //填写信件正文 From.Text:=smtpfrom.text; //填写发信人地址 Recipients.EMailAddresses :=smtpto.Text ; //填写收信人地址 Subject:=smtpSubject.text; //填写邮件标题 Msg.Priority :=mpNormal; //设置发送邮件的优先级 end; //设置发送邮件的内容 Try smtpcom.Send(Msg); finally smtpcom.Disconnect ; end; //发送邮件 end;
D dongfz Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-26 #6 我的问题自己已经解决.现在支持eyou系统.呵呵,说起来比较弱智,我是利用了DELPHI6的控件TNMSMTP,然后在delphi6之中把我要用的功能封装成为一个dll文件,在delphi7中直接调用这个库就可以了。 还有一个办法,那就是把delphi6中的TNMSMTP封装成为ActiveX控件,再在7下面调用。我试过了,完全可以突破eyou系统。呵呵,大家不妨也尝试一下:)
我的问题自己已经解决.现在支持eyou系统.呵呵,说起来比较弱智,我是利用了DELPHI6的控件TNMSMTP,然后在delphi6之中把我要用的功能封装成为一个dll文件,在delphi7中直接调用这个库就可以了。 还有一个办法,那就是把delphi6中的TNMSMTP封装成为ActiveX控件,再在7下面调用。我试过了,完全可以突破eyou系统。呵呵,大家不妨也尝试一下:)
C chenybin Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-26 #7 奇怪,看来只有看看两个控件发送的报文的区别了,楼主送分不[]
D dongfz Unregistered / Unconfirmed GUEST, unregistred user! 2005-09-26 #8 呵呵,给分。 但是我在这里发的帖子基本上都是我自己回答解决的。不过还是感谢你的关注,我就慷慨一把,给你100