hMailServer中文论坛

代码: 全选

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