165 lines
No EOL
4.5 KiB
VB.net
165 lines
No EOL
4.5 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.
|
|
|
|
|
|
Friend Class ArgoMailListItem
|
|
Private _Id As String
|
|
Private _listItemName As String
|
|
Private _Account As String
|
|
Private _iDescriptionLines As Integer
|
|
Private _desription As String
|
|
Private _iMembersCount As Integer
|
|
Private _members() As String
|
|
Private _bListISClosed As Boolean
|
|
Private _bRepliesGoToSender As Boolean
|
|
Private _bRequireMemberShip As Boolean
|
|
Private _diskSpace As Long
|
|
|
|
|
|
Public Sub New()
|
|
End Sub 'New
|
|
|
|
Public Property ID() As String
|
|
Get
|
|
Return _Id
|
|
End Get
|
|
|
|
Set(ByVal value As String)
|
|
_Id = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property Name() As String
|
|
Get
|
|
Return _listItemName
|
|
End Get
|
|
|
|
Set(ByVal value As String)
|
|
_listItemName = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property Account() As String
|
|
Get
|
|
Return _Account
|
|
End Get
|
|
|
|
Set(ByVal value As String)
|
|
_Account = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property DescriptionLines() As Integer
|
|
Get
|
|
Return _iDescriptionLines
|
|
End Get
|
|
|
|
Set(ByVal value As Integer)
|
|
_iDescriptionLines = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property Desription() As String
|
|
Get
|
|
Return _desription
|
|
End Get
|
|
|
|
Set(ByVal value As String)
|
|
_desription = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property Count() As Integer
|
|
Get
|
|
Return _iMembersCount
|
|
End Get
|
|
|
|
Set(ByVal value As Integer)
|
|
_iMembersCount = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property Members() As String()
|
|
Get
|
|
Return _members
|
|
End Get
|
|
|
|
Set(ByVal value As String())
|
|
_members = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property ListISClosed() As Boolean
|
|
Get
|
|
Return _bListISClosed
|
|
End Get
|
|
|
|
Set(ByVal value As Boolean)
|
|
_bListISClosed = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property RepliesGoToSender() As Boolean
|
|
Get
|
|
Return _bRepliesGoToSender
|
|
End Get
|
|
|
|
Set(ByVal value As Boolean)
|
|
_bRepliesGoToSender = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property RequireMemberShip() As Boolean
|
|
Get
|
|
Return _bRequireMemberShip
|
|
End Get
|
|
|
|
Set(ByVal value As Boolean)
|
|
_bRequireMemberShip = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Property DiskSpace() As Long
|
|
Get
|
|
Return _diskSpace
|
|
End Get
|
|
Set(ByVal value As Long)
|
|
_diskSpace = Value
|
|
End Set
|
|
End Property
|
|
End Class 'ArgoMailListItem |