邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: [原创]我是怎么把 MDaemon 整合到公司的OA系统中的 [打印本页]

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

作者: enjoy 时间: 2004-7-29 10:25
标题: Re:[原创]我是怎么把 MDaemon 整合到公司的OA系统中的
初来这个论坛，很多帖子给了俺巨大帮助。大家以后多照顾……：）

作者: fqfgh 时间: 2004-7-29 11:30
标题: Re:[原创]我是怎么把 MDaemon 整合到公司的OA系统中的
搂住贴出来看看呀。谢谢了

作者: enjoy 时间: 2004-7-29 12:59
标题: Re:[原创]我是怎么把 MDaemon 整合到公司的OA系统中的
代码没怎么整理，但是写过asp的兄弟应该很容易可以看明白了……:) 
 
 
<% 
'******************************************************************** 
'** 整合 MDaemon 到OA系统中的代码 ** 
'** 作者：enjoy 联系方式：aenjoy@126.com QQ:15159174 ** 
'** 2004-7-29 ** 
'******************************************************************** 
if session("pcbh")<>"" then 
 
dim user,password,domain 
user=session("pcbh") 
password=session("pcmm") 
domain="sohu.com" 
set rs1=server.createobject("AdODB.RecordSet") 
sql1="select DomainId from Domains where DomainName='"&domain&"'" 
rs1.open sql1,conn,1,1 
domainId=rs1("DomainId") 
 
 
 
set rs=server.createobject("AdODB.RecordSet") 
sql="select * from userlist where MailBox='"&user&"'" 
 
rs.open sql,conn,1,3 
 
 
'******************************************************************** 
'如果没有该用户的邮箱那么就创建，这里需要创建一个邮箱文件夹和一个用户帐号 
'******************************************************************** 
if rs.eof then 
 dim Road '物理路径 Road = "C:\MDaemon\Users\"&domain 
 Set fso = Server.CreateObject("Scripting.FileSystemObject") if Not(fso.FolderExists(Road+"\"+user)) then set f = fso.CreateFolder(Road+"\"+user) end if Set fso = nothing 
 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&")" 
 conn.execute(sql) 
 
 
end if 
 
call closeconn() 
rs.close 
set rs=nothing 
rs1.close 
set rs1=nothing 
 
 
'******************************************************************** 
'跳转到邮箱，无需登陆 
'******************************************************************** 
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 
 
end if%>

作者: enjoy 时间: 2004-7-29 13:01
标题: Re:[原创]我是怎么把 MDaemon 整合到公司的OA系统中的
另外我把整个OA系统的用户密码修改整合到邮件里面了 
意思是只要修改邮件密码 
OA的密码也会一起修改 
用到了MSSQL的触发器

作者: enjoy 时间: 2004-7-29 13:02
标题: Re:[原创]我是怎么把 MDaemon 整合到公司的OA系统中的
触发器代码： 
 
[COLOR=red]CREATE TRIGGER [ChangePWD] ON [dbo].[UserList] 
FOR UPDATE 
AS 
declare @rows int 
select @rows=@@rowcount 
if @rows=0 
return 
if (update(password)) 
begin 
if @rows=1 
begin 
update a set a.pwd=b.[password] 
from OAuser a,userlist b 
where a.pcbh=b.MailBox 
return 
end 
end 
return[/COLOR]

作者: 钉子 时间: 2004-7-29 13:36
标题: Re:[原创]我是怎么把 MDaemon 整合到公司的OA系统中的
谢谢enjoy 与我们分享经验，欢迎大家把平时的经验与我们分享，哪怕是再点滴的经验。

作者: windytown 时间: 2004-7-29 16:53
标题: Re:[原创]我是怎么把 MDaemon 整合到公司的OA系统中的
好东西呀，真是好东西。

作者: goxia 时间: 2004-7-29 17:55
标题: Re:[原创]我是怎么把 MDaemon 整合到公司的OA系统中的
支持支持！为什么我的转换为数据库ODBC后，控制面板里建立的用户！但是数据库内没有建立！

作者: enjoy 时间: 2004-7-30 11:32
标题: Re:[原创]我是怎么把 MDaemon 整合到公司的OA系统中的
楼上的，那估计是因为你只是把用户信息导入到odbc数据库里面，而没有直接使用ODBC数据库作为你的邮件用户库吧？ 
我做了指定后通过程序向数据库里面加一条记录，系统就会自动生成一个邮件用户，很方便的。

作者: zxar 时间: 2004-8-25 15:49
标题: re:session("pcbh")是MDae...
session("pcbh")是MDaemon的吗？

作者: nine 时间: 2004-9-8 09:56
标题: re:如果OA使用access的数据库怎么办啊...
如果OA使用access的数据库怎么办啊？

作者: dylinix 时间: 2004-9-9 14:17
标题: re:2个表：UserList和Domains...
2个表：UserList和Domains. 
需要哪些字段啊？

作者: daheng2004 时间: 2004-9-20 17:38
标题: re:我需要的东西呀。谢谢enjoy
我需要的东西呀。 
谢谢enjoy

作者: lihong16 时间: 2004-11-9 23:07
标题: re:不会用，，能做成个软件下载吗
不会用，，能做成个软件下载吗

作者: iamdreaming 时间: 2005-4-2 18:08
标题: re:谢谢,省了不少事.Access数据库...
谢谢,省了不少事. 
Access数据库一样可以用的. 
有个问题,俺数据库中的用户不能在公用地址本里出现,但通过管理端新回的则可以显示,为什么?

作者: oasis2000 时间: 2006-3-2 14:53
标题: re:那个用户名和密码怎样隐藏啊
那个用户名和密码怎样隐藏啊

作者: jasminemok 时间: 2006-4-12 15:15
标题: re:虽然我们公司还没准备要这样搞，但好像也有...
虽然我们公司还没准备要这样搞，但好像也有这样趋势，多谢enjoy在此分享，先收录啦。

作者: phycool 时间: 2006-4-24 12:20
标题: re:http://192.168.0.216...
<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 
 
 
这一句,用户名和密码太明显了.用这样的方式不太好,是否还有其它的实现方式啊?

作者: weinaside 时间: 2006-5-26 10:28
标题: re:好动西阿！！
好动西阿！！

作者: clshao2006 时间: 2006-11-30 16:31
??????????????

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.cn/)