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

ilikenba

IdMessage1->Recipients->EMailAddresses=Edit1->Text;  //收件人地址
  E. Z/ y) g9 v" }  IdMessage1->Subject=Edit2->Text;  //邮件主题
  IdMessage1->Body->Assign(Memo1->Lines);  //邮件正文
  i4 J% J/ ?8 q: m3 ?/ y3 E  IdMessage1->From->Address=Edit3->Text;  //发件人地址
  //发送邮件
- a8 a: @6 D* v* g$ p  IdSMTP1->AuthenticationType=atLogin;//需要验证
$ y+ L+ B/ n3 r! l  IdSMTP1->Host="smtp.263.net";  //发送邮件服务器
. ?  k, O! I; V; L  IdSMTP1-&gtort=25;//SMTP端口，默认25
  IdSMTP1->UserId="yyyy";//用户名
  IdSMTP1-&gtassword="xxxx";//密码
3 I/ V/ a& w3 A1 X. t% h( K  try{
" _- G5 F9 a: B0 k     IdSMTP1->Connect();
     IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
: M% E' {* L* I. E, h$ s: `  }
  __finally{
    IdSMTP1->Disconnect();
  }
本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage