delphi入门级选手提问：如何在delphi7中用indy的控件进行邮件的收发，

Question

delphi入门级选手提问：如何在delphi7中用indy的控件进行邮件的收发，另外提供一些学习indy的资料

Answer 1

下载Indy的示例程序，里面有你想要的：http://www.indyproject.org/indy/demodownloads/I9D6_Demos_24Nov02.zip

Answer 2

idsmtp1.Host:='smtp.163.com';   //发件人的邮件服务器163:smtp.163.com---
                                 // sina:smtp.sina.com.cn
   idsmtp1.Port:=25;
   try
      Idsmtp1.Connect(500);
   except
      ShowMessage('连接发送邮件服务器失败，请检查！');
      exit;
   end;
   try
      IdSmtp1.AuthenticationType:=atLogin;
      idSmtp1.Username:=‘你的用户名’;      //你的邮箱的用户名，密码
      idSmtp1.Password:=’你的密码‘;
      IdMessage1.Body.Clear;
      IdMessage1.Body.Assign(memo1.Lines);
      IDMessage1.From.Address:=‘你 的邮箱';
      IDMessage1.Recipients.EMailAddresses:='收件人的邮箱';
      IdMessage1.Subject:='bohan';
      Idmessage1.Date:=Now;
      Idsmtp1.Send(IdMessage1);
   finally
      Idsmtp1.disconnect;
      showMessage('发送成功!');
   end;