首先是安装IMAIL软件,我们用的是IMAIL8.0中文版,用户可到各大网站去下载非商用版本。
执行安装程序后系统会提示你决定让Imail使用哪一种数据库。Imail支持三种数据库:可以引用WindowsNT数据库,可以创建自己的账户数据库,也可以引用其他第三方数据库,
我们假设一开始采用Imail自己的数据库,所以我们选择第二个,再按“Next”,又出现了一个对话框,问是否安装SSLKey(Security Socket Layer的缩写,意为套接字协议层),
由于我们目前的邮件服务器只限于内部使用,对于安全性没有很高的要求,所以没有必要去使用SSL,我们选择“否”,接着又出现了一个对话框,问你是否自动回复信件,
我们选择第二个,防止被黑客恶意利用,按“Next”,出现了一个对话框,要你选择Imail要启动哪些服务,
我们选择最基本的三项服务:Imail Web Server(用WEB方式收发EMail)、Imail POP3 Server和Imail SMTP Server,这样Imail就安装好了。
下面是如何配置IMAIL了。
首先进入IMAIL管理,如下图,
我们来看如何添加一个邮局,
选中“localhost”,单击鼠标右键,在快捷菜单中执行“Add Host”, 出现如下对话框,
输入邮局名swfzasp.com,使用Imail数据库,按“Next”,下面又出现一个对话框,要你选择ip地址,
我们输入本机IP10.161.248.3,按“Next”后再用“Next”跳过要你输入别名的对话框,当然如果你在一台上设置多个邮局的话,就要选择虚拟邮局了,如下图,
按下一步后又出现一个选择存放用户信息目录的对话框,
下面是如何来添加用户,选中邮局名,比如“swfzasp.com”,单击鼠标右键,在快捷菜单中执行“Add User”,
接着出现对话框,在对话框中输入用户名test1,建立好后该用户的邮箱名是test1@swfzasp.com,按“下一步”,又出现下面的对话框,要求输入用户的姓名,
输入好后按“下一步”,出现下面的对话框,要求设置初始密码,然后按“下一步”,这样一个用户邮箱就建立好了。下面可以在内部使用test1@swfzasp.com来收发信件了。如果用Outlook收发,在设置帐号时必须把POP3和SMTP服务器都设置为mail.swfzasp.com,用户名设置为test1@swfzasp.com,如下图,但是如果用WEB方式收发的话,还要在DNS服务器上建立虚拟域名mail.swfzasp.com,在Internet服务管理器中建立一个虚拟WEB站点,并捆绑到域名mail.swfzasp.com,主目录用IMail所在的目录C:\IMail\Web(详细方法在前二结已有阐述,我们不再着重讲)。
下面看看如何在客户端用WEB方式收发邮件,在客户端键入地址http://mail.swfzasp.com:8383/,出现下面的页面,
输入用户名和密码,注意用户名应该用test1@swfzasp.com而不是test1,按“登录”后,就进入如下的页面,就可以进行邮件收发了。
因为笔者想要做一个邮箱申请的界面来代替管理员单纯地来开邮箱,所以要使用第三方数据库。要设置第三方数据库,必须事先给IMAIL设置数据源:IMAILSECDB,这也是IMAIL默认的名字。
接下来为IMAIL设置ODBC数据源。在控制面板的管理工具中,双击“数据源(ODBC)”,在ODBC数据源管理器窗口中,点击“系统DSN卡”→“添加(D)…”按钮,从出现的列表中选择“Microsoft access Driver(*.mdb)”,然后点击“完成”按钮。在弹出的窗口中的“数据源名”填“IMAILSECDB”。然后按“选择”给这个数据源选择数据库文件,选择已建立好的数据库文件swfzasp.mdb,如下图。
下面可以用ASP编写了一段邮箱申请的网页程序,里面主要是对swfzasp.mdb库中数据的添加。
网页申请页面register.asp(因为该页面基本上没有ASP,所以只展示预览的页面)
function.asp(主要用于连接数据库等函数)
Function OpenOrGet_Database(sessionName)
Dim conn
If Not IsObject(Session(SessionName)) Then
dbpath=server.mappath("..\webmail\database\swfzasp.mdb")
'dbpath="c:\imail\slmasp_com\swfzasp.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" %26amp; dbpath
Set Session(SessionName) = conn
End If
Set OpenOrGet_Database = Session(SessionName)
End Function
%
usrinsert.asp(用于验证用户名是否合法,如果合法就添加该用户到数据库中)
注册邮箱
username = Request("username")
passWord1 = Request("password1")
name=Request("name")
reif=session("reif")
if reif="1" then '如果reif为1,则插入,如不是,则由于客户可能是刷新页面所致,不执行插入操作
Set conn = OpenOrGet_Database("myconn")
sql="select * from swfzchz_com where userid='" %26amp; request("username") %26amp; "'"
set rs1=conn.execute(sql)
if not (rs1.bof or rs1.eof) then
%
%26amp;nbsp;
%26amp;nbsp;
对不起,该用户名已存在,请返回后重新输入!
返回
end if
conn.execute "insert into swfzchz_com(userid,password,fullname,userdir,mailaddr,flags)" %26amp; " values(" %26amp; "'" %26amp; username %26amp; "'"
%26amp; "," %26amp; "'" %26amp; password1 %26amp; "'" %26amp; "," %26amp; "'" %26amp; name %26amp; "'" %26amp; "," %26amp; "'" %26amp; "c:\imail\swfzchz_com\users\" %26amp; username %26amp; "'" %26amp; "," %26amp;
"'" %26amp; username %26amp; "@swfzasp.com" %26amp; "'" %26amp; "," %26amp; "'" %26amp; "128" %26amp; "'" %26amp;")"
session("reif")="0"
%
%26amp;nbsp;
恭喜你,已注册成功!请http://mail.swfzasp.com:8383/"登录href="http://mail.swfzasp.com:8383/"邮箱!
else%
请先进入注册页面!
这样用户在局域网的任何一个终端都可以进行邮箱的申请了。
, ,