[原创]我是怎么把 MDaemon 整合到公司的OA系统中的

enjoy

背景：公司原有OA系统（asp+SqlServer），希望把 MDaemon 整合进去提供邮件功能。<br>
<br>
目的：统一用户名、密码，不让用户进行重复登陆，OA用户自动获得用户名开头的邮箱。……<br>
<br>
思路：用户登陆OA系统后，增加一个菜单“电子邮件”。<br>
这个菜单链接到Mail.asp<br>
在这个文件中判断这个用户是否已经有邮箱，如果有，跳转到WorldClient<br>
如果没有，创建并跳转到WorldClient<br>
<br>
PS:MDaemon 用户帐号采用了ODBC数据库存储，这是MDaemon 自带的功能。这里不详细说。主要是在OA库里建了2个表：UserList和Domains.<br>
<br>
如果有人需要，等下我可以贴出Mail.asp代码。

enjoy

初来这个论坛，很多帖子给了俺巨大帮助。大家以后多照顾……：）

fqfgh

搂住贴出来看看呀。谢谢了

enjoy

代码没怎么整理，但是写过asp的兄弟应该很容易可以看明白了……:)<br>
<br>
<!--#include file="conn.asp" --><br>
<%<br>
'********************************************************************<br>
'** 整合 MDaemon 到OA系统中的代码 **<br>
'** 作者：enjoy 联系方式：aenjoy@126.com QQ:15159174 **<br>
'** 2004-7-29 **<br>
'********************************************************************<br>
if session("pcbh")<>"" then <br>
<br>
dim user,password,domain<br>
user=session("pcbh")<br>
password=session("pcmm")<br>
domain="sohu.com"<br>
set rs1=server.createobject("AdODB.RecordSet")<br>
sql1="select DomainId from Domains where DomainName='"&domain&"'"<br>
rs1.open sql1,conn,1,1<br>
domainId=rs1("DomainId")<br>
<br>
<br>
<br>
set rs=server.createobject("AdODB.RecordSet")<br>
sql="select * from userlist where MailBox='"&user&"'"<br>
<br>
rs.open sql,conn,1,3<br>
<br>
<br>
'********************************************************************<br>
'如果没有该用户的邮箱那么就创建，这里需要创建一个邮箱文件夹和一个用户帐号<br>
'********************************************************************<br>
if rs.eof then<br>
<br>dim Road '物理路径<br>Road = "C:\MDaemon\Users\"&domain<br>
<br>Set fso = Server.CreateObject("Scripting.FileSystemObject")<br>if Not(fso.FolderExists(Road+"\"+user)) then<br>set f = fso.CreateFolder(Road+"\"+user)<br>end if <br>Set fso = nothing<br>
<br>sql="insert into UserList(Mailbox,FullName,MailDir,Password,AutoDecode,IsForwarding,AllowAccess,AllowChangeViaEmail,KeepForwardedMail,HideFromEveryone,EncryptMail,ApplyQuotas,EnableMultiPop,CanModifyGAB,CalendarOnly,MaxMessageCount,MaxDiskSpace,DomainID) values('"&user&"','"&session("pcxm")&"','"&Road&"','"&password&"',0,0,1,1,1,0,0,0,0,0,0,0,0,"&domainId&")"<br>
<br>conn.execute(sql)<br>
<br>
<br>
end if<br>
<br>
call closeconn()<br>
rs.close<br>
set rs=nothing<br>
rs1.close<br>
set rs1=nothing<br>
<br>
<br>
'********************************************************************<br>
'跳转到邮箱，无需登陆<br>
'********************************************************************<br>
response.redirect "<a target=_blank href=http://192.168.0.216:3000/WorldClient.dll?View=Main&user=&quot>http://192.168.0.216:3000/WorldClient.dll?View=Main&user=&quot</a>;&User&"&password="&Password<br>
<br>
end if%>

enjoy

另外我把整个OA系统的用户密码修改整合到邮件里面了<br>
意思是只要修改邮件密码<br>
OA的密码也会一起修改<br>
用到了MSSQL的触发器<br>
<br>
<br>

enjoy

触发器代码：<br>
<br>
[COLOR=red]CREATE TRIGGER [ChangePWD] ON [dbo].[UserList] <br>
FOR UPDATE <br>
AS<br>
declare @rows int<br>
select @rows=@@rowcount<br>
if @rows=0<br>
return<br>
if (update(password))<br>
begin<br>
if @rows=1<br>
begin<br>
update a set a.pwd=b.[password]<br>
from OAuser a,userlist b<br>
where a.pcbh=b.MailBox<br>
return<br>
end<br>
end<br>
return[/COLOR]<br>
<br>
<br>
<br>
<br>

钉子

谢谢enjoy 与我们分享经验，欢迎大家把平时的经验与我们分享，哪怕是再点滴的经验。

windytown

好东西呀，真是好东西。

goxia

支持支持！为什么我的转换为数据库ODBC后，控制面板里建立的用户！但是数据库内没有建立！

enjoy

楼上的，那估计是因为你只是把用户信息导入到odbc数据库里面，而没有直接使用ODBC数据库作为你的邮件用户库吧？<br>
我做了指定后通过程序向数据库里面加一条记录，系统就会自动生成一个邮件用户，很方便的。