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

ilikenba

IdMessage1->Recipients->EMailAddresses=Edit1->Text;  //收件人地址
, c" I* e, ]9 |/ u6 t  IdMessage1->Subject=Edit2->Text;  //邮件主题
2 e" f# l8 _, \3 I  D6 Z2 P- i  IdMessage1->Body->Assign(Memo1->Lines);  //邮件正文
. _) t7 E( m4 B6 o  IdMessage1->From->Address=Edit3->Text;  //发件人地址
, ^% ]6 ]" A( L1 x) o2 N7 D  //发送邮件
  IdSMTP1->AuthenticationType=atLogin;//需要验证
+ K# ?! _( E. m& Z! `  IdSMTP1->Host="smtp.263.net";  //发送邮件服务器
/ m8 Z4 N9 H$ D/ r' k  IdSMTP1-&gtort=25;//SMTP端口，默认25
  IdSMTP1->UserId="yyyy";//用户名
7 l& S2 p5 G5 F4 }: N4 P  IdSMTP1-&gtassword="xxxx";//密码
3 n' L8 |- H! N% W4 q$ A. Z3 a5 W  try{
9 {! R7 q  {; [: r& s' l, C9 A     IdSMTP1->Connect();
     IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
  }
  __finally{
    IdSMTP1->Disconnect();
; x! R9 j2 y5 {- I6 }8 `1 t  }
5 Z$ j% j, W$ _0 @/ B) `' A本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage