Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1261249
  • 博文数量: 788
  • 博客积分: 4000
  • 博客等级: 上校
  • 技术积分: 7005
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-19 15:52
文章存档

2017年(81)

2011年(1)

2009年(369)

2008年(337)

分类:

2009-05-12 16:04:35



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服务器都会要求认证吧



--------------------------
新闻:微软触控平台Surface SP1发布
网站导航: 博客园首页  新闻  .NET频道  社区  博问  闪存  找找看
阅读(605) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~