Configuration classes needed for accessing MailEnable API from .Net.
This commit is contained in:
peter
parent
ae306ab633
commit
c28faf43ce
11 changed files with 3428 additions and 0 deletions
|
|
@ -0,0 +1,372 @@
|
|||
Option Strict Off
|
||||
Option Explicit On
|
||||
|
||||
Namespace WebsitePanel.Providers.Mail
|
||||
|
||||
Public Class MailEnableDomain
|
||||
Inherits MarshalByRefObject
|
||||
|
||||
Private DomainNameVal As String
|
||||
Private StatusVal As Integer
|
||||
Private DomainRedirectionStatusVal As Integer
|
||||
Private DomainRedirectionHostsVal As String
|
||||
Private AccountNameVal As String
|
||||
Private HostVal As String
|
||||
Private RetainModeVal As Integer ' this is used to hold messages waiting for pickup by issued ETRN
|
||||
Private PollForMessagesVal As Integer ' this indicates that we need to poll a host for messages for this domain
|
||||
Private UpStreamHostVal As String ' this is the address of the host to poll if we are set to poll a remote host
|
||||
Private PollIntervalVal As Integer ' this is the frequency in minutes that we need to poll the remote host
|
||||
Private AliasModeVal As Integer
|
||||
Private AliasNameVal As String
|
||||
|
||||
Private Structure ISMTPDOMAINTYPE
|
||||
<VBFixedString(512), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=512)> Public DomainName As String
|
||||
Public Status As Integer
|
||||
Public DomainRedirectionStatus As Integer
|
||||
<VBFixedString(2048), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=2048)> Public DomainRedirectionHosts As String
|
||||
<VBFixedString(128), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=128)> Public AccountName As String
|
||||
Public RetainMode As Integer ' this is used to hold messages waiting for pickup by issued ETRN
|
||||
Public PollForMessages As Integer ' this indicates that we need to poll a host for messages for this domain
|
||||
<VBFixedString(512), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=512)> Public UpStreamHost As String ' this is the address of the host to poll if we are set to poll a remote host
|
||||
Public PollInterval As Integer ' this is the frequency in minutes that we need to poll the remote host
|
||||
Public AliasMode As Integer
|
||||
<VBFixedString(512), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=512)> Public AliasName As String
|
||||
End Structure
|
||||
|
||||
Private Declare Function SMTPDomainAdd Lib "MEAISM.DLL" (ByRef SMTPDomain As ISMTPDOMAINTYPE) As Integer
|
||||
Private Declare Function SMTPDomainGet Lib "MEAISM.DLL" (ByRef SMTPDomainCriteria As ISMTPDOMAINTYPE) As Integer
|
||||
Private Declare Function SMTPDomainEdit Lib "MEAISM.DLL" (ByRef SMTPDomainCriteria As ISMTPDOMAINTYPE, ByRef SMTPDomainData As ISMTPDOMAINTYPE) As Integer
|
||||
Private Declare Function SMTPDomainRemove Lib "MEAISM.DLL" (ByRef SMTPDomain As ISMTPDOMAINTYPE) As Integer
|
||||
Private Declare Function SMTPDomainFindFirst Lib "MEAISM.DLL" (ByRef SMTPDomain As ISMTPDOMAINTYPE) As Integer
|
||||
Private Declare Function SMTPDomainFindNext Lib "MEAISM.DLL" (ByRef SMTPDomain As ISMTPDOMAINTYPE) 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 AddDomain() As Integer
|
||||
|
||||
Dim CDomain As ISMTPDOMAINTYPE
|
||||
|
||||
CDomain.AliasMode = 0
|
||||
CDomain.AliasName = ""
|
||||
CDomain.PollForMessages = 0
|
||||
CDomain.PollInterval = 0
|
||||
CDomain.RetainMode = 0
|
||||
CDomain.UpStreamHost = ""
|
||||
|
||||
CDomain.AccountName = AccountName
|
||||
CDomain.DomainName = DomainName
|
||||
CDomain.DomainRedirectionHosts = DomainRedirectionHosts
|
||||
CDomain.DomainRedirectionStatus = DomainRedirectionStatus
|
||||
CDomain.Status = Status
|
||||
|
||||
AddDomain = SMTPDomainAdd(CDomain)
|
||||
|
||||
AccountName = CDomain.AccountName
|
||||
DomainName = CDomain.DomainName
|
||||
DomainRedirectionHosts = CDomain.DomainRedirectionHosts
|
||||
DomainRedirectionStatus = CDomain.DomainRedirectionStatus
|
||||
Status = CDomain.Status
|
||||
|
||||
'Console.WriteLine("AddDomain called on server")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetDomain() As Integer
|
||||
|
||||
Dim CDomain As ISMTPDOMAINTYPE
|
||||
CDomain.AliasMode = -1
|
||||
CDomain.AliasName = ""
|
||||
CDomain.PollForMessages = -1
|
||||
CDomain.PollInterval = -1
|
||||
CDomain.RetainMode = -1
|
||||
CDomain.UpStreamHost = ""
|
||||
|
||||
CDomain.AccountName = AccountName
|
||||
CDomain.DomainName = DomainName
|
||||
CDomain.DomainRedirectionHosts = DomainRedirectionHosts
|
||||
CDomain.DomainRedirectionStatus = DomainRedirectionStatus
|
||||
CDomain.Status = Status
|
||||
|
||||
GetDomain = SMTPDomainGet(CDomain)
|
||||
|
||||
AccountName = CDomain.AccountName
|
||||
DomainName = CDomain.DomainName
|
||||
DomainRedirectionHosts = CDomain.DomainRedirectionHosts
|
||||
DomainRedirectionStatus = CDomain.DomainRedirectionStatus
|
||||
Status = CDomain.Status
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function EditDomain(ByVal NewDomainName As String, ByVal NewStatus As Integer, ByVal NewDomainRedirectionStatus As Integer, ByVal NewDomainRedirectionHosts As String, ByVal NewAccountName As String) As Integer
|
||||
|
||||
Dim CDomain As ISMTPDOMAINTYPE
|
||||
CDomain.AliasMode = -1
|
||||
CDomain.AliasName = ""
|
||||
CDomain.PollForMessages = -1
|
||||
CDomain.PollInterval = -1
|
||||
CDomain.RetainMode = -1
|
||||
CDomain.UpStreamHost = ""
|
||||
Dim CDomainData As ISMTPDOMAINTYPE
|
||||
|
||||
CDomain.AccountName = AccountName
|
||||
CDomain.DomainName = DomainName
|
||||
CDomain.DomainRedirectionHosts = DomainRedirectionHosts
|
||||
CDomain.DomainRedirectionStatus = DomainRedirectionStatus
|
||||
CDomain.Status = Status
|
||||
CDomainData.AccountName = NewAccountName
|
||||
CDomainData.DomainName = NewDomainName
|
||||
CDomainData.DomainRedirectionHosts = NewDomainRedirectionHosts
|
||||
CDomainData.DomainRedirectionStatus = NewDomainRedirectionStatus
|
||||
CDomainData.Status = NewStatus
|
||||
|
||||
CDomainData.AliasMode = 0
|
||||
CDomainData.AliasName = ""
|
||||
CDomainData.PollForMessages = 0
|
||||
CDomainData.PollInterval = 0
|
||||
CDomainData.RetainMode = 0
|
||||
CDomainData.UpStreamHost = ""
|
||||
|
||||
EditDomain = SMTPDomainEdit(CDomain, CDomainData)
|
||||
|
||||
AccountName = CDomain.AccountName
|
||||
DomainName = CDomain.DomainName
|
||||
DomainRedirectionHosts = CDomain.DomainRedirectionHosts
|
||||
DomainRedirectionStatus = CDomain.DomainRedirectionStatus
|
||||
Status = CDomain.Status
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function RemoveDomain() As Integer
|
||||
|
||||
Dim CDomain As ISMTPDOMAINTYPE
|
||||
CDomain.AliasMode = -1
|
||||
CDomain.AliasName = ""
|
||||
CDomain.PollForMessages = -1
|
||||
CDomain.PollInterval = -1
|
||||
CDomain.RetainMode = -1
|
||||
CDomain.UpStreamHost = ""
|
||||
|
||||
CDomain.AccountName = AccountName
|
||||
CDomain.DomainName = DomainName
|
||||
CDomain.DomainRedirectionHosts = DomainRedirectionHosts
|
||||
CDomain.DomainRedirectionStatus = DomainRedirectionStatus
|
||||
CDomain.Status = Status
|
||||
|
||||
RemoveDomain = SMTPDomainRemove(CDomain)
|
||||
|
||||
AccountName = CDomain.AccountName
|
||||
DomainName = CDomain.DomainName
|
||||
DomainRedirectionHosts = CDomain.DomainRedirectionHosts
|
||||
DomainRedirectionStatus = CDomain.DomainRedirectionStatus
|
||||
Status = CDomain.Status
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function FindFirstDomain() As Integer
|
||||
|
||||
Dim CDomain As ISMTPDOMAINTYPE
|
||||
CDomain.AliasMode = -1
|
||||
CDomain.AliasName = ""
|
||||
CDomain.PollForMessages = -1
|
||||
CDomain.PollInterval = -1
|
||||
CDomain.RetainMode = -1
|
||||
CDomain.UpStreamHost = ""
|
||||
|
||||
CDomain.AccountName = AccountName
|
||||
CDomain.DomainName = DomainName
|
||||
CDomain.DomainRedirectionHosts = DomainRedirectionHosts
|
||||
CDomain.DomainRedirectionStatus = DomainRedirectionStatus
|
||||
CDomain.Status = Status
|
||||
|
||||
FindFirstDomain = SMTPDomainFindFirst(CDomain)
|
||||
|
||||
AccountName = CDomain.AccountName
|
||||
DomainName = CDomain.DomainName
|
||||
DomainRedirectionHosts = CDomain.DomainRedirectionHosts
|
||||
DomainRedirectionStatus = CDomain.DomainRedirectionStatus
|
||||
Status = CDomain.Status
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Public Function FindNextDomain() As Integer
|
||||
|
||||
Dim CDomain As ISMTPDOMAINTYPE
|
||||
|
||||
CDomain.AccountName = AccountName
|
||||
CDomain.DomainName = DomainName
|
||||
CDomain.DomainRedirectionHosts = DomainRedirectionHosts
|
||||
CDomain.DomainRedirectionStatus = DomainRedirectionStatus
|
||||
CDomain.Status = Status
|
||||
|
||||
|
||||
CDomain.AliasMode = -1
|
||||
CDomain.AliasName = ""
|
||||
CDomain.PollForMessages = -1
|
||||
CDomain.PollInterval = -1
|
||||
CDomain.RetainMode = -1
|
||||
CDomain.UpStreamHost = ""
|
||||
|
||||
FindNextDomain = SMTPDomainFindNext(CDomain)
|
||||
|
||||
AccountName = CDomain.AccountName
|
||||
DomainName = CDomain.DomainName
|
||||
DomainRedirectionHosts = CDomain.DomainRedirectionHosts
|
||||
DomainRedirectionStatus = CDomain.DomainRedirectionStatus
|
||||
Status = CDomain.Status
|
||||
|
||||
End Function
|
||||
|
||||
Public Property DomainName() As String
|
||||
Get
|
||||
Return Me.DomainNameVal
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
Me.DomainNameVal = 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 DomainRedirectionStatus() As Integer
|
||||
Get
|
||||
Return Me.DomainRedirectionStatusVal
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
Me.DomainRedirectionStatusVal = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property DomainRedirectionHosts() As String
|
||||
Get
|
||||
Return Me.DomainRedirectionHostsVal
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
Me.DomainRedirectionHostsVal = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property AccountName() As String
|
||||
Get
|
||||
Return Me.AccountNameVal
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
Me.AccountNameVal = 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
|
||||
|
||||
Public Property RetainMode() As Integer
|
||||
Get
|
||||
Return Me.RetainModeVal
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
Me.RetainModeVal = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property PollForMessages() As Integer
|
||||
Get
|
||||
Return Me.PollForMessagesVal
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
Me.PollForMessagesVal = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property UpStreamHost() As String
|
||||
Get
|
||||
Return Me.UpStreamHostVal
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
Me.UpStreamHostVal = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property PollInterval() As Integer
|
||||
Get
|
||||
Return Me.PollIntervalVal
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
Me.PollIntervalVal = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property AliasMode() As Integer
|
||||
Get
|
||||
Return Me.AliasModeVal
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
Me.AliasModeVal = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property AliasName() As String
|
||||
Get
|
||||
Return Me.AliasNameVal
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
Me.AliasNameVal = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Function CString(ByVal InString As String) As String
|
||||
CString = InString & Chr(0)
|
||||
End Function
|
||||
|
||||
Private Function NonCString(ByVal InString As String) As String
|
||||
Dim NTPos As Integer
|
||||
NTPos = InStr(1, InString, Chr(0), CompareMethod.Binary)
|
||||
If NTPos > 0 Then
|
||||
NonCString = Left(InString, NTPos - 1)
|
||||
Else
|
||||
NonCString = InString
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Exists(ByVal DomainName As String) As Boolean
|
||||
|
||||
Dim CDomain As New ISMTPDOMAINTYPE
|
||||
|
||||
CDomain.AccountName = CString("")
|
||||
CDomain.DomainName = CString(DomainName)
|
||||
CDomain.DomainRedirectionHosts = CString("")
|
||||
CDomain.DomainRedirectionStatus = -1
|
||||
CDomain.Status = -1
|
||||
|
||||
Exists = (SMTPDomainGet(CDomain) = 1)
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub AddDataTableColumns(ByRef oTable As DataTable)
|
||||
oTable.Columns.Add("DomainName", GetType(String))
|
||||
oTable.Columns.Add("Status", GetType(Long))
|
||||
oTable.Columns.Add("RedirectionStatus", GetType(Long))
|
||||
oTable.Columns.Add("RedirectionHosts", GetType(String))
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
Loading…
Add table
Add a link
Reference in a new issue