hmail怎么限制某个用户或组发送邮件到外域
版面规则
Re: hmail怎么限制某个用户或组发送邮件到外域
在EventHandlers.vbs 内加入下面这个，可以限制某个账户发送到外域。
代码: 全选
Sub OnSMTPData(oClient, oMessage)
If (oClient.Username <> "") Then
Const NotPermitted = "test@hmailserver.org"
Dim i
If InStr(NotPermitted, oClient.Username) Then
For i = 0 To oMessage.Recipients.Count -1
If (Not oMessage.Recipients(i).IsLocalUser) Then
Result.Value = 2
Result.Message = "You are only allowed to send internally"
End If
Next
End If
End If
End Sub