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

[复制链接]

字体大小: 正常放大

ilikenba

1万主题	49 听众	2万积分

TA的每日心情

	奋斗 2024-6-23 05:14

签到天数: 1043 天

[LV.10]以坛为家III

群组: 万里江山

群组: sas讨论小组

群组: 长盛证券理财有限公司

群组: C 语言讨论组

群组: Matlab讨论组

电梯直达

1^#

发表于 2004-4-27 21:01 |只看该作者 |正序浏览

|招呼Ta 关注Ta

IdMessage1->Recipients->EMailAddresses=Edit1->Text;  //收件人地址
  IdMessage1->Subject=Edit2->Text;  //邮件主题
  IdMessage1->Body->Assign(Memo1->Lines);  //邮件正文
  IdMessage1->From->Address=Edit3->Text;  //发件人地址
  //发送邮件
  IdSMTP1->AuthenticationType=atLogin;//需要验证
  IdSMTP1->Host="smtp.263.net";  //发送邮件服务器
  IdSMTP1-&gt

ort=25;//SMTP端口，默认25
IdSMTP1->UserId="yyyy";//用户名
IdSMTP1-&gt

assword="xxxx";//密码
  try{
   IdSMTP1->Connect();
   IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
  }
  __finally{
IdSMTP1->Disconnect();
  }
本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage

zan