delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
indy发信,为什么不成功 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061216175621266.html
procedure   TfrmMain.btn1Click(Sender:   TObject);  
  begin  
  IdSMTP1.Host   :=   'freemx3.sinamail.sina.com.cn';//'mx.mail.163.split.netease.com';//SMTP.163.com服务器Rs`7`@  
  IdSMTP1.Port   :=25;//服务器端口W63gO8  
  try  
      IdSMTP1.Connect;//建立连接d.  
      except  
        Showmessage('连接SMTP服务器失败!');  
        Exit;  
        end;  
  try  
      with   IdMessage1   do  
        begin  
          body.Clear;  
          Body.add('用户名及密码123');//邮件正文件内容,也可这样Body.Assign(memo1.lines);X+  
          From.address   :='ah_wcw@163.com';//发件人名GY  
          Recipients.EMailAddresses   :='ah_wcw@163.com';//收件人邮箱:"  
          Subject:='用户名及密码';//邮件标题dw{d{  
      end;  
    IdSMTP1.Send(IdMessage1);//发送邮件7c"Xy  
    finally  
    showmessage('您的信件已成功发送');  
    IdSMTP1.Disconnect;//断开连接^DpX  
    end;  
   
  end;

要加一句  
  IdSMTP1.AuthenticationType:=atLogin

情况一样啊,大哥

ASMTP.Host:=FSmtpHost;   //主机  
          ASMTP.Port:=FSmtpPort;   //端口  
          ASMTP.Username:=FSmtpUserName;   //用户名  
          ASMTP.Password:=FSmtpPassWord;   //口令  
          ASMTP.AuthenticationType:=FSmtpAuthenticationType;     //认证模式  
          ASMTP.Connect;  
   
  主要是发信服务器要求身份认证,你要将这些信息填全才行。  
  还有就是要确定主机允许这样发信,我用smtp.tom.com可以,用smtp.21cn.com就不行。你可换着试试  
   
 

为何IdSMTP1.Host   :=   'freemx3.sinamail.sina.com.cn';就不可以,听说新浪对INDY控件发过来的参数有了屏蔽作用,那么怎么才能躲避这个。

以前用的是SendMail组件,好象出现过小问题,但还是不会出现不通过的问题

现在估计mail服务器都不好使用了  
  我blog上也有例子,看看也许能帮助你参考参考.

为了减少垃圾邮件,   smtp服务器都会要求认证吧

posted on 2009-05-12 16:02 delphi2007 阅读(294) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。