数学建模社区-数学中国
标题:
一段发送带用户确认的邮件的代码!
[打印本页]
作者:
ilikenba
时间:
2004-4-27 21:01
标题:
一段发送带用户确认的邮件的代码!
IdMessage1->Recipients->EMailAddresses=Edit1->Text; //收件人地址
: G" y! u' }2 R$ z d
IdMessage1->Subject=Edit2->Text; //邮件主题
0 m+ }3 P- j2 M1 Y+ W
IdMessage1->Body->Assign(Memo1->Lines); //邮件正文
; C" z, l. O6 x3 t2 w. O) t
IdMessage1->From->Address=Edit3->Text; //发件人地址
4 \( J# g9 p4 f; R
//发送邮件
/ M& T# g+ h9 i/ Z g
IdSMTP1->AuthenticationType=atLogin;//需要验证
& `& J3 u1 G. ~3 ?5 `; O
IdSMTP1->Host="smtp.263.net"; //发送邮件服务器
* b1 f0 {/ D, @+ ]8 r1 a4 a
IdSMTP1->
ort=25;//SMTP端口，默认25
" H% s* |$ k5 W$ n
IdSMTP1->UserId="yyyy";//用户名
6 m2 g) c5 d" y6 R. Q0 _& @
IdSMTP1->
assword="xxxx";//密码
5 z7 e' B" z- Z: {: L. w1 v
try{
9 Y. h5 R8 a* p( \( M
IdSMTP1->Connect();
& G" D/ @# _8 m! K: a \
IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
* B% R: k. @% ?$ B
}
. L, Y6 s, Z$ L2 D" S: f0 B- {
__finally{
1 H1 x3 m, P/ B! q0 L7 [
IdSMTP1->Disconnect();
g4 L4 z; e; E$ f/ k
}
8 X. @9 s. y8 I; ?- v
本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
ort=25;//SMTP端口，默认25assword="xxxx";//密码