haixiaoxp 发表于 2013-7-5 17:03:04

在公司局域网中，如何实现某些帐号可以向外部邮箱发送邮件而其他不能

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

stdmis 发表于 2013-7-13 13:11:21

本帖最后由 stdmis 于 2014-12-10 17:15 编辑

与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
页: [1]
查看完整版本: 在公司局域网中，如何实现某些帐号可以向外部邮箱发送邮件而其他不能