一段发送带用户确认的邮件的代码!

ilikenba

IdMessage1->Recipients->EMailAddresses=Edit1->Text;  //收件人地址
5 C6 C/ n+ P9 f$ B5 d  IdMessage1->Subject=Edit2->Text;  //邮件主题
  IdMessage1->Body->Assign(Memo1->Lines);  //邮件正文
  IdMessage1->From->Address=Edit3->Text;  //发件人地址
  //发送邮件
$ X5 O- w8 _& c9 b$ G. P  IdSMTP1->AuthenticationType=atLogin;//需要验证
7 Z, B3 P+ \' E2 i6 w0 H$ L$ R  IdSMTP1->Host="smtp.263.net";  //发送邮件服务器
9 p6 S5 f  S* ?& [' V3 }  IdSMTP1-&gtort=25;//SMTP端口，默认25
  IdSMTP1->UserId="yyyy";//用户名
% X) A( `# R% Y3 J9 s6 X0 O# [  IdSMTP1-&gtassword="xxxx";//密码
  try{
0 b* ]0 R! ^( K* a' J' Q9 s     IdSMTP1->Connect();
: V  L( z2 d: c; H; {     IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
/ G! L+ n( V6 {# @: v  i# |  A0 H2 a  }
! Y& m4 F$ g: I  __finally{
2 d6 r4 d( c  r9 `: C/ v    IdSMTP1->Disconnect();
" H* p- l/ v( s  C  }
1 T" [5 k; @: m. R/ w2 q5 D本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage