如何用Delphi开发简单的WebMail程序

　　Begin

　　Flag:=true;

　　body:=request.contentfields.values[‘body’];

　　Pageproducer1.htmldoc.clear;

　　Pageproducer1.htmldoc.add(‘< html >< body >’);

　　Nmsmtp1.postmessage.clear;

　　Nmsmtp1.postmessage.fromaddress:=username+’.netease.com’;

　　Nmsmtp1.postmessage.from:=username;

　　Nmsmtp1.postmessage.body.add(body);

　　Nmsmtp1.postmessage.toaddress.add(request.contentfields.values[‘toaddress’]);

　　Nmsmtp1.postmessage.subject:=request.contentfields.values[‘subject’]；

　　Nmsmtp1.connect;

　　If flag=true then 

　　begin

　　Nmsmtp1.sendmail;

　　nmsmtp1.disconntent;

文章来源于领测软件测试网 https://www.ltesting.net/