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

ilikenba

IdMessage1->Recipients->EMailAddresses=Edit1->Text;  //收件人地址
8 P$ a* ~2 e, D: C' w% ^  IdMessage1->Subject=Edit2->Text;  //邮件主题
  IdMessage1->Body->Assign(Memo1->Lines);  //邮件正文
  IdMessage1->From->Address=Edit3->Text;  //发件人地址
  //发送邮件
6 ~3 N* E5 l0 C$ g' m+ h9 l! C' a  IdSMTP1->AuthenticationType=atLogin;//需要验证
3 y$ n/ G) o! b  i1 o+ X  C  IdSMTP1->Host="smtp.263.net";  //发送邮件服务器
  IdSMTP1-&gtort=25;//SMTP端口，默认25
3 l1 z- f& S' K  IdSMTP1->UserId="yyyy";//用户名
3 D6 b* t: ^( U* {1 |& L9 V  IdSMTP1-&gtassword="xxxx";//密码
. t! k, ^/ y: Y$ e* D, X  M$ U  try{
$ a$ }8 v6 o$ u     IdSMTP1->Connect();
     IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
: ?2 E2 H* x% O# V* e$ f' t! O  }
  __finally{
    IdSMTP1->Disconnect();
  }
本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage