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

ilikenba

IdMessage1->Recipients->EMailAddresses=Edit1->Text;  //收件人地址
  IdMessage1->Subject=Edit2->Text;  //邮件主题
! G) V) W; ^5 s3 n/ M  IdMessage1->Body->Assign(Memo1->Lines);  //邮件正文
  IdMessage1->From->Address=Edit3->Text;  //发件人地址
+ c, L. U. i1 A6 z' B0 t  //发送邮件
; V2 u9 w, n6 G, }4 u0 L  IdSMTP1->AuthenticationType=atLogin;//需要验证
  IdSMTP1->Host="smtp.263.net";  //发送邮件服务器
( K0 X: Z% K0 A  L. D( P  IdSMTP1-&gtort=25;//SMTP端口，默认25
1 W, u) M1 o% e) b7 g# t, R1 Y  IdSMTP1->UserId="yyyy";//用户名
  IdSMTP1-&gtassword="xxxx";//密码
  try{
     IdSMTP1->Connect();
     IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
5 |" o6 r+ I1 T8 [& t; t- l  }
4 w( X# m: Q5 _) n' V* M! `  __finally{
    IdSMTP1->Disconnect();
  }
1 `9 l7 v* V# Y$ N本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage