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

ilikenba

IdMessage1->Recipients->EMailAddresses=Edit1->Text;  //收件人地址
0 [" t: Y0 ~2 l! m( m  IdMessage1->Subject=Edit2->Text;  //邮件主题
  IdMessage1->Body->Assign(Memo1->Lines);  //邮件正文
  IdMessage1->From->Address=Edit3->Text;  //发件人地址
8 ^# ^3 N' C& P% m  //发送邮件
) b% `# Z$ ?5 L- T. n  IdSMTP1->AuthenticationType=atLogin;//需要验证
  IdSMTP1->Host="smtp.263.net";  //发送邮件服务器
  IdSMTP1-&gtort=25;//SMTP端口，默认25
  IdSMTP1->UserId="yyyy";//用户名
9 V. a2 b* y8 o  IdSMTP1-&gtassword="xxxx";//密码
9 P. C" x; Y, ~8 o" H  try{
     IdSMTP1->Connect();
% [% c6 t* X" G4 Q5 `9 C# u2 k. ^     IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
5 z9 z4 `8 {9 I6 C7 i7 Q  }
  __finally{
    IdSMTP1->Disconnect();
  }
本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage