227 lines
8.9 KiB
VB.net
227 lines
8.9 KiB
VB.net
' Copyright (c) 2012, Outercurve Foundation.
|
|
' All rights reserved.
|
|
'
|
|
' Redistribution and use in source and binary forms, with or without modification,
|
|
' are permitted provided that the following conditions are met:
|
|
'
|
|
' - Redistributions of source code must retain the above copyright notice, this
|
|
' list of conditions and the following disclaimer.
|
|
'
|
|
' - Redistributions in binary form must reproduce the above copyright notice,
|
|
' this list of conditions and the following disclaimer in the documentation
|
|
' and/or other materials provided with the distribution.
|
|
'
|
|
' - Neither the name of the Outercurve Foundation nor the names of its
|
|
' contributors may be used to endorse or promote products derived from this
|
|
' software without specific prior written permission.
|
|
'
|
|
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
|
|
' ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
|
' WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
' DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
|
|
' ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
|
' (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|
' LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
|
|
' ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
' (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|
' SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
Option Strict Off
|
|
Option Explicit On
|
|
|
|
Namespace WebsitePanel.Providers.Mail
|
|
|
|
Public Class MailEnableDomainBlacklist
|
|
Inherits MarshalByRefObject
|
|
|
|
Private TargetDomainNameVal As String
|
|
Private BannedDomainNameVal As String
|
|
Private StatusVal As Integer
|
|
Private AccountVal As String
|
|
Private HostVal As String
|
|
|
|
Private Structure ISMTPBLACKLISTTYPE
|
|
<VBFixedString(512), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=512)> Public TargetDomainName As String
|
|
<VBFixedString(512), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=512)> Public BannedDomainName As String
|
|
Public Status As Integer
|
|
<VBFixedString(128), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=128)> Public Account As String
|
|
End Structure
|
|
|
|
Private Declare Function SMTPBlacklistAdd Lib "MEAISM.DLL" (ByRef SMTPBlacklist As ISMTPBLACKLISTTYPE) As Integer
|
|
Private Declare Function SMTPBlacklistGet Lib "MEAISM.DLL" (ByRef SMTPBlacklistCriteria As ISMTPBLACKLISTTYPE) As Integer
|
|
Private Declare Function SMTPBlacklistEdit Lib "MEAISM.DLL" (ByRef SMTPBlacklistCriteria As ISMTPBLACKLISTTYPE, ByRef SMTPBlacklistData As ISMTPBLACKLISTTYPE) As Integer
|
|
Private Declare Function SMTPBlacklistRemove Lib "MEAISM.DLL" (ByRef SMTPBlacklist As ISMTPBLACKLISTTYPE) As Integer
|
|
Private Declare Function SMTPBlacklistFindFirst Lib "MEAISM.DLL" (ByRef SMTPBlacklist As ISMTPBLACKLISTTYPE) As Integer
|
|
Private Declare Function SMTPBlacklistFindNext Lib "MEAISM.DLL" (ByRef SMTPBlacklist As ISMTPBLACKLISTTYPE) As Integer
|
|
Private Declare Function SetCurrentHost Lib "MEAISM.DLL" (ByVal CurrentHost As String) As Integer
|
|
|
|
Public Function SetHost() As Integer
|
|
SetHost = SetCurrentHost(Host)
|
|
End Function
|
|
|
|
Public Function AddBlacklist() As Integer
|
|
|
|
Dim CBlacklist As ISMTPBLACKLISTTYPE
|
|
|
|
CBlacklist.TargetDomainName = TargetDomainName
|
|
CBlacklist.BannedDomainName = BannedDomainName
|
|
CBlacklist.Status = Status
|
|
CBlacklist.Account = Account
|
|
|
|
AddBlacklist = SMTPBlacklistAdd(CBlacklist)
|
|
|
|
TargetDomainName = CBlacklist.TargetDomainName
|
|
BannedDomainName = CBlacklist.BannedDomainName
|
|
Status = CBlacklist.Status
|
|
Account = CBlacklist.Account
|
|
|
|
End Function
|
|
|
|
|
|
Public Function GetBlacklist() As Integer
|
|
|
|
Dim CBlacklist As ISMTPBLACKLISTTYPE
|
|
|
|
CBlacklist.TargetDomainName = TargetDomainName
|
|
CBlacklist.BannedDomainName = BannedDomainName
|
|
CBlacklist.Status = Status
|
|
CBlacklist.Account = Account
|
|
|
|
GetBlacklist = SMTPBlacklistGet(CBlacklist)
|
|
|
|
TargetDomainName = CBlacklist.TargetDomainName
|
|
BannedDomainName = CBlacklist.BannedDomainName
|
|
Status = CBlacklist.Status
|
|
Account = CBlacklist.Account
|
|
|
|
End Function
|
|
|
|
|
|
Public Function EditBlacklist(ByVal NewTargetDomainName As String, ByVal NewBannedDomainName As String, ByVal NewStatus As Integer, ByVal NewAccount As String) As Integer
|
|
|
|
Dim CBlacklist As ISMTPBLACKLISTTYPE
|
|
Dim CBlacklistData As ISMTPBLACKLISTTYPE
|
|
|
|
CBlacklist.TargetDomainName = TargetDomainName
|
|
CBlacklist.BannedDomainName = BannedDomainName
|
|
CBlacklist.Status = Status
|
|
CBlacklist.Account = Account
|
|
CBlacklistData.TargetDomainName = NewTargetDomainName
|
|
CBlacklistData.BannedDomainName = NewBannedDomainName
|
|
CBlacklistData.Status = NewStatus
|
|
CBlacklistData.Account = NewAccount
|
|
|
|
EditBlacklist = SMTPBlacklistEdit(CBlacklist, CBlacklistData)
|
|
|
|
TargetDomainName = CBlacklist.TargetDomainName
|
|
BannedDomainName = CBlacklist.BannedDomainName
|
|
Status = CBlacklist.Status
|
|
Account = CBlacklist.Account
|
|
|
|
End Function
|
|
|
|
|
|
Public Function RemoveBlacklist() As Integer
|
|
|
|
Dim CBlacklist As ISMTPBLACKLISTTYPE
|
|
|
|
CBlacklist.TargetDomainName = TargetDomainName
|
|
CBlacklist.BannedDomainName = BannedDomainName
|
|
CBlacklist.Status = Status
|
|
CBlacklist.Account = Account
|
|
|
|
RemoveBlacklist = SMTPBlacklistRemove(CBlacklist)
|
|
|
|
TargetDomainName = CBlacklist.TargetDomainName
|
|
BannedDomainName = CBlacklist.BannedDomainName
|
|
Status = CBlacklist.Status
|
|
Account = CBlacklist.Account
|
|
|
|
End Function
|
|
|
|
|
|
Public Function FindFirstBlacklist() As Integer
|
|
|
|
Dim CBlacklist As ISMTPBLACKLISTTYPE
|
|
|
|
CBlacklist.TargetDomainName = TargetDomainName
|
|
CBlacklist.BannedDomainName = BannedDomainName
|
|
CBlacklist.Status = Status
|
|
CBlacklist.Account = Account
|
|
|
|
FindFirstBlacklist = SMTPBlacklistFindFirst(CBlacklist)
|
|
|
|
TargetDomainName = CBlacklist.TargetDomainName
|
|
BannedDomainName = CBlacklist.BannedDomainName
|
|
Status = CBlacklist.Status
|
|
Account = CBlacklist.Account
|
|
|
|
End Function
|
|
|
|
|
|
Public Function FindNextBlacklist() As Integer
|
|
|
|
Dim CBlacklist As ISMTPBLACKLISTTYPE
|
|
|
|
CBlacklist.TargetDomainName = TargetDomainName
|
|
CBlacklist.BannedDomainName = BannedDomainName
|
|
CBlacklist.Status = Status
|
|
CBlacklist.Account = Account
|
|
|
|
FindNextBlacklist = SMTPBlacklistFindNext(CBlacklist)
|
|
|
|
TargetDomainName = CBlacklist.TargetDomainName
|
|
BannedDomainName = CBlacklist.BannedDomainName
|
|
Status = CBlacklist.Status
|
|
Account = CBlacklist.Account
|
|
|
|
End Function
|
|
|
|
Public Property TargetDomainName() As String
|
|
Get
|
|
Return Me.TargetDomainNameVal
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
Me.TargetDomainNameVal = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property BannedDomainName() As String
|
|
Get
|
|
Return Me.BannedDomainNameVal
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
Me.BannedDomainNameVal = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Status() As Integer
|
|
Get
|
|
Return Me.StatusVal
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
Me.StatusVal = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Account() As String
|
|
Get
|
|
Return Me.AccountVal
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
Me.AccountVal = Value
|
|
End Set
|
|
End Property
|
|
|
|
Public Property Host() As String
|
|
Get
|
|
Return Me.HostVal
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
Me.HostVal = Value
|
|
End Set
|
|
End Property
|
|
|
|
End Class
|
|
|
|
End Namespace
|