数学建模社区-数学中国
标题:
一段发送带用户确认的邮件的代码!
[打印本页]
作者:
ilikenba
时间:
2004-4-27 21:01
标题:
一段发送带用户确认的邮件的代码!
IdMessage1->Recipients->EMailAddresses=Edit1->Text; //收件人地址
" ? Z3 B9 i- g
IdMessage1->Subject=Edit2->Text; //邮件主题
9 D, F1 ?( x4 e5 B' a
IdMessage1->Body->Assign(Memo1->Lines); //邮件正文
! Q$ R9 k1 s/ D, V# z
IdMessage1->From->Address=Edit3->Text; //发件人地址
. {) C- D3 Z- y! S
//发送邮件
0 L; u) U6 w9 Q5 I2 @/ r
IdSMTP1->AuthenticationType=atLogin;//需要验证
7 u0 q2 ?) t& y! N* G, y5 S5 h
IdSMTP1->Host="smtp.263.net"; //发送邮件服务器
2 m: j; }8 Z9 k
IdSMTP1->
ort=25;//SMTP端口，默认25
; s! [0 f- j0 E. c; H: O
IdSMTP1->UserId="yyyy";//用户名
. \& B( Q- c! g; o [* }# x0 J
IdSMTP1->
assword="xxxx";//密码
+ k; r4 @& z7 u/ D7 g2 r
try{
( z0 h& B7 Y. \3 W0 T$ z1 U
IdSMTP1->Connect();
) ^ S6 U' K2 j' Z
IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
" N& W9 Q/ ~+ N! C
}
* ^6 S( G0 {: c* k6 |# P0 G3 u2 R6 o
__finally{
1 p4 t, Y9 s3 @: t/ f
IdSMTP1->Disconnect();
7 i6 N- v' K' v2 ~ ~3 F8 k
}
) ?; y% @) T2 n* u+ \
本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
ort=25;//SMTP端口，默认25assword="xxxx";//密码 + k; r4 @& z7 u/ D7 g2 r