如何开发电子邮件服务器(1000分) (200分)

提前一下，各位帮帮忙！

csdn有个源码下载
如果，找不到，来找我吧

coolbaby,
告诉我啊！

首先你至少要了解下面两个协议POP3/SMTP
前者用于邮件的接收，后者用于邮件的发送！
如果你要实现一个邮件服务器那么你必须熟悉这两个协议，相关文档可以到
WWW.CHINA-PUB.COM上的RFC中文计划中去查找！

为了开发殇简便起见你可以考虑首先实现一个简单邮件客户端及用POP3协议收信，用SMTP协议发信
当这个客户端完成以后，您也对这两个协议的工作原理有所熟悉，您就可以考虑进一步编写一个服
务器端了！由于您所要实现的是一个简单的邮件服务器所以您可以忽略MIME编码协议因为这个过程
是在纯粹的EMAIL客户端上来完成的！

栋栋，你好，Workgroupmail具有编程接口，它是一个电子邮件服务程序，我有，你要吗

allenk
gei wo

帮你顶一下。

我以前自己做过一个，只是SMTP功能中的转发还没有实现，你要不要研究研究。嘿嘿！

hua8hua,
给我啊
只能用 andyyau@wx88.net 啦！

Delphi4开发WEBMAIL程序


通常，实现WEBMAIL采用mailto.exe的CGI、在HTML文件中写入“< form action="mailto:电子邮箱地址" method=post >”语句或者调用WINDOWS API函数。采用WINDOWS API 和在HTML文件中写入“< form action="mailto:电子邮箱地址" method=post >”语句都要求用户的浏览器装入EXCHANGE、OUTLOOKEXPRESS、或OUTLOOK等软件，而且还有一些浏览器不支持MAILTO语句。而采用CGI的形式实现WEBMAIL对用户的浏览器没有要求，但效率不高。CGI技术正在逐渐被ISAPI/NSAPI技术所取代。本文就来讨论一下采用ISAPI技术实现WEBMAIL。


使用Delphi 4开发Web Server程序是非常简单的，Delphi 4中提供了大量的元件和对象，支持Web Server程序的开发。 下面通过一个例子来介绍如何利用DELPHI开发一个响应用户输入的ISAPI的WEBMAIL程序。只有在发送服务器上注册的用户才能通过在浏览器发送邮件。为了简单，程序没有对传送的数据提供保密。


首先，在WEB服务器端安装数据库引擎dbe

并设置好数据库别名：yh

指向一个包含用户名和用户密码的数据库文件user.db。接着建立两个HTML文件，名字分别为：dl.html

qd.html，放在WEB服务器的缺省目录下（如：C：/INETPUB/WWWROOT）。


dl.html的内容如下：


< html >


< head >< title > 发送邮件系统< /title >< /head >


< body >


< h1 >发送邮件系统< /h1 >


< p > 请输入您的用户名及密码。< /p >


< form method=”post” action="/scripts/xsmd" >


< p >用户名：< input type="text" length=10


name="username" >


密码：< input type="password"


length=10 name="password" >< /p >


< p >< input type="submit" value="确定" >


< input type="reset" value="清除" >< /p >


< /form >


< /body >


< /html >


qd.html文件内容如下：


< html >< head >< title >填表< /title >< /head >


< body >


< form method=”post” action="feedback" >


< p >请填入接收邮件地址:toaddress:


< input type=”text” length=20


name=”toaddress” >< /p >


< p >请填入主题。< input type="text"


length=20 name="subject" >< /p >


< p >内容：< /p >


< p >< input type=“textarea”length=40


width=40 name=”body” >< /p >


< p >< input type="submit" value="确定" >


< input type="reset" value="清除" >< /p >


< /form >


< /body >


< /html >



在DELPHI中新建一个基于ISAPI的WEB SERVER APPLICATION，手动增加nmsmtp1

query1

pageproducer1。


其中：pageproducer1的property: htmlfile：c:/inetpub/www.root/qd.html。nmsmtp1的 property:host(发送邮件服务器的地址。)在这里为smtp.netease.com.。port:25。 全局变量为： sername:string;flag:boolean;


增加一个路径为/feedback的动作项，其代码如下：


procedure TWebModule1.WebModule1WebActionItem1


Action(Sender: TObject;


Request: TWebRequest; Response:


TWebResponse; var Handled: Boolean);


Var Count:integer;


S:string;


Begin


Query1.close;


Query1.sql.clear;


S:=’select count(username) from


user.db where username=”’;


S:=s+request.contentfields.values[‘username’]+’”’;


S:=s+’ and password=”’;


S:=s+request.contentfields.values[‘psword’]+’”’;


Query1.sql.add(S);


Query1.open;


If query1.count=0


then response.content:=’< html >< head >< title >


< /title >< body >用户名、密码不正确，请重新输入


< /body >< /html >’


Else


Username:=request.contentfields.values[‘username’];


Response.content:=pageproducer1.content;


End;




再增加一个路径为/sendmail 的动作项，


它的程序代码如下：


procedure TWebModule1.WebModule1Web


ActionItem2Action(Sender: TObject;


Request: TWebRequest; Response:


TWebResponse; var Handled: Boolean);


Var body:string;


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;end


pageproducer1.htmldoc.add


(‘< /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上调试通过。

hermes(邮件服务器pop3,smtp)
挺好用的呀
http://www.playicq.com/dispdoc.asp?id=115

晕倒了，我需要一个邮件服务器源代码，只要能收到邮件就可以了，
不需要其它的什么功能。各位大叔大婶帮帮忙。。。。。。。。急需

to 飞来石:
哥哥我用nmsmtp发邮件时.遇到这个问题啊.第一次可以成功发送.第二次就不行了.?麻烦哥哥告诉我
是什么原因啊.怎么办啊..
先谢谢了
incomplete header

详细的介绍可以购买中国铁道出版社出版的《delphi应用实例》，里面有全面的企业信息化解决方案的文章，包括教你如何做自己的多线程WEB服务器和多线程POP,SMTP服务器～！

gz

哈哈，我回来了

我也正想介入EAMILSERVER，希望和大家多多交流。
愿意以我的一套Tcp 异步通讯控件源码，交换一个Email SErver 原代码，最好有设计文档
真切希望和各位高手交流。

我的Email ：snguobin@sohu.com

看一看Http://haitian.myrice.com