Configuration classes needed for accessing MailEnable API from .Net.

2012-04-30 16:07:24 +10:00 · 2012-04-30 16:07:24 +10:00 · c28faf43ce
commit c28faf43ce
parent ae306ab633
11 changed files with 3428 additions and 0 deletions
--- a/WebsitePanel/Sources/WebsitePanel.Providers.Mail.MailEnable/MailEnableGroup.vb
+++ b/WebsitePanel/Sources/WebsitePanel.Providers.Mail.MailEnable/MailEnableGroup.vb
@ -0,0 +1,191 @@
+Namespace WebsitePanel.Providers.Mail
+
+    Public Class MailEnableGroup
+        Inherits MarshalByRefObject
+
+        Private RecipientAddressVal As String
+        Private PostofficeVal As String
+        Private GroupNameVal As String
+        Private GroupFileVal As String
+        Private GroupStatusVal As Integer
+        Private HostVal As String
+
+        Private Structure IGROUPTYPE
+            <VBFixedString(1024), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=1024)> Public RecipientAddress As String
+            <VBFixedString(128), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=128)> Public Postoffice As String
+            <VBFixedString(128), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=128)> Public GroupName As String
+            <VBFixedString(128), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=128)> Public GroupFile As String
+            Public GroupStatus As Integer
+        End Structure
+
+        Private Declare Function GroupGet Lib "MEAIPO.DLL" (ByRef lpGroup As IGROUPTYPE) As Integer
+        Private Declare Function GroupFindFirst Lib "MEAIPO.DLL" (ByRef lpGroup As IGROUPTYPE) As Integer
+        Private Declare Function GroupFindNext Lib "MEAIPO.DLL" (ByRef lpGroup As IGROUPTYPE) As Integer
+        Private Declare Function GroupAdd Lib "MEAIPO.DLL" (ByRef lpGroup As IGROUPTYPE) As Integer
+        Private Declare Function GroupEdit Lib "MEAIPO.DLL" (ByRef TargetGroup As IGROUPTYPE, ByRef NewGroup As IGROUPTYPE) As Integer
+        Private Declare Function GroupRemove Lib "MEAIPO.DLL" (ByRef lpGroup As IGROUPTYPE) As Integer
+        Private Declare Function SetCurrentHost Lib "MEAIPO.DLL" (ByVal CurrentHost As String) As Integer
+
+        Public Function SetHost() As Integer
+            SetHost = SetCurrentHost(Host)
+        End Function
+
+        Public Function FindFirstGroup() As Integer
+            Dim CGroup As IGROUPTYPE
+            CGroup.GroupFile = GroupFile
+            CGroup.Postoffice = Postoffice
+            CGroup.GroupName = GroupName
+            CGroup.RecipientAddress = RecipientAddress
+            CGroup.GroupStatus = GroupStatus
+            FindFirstGroup = GroupFindFirst(CGroup)
+            GroupFile = CGroup.GroupFile
+            Postoffice = CGroup.Postoffice
+            GroupName = CGroup.GroupName
+            RecipientAddress = CGroup.RecipientAddress
+            GroupStatus = CGroup.GroupStatus
+        End Function
+        Public Function FindNextGroup() As Integer
+            Dim CGroup As IGROUPTYPE
+            CGroup.GroupFile = GroupFile
+            CGroup.Postoffice = Postoffice
+            CGroup.GroupName = GroupName
+            CGroup.RecipientAddress = RecipientAddress
+            CGroup.GroupStatus = GroupStatus
+            FindNextGroup = GroupFindNext(CGroup)
+            GroupFile = CGroup.GroupFile
+            Postoffice = CGroup.Postoffice
+            GroupName = CGroup.GroupName
+            RecipientAddress = CGroup.RecipientAddress
+            GroupStatus = CGroup.GroupStatus
+        End Function
+
+        Public Function AddGroup() As Integer
+            Dim CGroup As IGROUPTYPE
+            CGroup.GroupFile = GroupFile
+            CGroup.Postoffice = Postoffice
+            CGroup.GroupName = GroupName
+            CGroup.RecipientAddress = RecipientAddress
+            CGroup.GroupStatus = GroupStatus
+            AddGroup = GroupAdd(CGroup)
+            GroupFile = CGroup.GroupFile
+            Postoffice = CGroup.Postoffice
+            GroupName = CGroup.GroupName
+            RecipientAddress = CGroup.RecipientAddress
+            GroupStatus = CGroup.GroupStatus
+        End Function
+
+        Public Function GetGroup() As Integer
+            Dim CGroup As IGROUPTYPE
+            CGroup.GroupFile = GroupFile
+            CGroup.Postoffice = Postoffice
+            CGroup.GroupName = GroupName
+            CGroup.RecipientAddress = RecipientAddress
+            CGroup.GroupStatus = GroupStatus
+            GetGroup = GroupGet(CGroup)
+            GroupFile = CGroup.GroupFile
+            Postoffice = CGroup.Postoffice
+            GroupName = CGroup.GroupName
+            RecipientAddress = CGroup.RecipientAddress
+            GroupStatus = CGroup.GroupStatus
+        End Function
+        Public Function RemoveGroup() As Integer
+            Dim CGroup As IGROUPTYPE
+            CGroup.GroupFile = GroupFile
+            CGroup.Postoffice = Postoffice
+            CGroup.GroupName = GroupName
+            CGroup.RecipientAddress = RecipientAddress
+            CGroup.GroupStatus = GroupStatus
+            RemoveGroup = GroupRemove(CGroup)
+            GroupFile = CGroup.GroupFile
+            Postoffice = CGroup.Postoffice
+            GroupName = CGroup.GroupName
+            RecipientAddress = CGroup.RecipientAddress
+            GroupStatus = CGroup.GroupStatus
+        End Function
+
+        Public Function EditGroup(ByVal NewRecipientAddress As String, ByVal NewPostoffice As String, ByVal NewGroupName As String, ByVal NewGroupFile As String, ByVal NewGroupStatus As Integer) As Integer
+            Dim CGroup As IGROUPTYPE
+            Dim CGroupData As IGROUPTYPE
+            ' Get the Find Stuff Set up
+            CGroup.GroupFile = GroupFile
+            CGroup.GroupName = GroupName
+            CGroup.Postoffice = Postoffice
+            CGroup.RecipientAddress = RecipientAddress
+            CGroup.GroupStatus = GroupStatus
+            ' Get the Data Set up
+            CGroupData.GroupFile = NewGroupFile
+            CGroupData.GroupName = NewGroupName
+            CGroupData.Postoffice = NewPostoffice
+            CGroupData.RecipientAddress = NewRecipientAddress
+            CGroupData.GroupStatus = NewGroupStatus
+
+            EditGroup = GroupEdit(CGroup, CGroupData)
+            GroupFile = CGroupData.GroupFile
+            Postoffice = CGroupData.Postoffice
+            GroupName = CGroupData.GroupName
+            RecipientAddress = CGroupData.RecipientAddress
+            GroupStatus = CGroup.GroupStatus
+        End Function
+
+        Private Sub AddDataTableColumns(ByRef oTable As DataTable)
+            oTable.Columns.Add("GroupName", GetType(String))
+            oTable.Columns.Add("GroupStatus", GetType(Long))
+            oTable.Columns.Add("RecipientAddress", GetType(String))
+        End Sub
+
+        Public Property RecipientAddress() As String
+            Get
+                Return Me.RecipientAddressVal
+            End Get
+            Set(ByVal value As String)
+                Me.RecipientAddressVal = value
+            End Set
+        End Property
+
+        Public Property Postoffice() As String
+            Get
+                Return Me.PostofficeVal
+            End Get
+            Set(ByVal value As String)
+                Me.PostofficeVal = value
+            End Set
+        End Property
+
+        Public Property GroupName() As String
+            Get
+                Return Me.GroupNameVal
+            End Get
+            Set(ByVal value As String)
+                Me.GroupNameVal = value
+            End Set
+        End Property
+
+        Public Property GroupFile() As String
+            Get
+                Return Me.GroupFileVal
+            End Get
+            Set(ByVal value As String)
+                Me.GroupFileVal = value
+            End Set
+        End Property
+
+        Public Property GroupStatus() As Integer
+            Get
+                Return Me.GroupStatusVal
+            End Get
+            Set(ByVal value As Integer)
+                Me.GroupStatusVal = 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