一段发送带用户确认的邮件的代码!
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->Port=25;//SMTP端口，默认25
IdSMTP1->UserId="yyyy";//用户名
IdSMTP1->Password="xxxx";//密码
try{
IdSMTP1->Connect();
IdSMTP1->Send(IdMessage1);//发送存放在IdMessage1里的邮件
}
__finally{
IdSMTP1->Disconnect();
}
本程序在CB6+update4,windows2000下调试通过，需要控件IdSMTP和IdMessage
页:
[1]