数学建模社区-数学中国
标题:
一段发送带用户确认的邮件的代码!
[打印本页]
作者:
ilikenba
时间:
2004-4-27 21:01
标题:
一段发送带用户确认的邮件的代码!
IdMessage1->Recipients->EMailAddresses=Edit1->Text; //收件人地址
- B7 e) \# `: y+ J! }$ g2 @: D: J
IdMessage1->Subject=Edit2->Text; //邮件主题
4 y" b( I( ^" l
IdMessage1->Body->Assign(Memo1->Lines); //邮件正文
$ m( |" x4 _; p( H* W
IdMessage1->From->Address=Edit3->Text; //发件人地址
. ^' E4 ^- {# {7 L" ?! I
//发送邮件
1 N0 w8 D. h/ H4 B. T2 I' U b
IdSMTP1->AuthenticationType=atLogin;//需要验证
5 ?8 P9 \9 w ^% B$ ?3 q
IdSMTP1->Host="smtp.263.net"; //发送邮件服务器
O/ h; X1 [8 d2 q+ o+ W+ |* t5 J
IdSMTP1->
ort=25;//SMTP端口，默认25
4 {1 h# H* D0 ^8 @! i
IdSMTP1->UserId="yyyy";//用户名
8 x( s# W( T; S2 G' }
IdSMTP1->
assword="xxxx";//密码
4 z5 Q+ J6 n1 S3 B' w
try{
# H. L# p6 H) S1 c' z
IdSMTP1->Connect();
2 b2 d: h* J% c: O8 c7 L% U' C- D
IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
: e- E3 a( R7 s! b* D1 t5 y
}
( d7 o- @5 s- N6 K
__finally{
9 y9 C" V9 S) j
IdSMTP1->Disconnect();
3 A% m9 I+ q, n/ H) X
}
/ h( o3 R& @+ O
本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage
欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)
Powered by Discuz! X2.5
ort=25;//SMTP端口，默认254 {1 h# H* D0 ^8 @! iassword="xxxx";//密码 4 z5 Q+ J6 n1 S3 B' w