110 lines
3.3 KiB
VB.net
110 lines
3.3 KiB
VB.net
Imports System
|
|
Imports System.ComponentModel
|
|
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.Data.Filtering
|
|
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.Persistent.Base
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
Imports DevExpress.Persistent.Validation
|
|
<DefaultClassOptions()> _
|
|
<NavigationItem(False)> _
|
|
<CreatableItem(False)> _
|
|
Public Class WebParameters
|
|
Inherits BaseObject
|
|
|
|
Private _SMTPHost As String
|
|
Private _SMTPPort As Long = 25
|
|
Private _SMTPUserName As String
|
|
Private _SMTPPassword As String
|
|
Private _EnableSsl As Boolean
|
|
Private _Email_SupportAdmin As String
|
|
Private _HTMLMailTemplate_QuestionUpdate As HTMLMailTemplate
|
|
Private _HTMLMailTemplate_QuestionStatusUpdate As HTMLMailTemplate
|
|
Private _HTMLMailTemplate_AnswerUpdate As HTMLMailTemplate
|
|
|
|
Public Sub New(ByVal session As Session)
|
|
MyBase.New(session)
|
|
|
|
End Sub
|
|
Public Overrides Sub AfterConstruction()
|
|
MyBase.AfterConstruction()
|
|
EnableSsl = True
|
|
End Sub
|
|
|
|
Property SMTPHost As String
|
|
Get
|
|
Return _SMTPHost
|
|
End Get
|
|
Set(value As String)
|
|
SetPropertyValue("SMTPHost", _SMTPHost, value)
|
|
End Set
|
|
End Property
|
|
Property SMTPPort As Long
|
|
Get
|
|
Return _SMTPPort
|
|
End Get
|
|
Set(value As Long)
|
|
SetPropertyValue("SMTPPort", _SMTPPort, value)
|
|
End Set
|
|
End Property
|
|
Property SMTPUserName As String
|
|
Get
|
|
Return _SMTPUserName
|
|
End Get
|
|
Set(value As String)
|
|
SetPropertyValue("SMTPUserName", _SMTPUserName, value)
|
|
End Set
|
|
End Property
|
|
<PasswordPropertyText()> _
|
|
Property SMTPPassword As String
|
|
Get
|
|
Return _SMTPPassword
|
|
End Get
|
|
Set(value As String)
|
|
SetPropertyValue("SMTPPassword", _SMTPPassword, value)
|
|
End Set
|
|
End Property
|
|
Property EnableSsl As Boolean
|
|
Get
|
|
Return _EnableSsl
|
|
End Get
|
|
Set(value As Boolean)
|
|
SetPropertyValue("EnableSsl", _EnableSsl, value)
|
|
End Set
|
|
End Property
|
|
Property Email_SupportAdmin As String
|
|
Get
|
|
Return _Email_SupportAdmin
|
|
End Get
|
|
Set(value As String)
|
|
SetPropertyValue("Email_SupportAdmin", _Email_SupportAdmin, value)
|
|
End Set
|
|
End Property
|
|
Property HTMLMailTemplate_QuestionUpdate As HTMLMailTemplate
|
|
Get
|
|
Return _HTMLMailTemplate_QuestionUpdate
|
|
End Get
|
|
Set(value As HTMLMailTemplate)
|
|
SetPropertyValue("HTMLMailTemplate_QuestionUpdate", _HTMLMailTemplate_QuestionUpdate, value)
|
|
End Set
|
|
End Property
|
|
Property HTMLMailTemplate_QuestionStatusUpdate As HTMLMailTemplate
|
|
Get
|
|
Return _HTMLMailTemplate_QuestionStatusUpdate
|
|
End Get
|
|
Set(value As HTMLMailTemplate)
|
|
SetPropertyValue("HTMLMailTemplate_QuestionStatusUpdate", _HTMLMailTemplate_QuestionStatusUpdate, value)
|
|
End Set
|
|
End Property
|
|
Property HTMLMailTemplate_AnswerUpdate As HTMLMailTemplate
|
|
Get
|
|
Return _HTMLMailTemplate_AnswerUpdate
|
|
End Get
|
|
Set(value As HTMLMailTemplate)
|
|
SetPropertyValue("HTMLMailTemplate_AnswerUpdate", _HTMLMailTemplate_AnswerUpdate, value)
|
|
End Set
|
|
End Property
|
|
End Class
|