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

ilikenba

IdMessage1->Recipients->EMailAddresses=Edit1->Text;  //收件人地址
  IdMessage1->Subject=Edit2->Text;  //邮件主题
2 F7 }" I+ L. |  IdMessage1->Body->Assign(Memo1->Lines);  //邮件正文
. g2 P# \. _  _4 ~1 n5 [  IdMessage1->From->Address=Edit3->Text;  //发件人地址
  //发送邮件
% d4 _) b& _. c  IdSMTP1->AuthenticationType=atLogin;//需要验证
# h$ j4 x% T, R/ C0 ~) S8 d  IdSMTP1->Host="smtp.263.net";  //发送邮件服务器
! y: q( R) [" L8 ]# p  IdSMTP1-&gtort=25;//SMTP端口，默认25
' Y* x7 t: i5 E4 C1 T0 w  IdSMTP1->UserId="yyyy";//用户名
  IdSMTP1-&gtassword="xxxx";//密码
  try{
6 |& _5 ^, d1 c4 m7 E! H' K     IdSMTP1->Connect();
3 n& r  }9 I  j: T     IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
* U4 w; u( `1 Q! i8 i  }
  __finally{
    IdSMTP1->Disconnect();
* P  g: ~1 Q# D1 v! _  }
本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage