Delphi开发WEBMAIL程序(2)

　(‘< /body >< /html >’);

　response.content:=pageproducer1.content;



end;　　



增加nmsmtp1的事件如下：

procedure TWebModule1.NMSMTP1Connect(Sender: TObject);

begin

　pageproducer1.htmldoc.add

(''''< p >已经和发送邮件服务器连接< /p >'''');

end;



procedure TWebModule1.NMSMTP1Connection

Failed(Sender: TObject);

begin

　flag:=false;

　pageproducer1.htmldoc.add

(''''< p >连接失败< /P >'''');

end;



procedure TWebModule1.NMSMTP1ConnectionRequired

(var Handled: Boolean);

begin

　pageproducer1.htmldoc.add(''''< p >要求进行连接< /p >'''');

end;





procedure TWebModule1.NMSMTP1Failure(Sender: TObject);

begin

　pageproducer1.htmldoc.add(''''< p >发送邮件失败< /p >'''');

　flag:=false;

end;



procedure TWebModule1.NMSMTP1Header

Incomplete(var handled: Boolean;

　hiType: Integer);

begin

　pageproducer1.htmldoc.add(''''< p >head不完整< /p >'''');

　flag:=false;

end;





procedure TWebModule1.NMSMTP1InvalidHost

(var Handled: Boolean);

begin

　pageproducer1.htmldoc.add(''''< p >

发送邮件服务器地址无效< /p >'''');

　flag:=false;

end;





procedure TWebModule1.NMSMTP1RecipientNot

Found(Recipient: String);

begin

　pageproducer1.htmldoc.add

(''''< p >接受邮件地址不正确< /p >'''');

　flag:=false;

end;





procedure TWebModule1.NMSMTP1Success(

Sender: TObject);

begin

　pageproducer1.htmldoc.add(''''< p >

成功发送邮件< /p >'''');

end;　
　　将project存为sendmail.dpr，编译后放到WEB服务器的可执行文件路径下（如：c:\intpub\scripts）,即可响应HTML文件dl.htm的用户输入，并且如果用户的用户名及密码正确则可进入发送邮件的页面，用户填写接受邮件地址及主题、内容后即可发送邮件。此程序在NT SERVER上调试通过。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有