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

ilikenba

IdMessage1->Recipients->EMailAddresses=Edit1->Text;  //收件人地址
  IdMessage1->Subject=Edit2->Text;  //邮件主题
/ ]; a8 @+ S! G# E. P; E+ c4 A  IdMessage1->Body->Assign(Memo1->Lines);  //邮件正文
* j2 u$ N# [& O  IdMessage1->From->Address=Edit3->Text;  //发件人地址
; @. y( a6 ]& X" Q3 U6 ]8 V  //发送邮件
9 T0 {* Y) d, o2 s( A" p5 |  IdSMTP1->AuthenticationType=atLogin;//需要验证
  IdSMTP1->Host="smtp.263.net";  //发送邮件服务器
  IdSMTP1-&gtort=25;//SMTP端口，默认25
& f0 M3 h0 Z* j! q; [  IdSMTP1->UserId="yyyy";//用户名
) R2 t" y$ C2 r# ]0 i6 Z& V  IdSMTP1-&gtassword="xxxx";//密码
' p" @& h: `# m3 F0 a  try{
     IdSMTP1->Connect();
     IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
- j1 r+ T3 {) ~! ^5 `; p. Q  }
  __finally{
+ R7 u) E% o3 a/ G% O2 j    IdSMTP1->Disconnect();
6 f% u$ }' K1 \+ ]  }
本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage