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

标题: 在公司局域网中，如何实现某些帐号可以向外部邮箱发送邮件而其他不能 [打印本页]

---

作者: haixiaoxp    时间: 2013-7-5 17:03
标题: 在公司局域网中，如何实现某些帐号可以向外部邮箱发送邮件而其他不能
在公司局域网中，如何实现某些帐号可以向外部邮箱发送邮件而其他账号不能？
大家知道，在公司局域网内一般会建一个AD域，然后利用AD域账户建立邮箱系统，那如何利用hmailserver实现某些帐号可以向外部邮箱发送邮件而其他账号不能？这对于组织内部邮箱系统，几乎是必须具备的功能啊。（因为担心某些公司员工外发邮件泄密。）
我研究了hmailserver的rule，几乎无可能实现。
挺费解的，这个问题那些使用hmailserver的组织是如何实现的。

---

作者: stdmis    时间: 2013-7-13 13:11


与rule以外的功能有关

Dim ToEmail, Tomail_Value, CountRecipients
        CountRecipients = oMessage.Recipients.Count
        For i = 0 to CountRecipients
                ToEmail = Split( (oMessage.Recipients(i).Address) , "@" )
                ToEmail_Value = ToEmail(1)
                If LCase (ToEmail_Value)<>LCase("IBM.cn") then
                        Result.Value = 2
                        Result.Message = "Does NOT Allow To Send External Messages. Address is "+ oMessage.Recipients(i).Address +"."
                        Set FSO2 = CreateObject("Scripting.FileSystemObject")
                        Set str = FSO2.OpenTextFile("C:\Program Files\hMailServer\Logs\LimitUsers.log",8,True)
                        strResponses = str.Writeline(CStr(Now)+"–>"+oClient.UserName+"–>"+oMessage.Recipients(i).Address)
                        str.Close
                        Exit For
                End If
        Next

---

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

Powered by Discuz! X3.2