Reconfigure for GIT
This commit is contained in:
+74
@@ -0,0 +1,74 @@
|
||||
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()> _
|
||||
<NonPersistent()> _
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
Public Class Contact_EmailSendQueue_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _EMailSendQueueParameters As EMailSendQueueParameters
|
||||
Private _FileAttachments1 As FileData
|
||||
Private _FileAttachments2 As FileData
|
||||
Private _FileAttachments3 As FileData
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
|
||||
End Sub
|
||||
|
||||
Property EMailSendQueueParameters As EMailSendQueueParameters
|
||||
Get
|
||||
Return _EMailSendQueueParameters
|
||||
End Get
|
||||
Set(value As EMailSendQueueParameters)
|
||||
SetPropertyValue("EMailSendQueueParameters", _EMailSendQueueParameters, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property FileAttachments1 As FileData
|
||||
Get
|
||||
Return _FileAttachments1
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("FileAttachments1", _FileAttachments1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FileAttachments2 As FileData
|
||||
Get
|
||||
Return _FileAttachments2
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("FileAttachments2", _FileAttachments2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FileAttachments3 As FileData
|
||||
Get
|
||||
Return _FileAttachments3
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("FileAttachments3", _FileAttachments3, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
ReadOnly Property HTMLMailTemplate As XPCollection(Of HTMLMailTemplate)
|
||||
Get
|
||||
|
||||
Dim _HTMLMailTemplate_Collection As New XPCollection(Of HTMLMailTemplate)(Session, CriteriaOperator.Parse("HTMLMailTemplateState=1"))
|
||||
Return _HTMLMailTemplate_Collection
|
||||
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+108
@@ -0,0 +1,108 @@
|
||||
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()> _
|
||||
<NonPersistent()> _
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
Public Class Contacts_ChangeGroup_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Change_IsOutlookSync As Boolean
|
||||
Private _IsOutlookSync As Boolean
|
||||
Private _Change_IsExchangeSync As Boolean
|
||||
Private _IsExchangeSync As Boolean
|
||||
Private _ReOrderFirstNameLastName As Boolean
|
||||
Private _Change_FullNameOrder As Boolean
|
||||
Private _FullNameOrder As eFullNameOrder
|
||||
Private _Change_Title As Boolean
|
||||
Private _Title As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
|
||||
Public Property ChangeIsOutlookSync() As Boolean
|
||||
Get
|
||||
Return _Change_IsOutlookSync
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("ChangeIsOutlookSync", _Change_IsOutlookSync, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property IsOutlookSync() As Boolean
|
||||
Get
|
||||
Return _IsOutlookSync
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsOutlookSync", _IsOutlookSync, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property ChangeIsExchangeSync() As Boolean
|
||||
Get
|
||||
Return _Change_IsExchangeSync
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("ChangeIsExchangeSync", _Change_IsExchangeSync, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property IsExchangeSync() As Boolean
|
||||
Get
|
||||
Return _IsExchangeSync
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsExchangeSync", _IsExchangeSync, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property ReOrderFirstNameLastName As Boolean
|
||||
Get
|
||||
Return _ReOrderFirstNameLastName
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("ReOrderFirstNameLastName", _ReOrderFirstNameLastName, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property Change_FullNameOrder As Boolean
|
||||
Get
|
||||
Return _Change_FullNameOrder
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Change_FullNameOrder", _Change_FullNameOrder, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property FullNameOrder As eFullNameOrder
|
||||
Get
|
||||
Return _FullNameOrder
|
||||
End Get
|
||||
Set(value As eFullNameOrder)
|
||||
SetPropertyValue("FullNameOrder", _FullNameOrder, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property Change_Title As Boolean
|
||||
Get
|
||||
Return _Change_Title
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Change_Title", _Change_Title, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property Title As String
|
||||
Get
|
||||
Return _Title
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Title", _Title, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+50
@@ -0,0 +1,50 @@
|
||||
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
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
<DeferredDeletion(False)> _
|
||||
Public Class Contacts_OutlookFolderContact
|
||||
Inherits BaseObject
|
||||
|
||||
Private _EntryID As String
|
||||
Private _FolderName As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<ImmediatePostData()> _
|
||||
Public Property EntryID() As String
|
||||
Get
|
||||
Return _EntryID
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("EntryID", _EntryID, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Public Property FolderName() As String
|
||||
Get
|
||||
Return _FolderName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("FolderName", _FolderName, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
End Class
|
||||
+160
@@ -0,0 +1,160 @@
|
||||
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
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
Imports Microsoft.Office.Interop.Outlook
|
||||
Imports Microsoft.Office.Interop
|
||||
|
||||
Public Enum eOverWriteDataType
|
||||
OverWriteOutlookData = 1
|
||||
OverWriteSisBusinessData = 2
|
||||
End Enum
|
||||
Public Enum eSyscType
|
||||
eNormalSysnc = 1
|
||||
eFirstSync = 2
|
||||
End Enum
|
||||
'
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
<Appearance("Contacts_SysncOutlook - Hide OverWriteDataType, when SyscType=2 AND IsFromOutlook=False", AppearanceItemType:="ViewItem", criteria:="SyscType=2 AND IsFromOutlook=False", targetitems:="OverWriteDataType", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Contacts_SysncOutlook - Hide Contacts_OutlookFolderContact, when SyscType=1", AppearanceItemType:="ViewItem", criteria:="SyscType=1", targetitems:="Contacts_OutlookFolderContact", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Contacts_SysncOutlook - Hide IsFromOutlook all time", AppearanceItemType:="ViewItem", criteria:="1=1", targetitems:="IsFromOutlook", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Contacts_SysncOutlook - Hide SyscType, when IsFromOutlook=True", AppearanceItemType:="ViewItem", criteria:="IsFromOutlook=True", targetitems:="SyscType", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class Contacts_SysncOutlook
|
||||
Inherits BaseObject
|
||||
|
||||
Private _OverWriteDataType As eOverWriteDataType
|
||||
Private _SyscType As eSyscType
|
||||
Private _Contacts_OutlookFolderContact As Contacts_OutlookFolderContact
|
||||
Private _IsFromOutlook As Boolean
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
OverWriteDataType = eOverWriteDataType.OverWriteOutlookData
|
||||
SyscType = eSyscType.eNormalSysnc
|
||||
IsFromOutlook = False
|
||||
End Sub
|
||||
|
||||
Property OverWriteDataType As eOverWriteDataType
|
||||
Get
|
||||
Return _OverWriteDataType
|
||||
End Get
|
||||
Set(value As eOverWriteDataType)
|
||||
SetPropertyValue("OverWriteDataType", _OverWriteDataType, value)
|
||||
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property SyscType As eSyscType
|
||||
Get
|
||||
Return _SyscType
|
||||
End Get
|
||||
Set(value As eSyscType)
|
||||
SetPropertyValue("SyscType", _SyscType, value)
|
||||
End Set
|
||||
End Property
|
||||
<DataSourceProperty("Contacts_OutlookFolderContactCollection")> _
|
||||
Property Contacts_OutlookFolderContact As Contacts_OutlookFolderContact
|
||||
Get
|
||||
Return _Contacts_OutlookFolderContact
|
||||
End Get
|
||||
Set(ByVal value As Contacts_OutlookFolderContact)
|
||||
SetPropertyValue("OutlookContactsFolder", _Contacts_OutlookFolderContact, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsFromOutlook As Boolean
|
||||
Get
|
||||
Return _IsFromOutlook
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsFromOutlook", _IsFromOutlook, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'------------ReadOnly---------------------
|
||||
Private ReadOnly Property Contacts_OutlookFolderContactCollection As XPCollection(Of Contacts_OutlookFolderContact)
|
||||
Get
|
||||
Dim _Contacts_DeleteFolderContacts As New XPCollection(Of Contacts_OutlookFolderContact)(Session)
|
||||
Session.Delete(_Contacts_DeleteFolderContacts)
|
||||
|
||||
|
||||
Dim _Contacts_OutlookFolderContact As New XPCollection(Of Contacts_OutlookFolderContact)(Session)
|
||||
|
||||
Dim _OutlookApp As New Outlook.Application()
|
||||
Dim _OutlookNameSpace As Outlook.NameSpace = _OutlookApp.GetNamespace("MAPI")
|
||||
_OutlookNameSpace.Logon(, , False, True)
|
||||
Dim _ContactFolder As MAPIFolder = _OutlookApp.ActiveExplorer.Session.GetDefaultFolder(OlDefaultFolders.olFolderContacts)
|
||||
'Dim _FolderSuggestedContacts As MAPIFolder = _OutlookApp.ActiveExplorer.Session.GetDefaultFolder(OlDefaultFolders.olFolderSuggestedContacts)
|
||||
|
||||
If _ContactFolder IsNot Nothing Then
|
||||
Dim _DefMap As New Contacts_OutlookFolderContact(Session)
|
||||
_DefMap.EntryID = _ContactFolder.EntryID
|
||||
_DefMap.FolderName = _ContactFolder.Name
|
||||
_Contacts_OutlookFolderContact.Add(_DefMap)
|
||||
|
||||
For Each _FoldersName As MAPIFolder In _ContactFolder.Folders
|
||||
OutlookFolderNames(_FoldersName, _Contacts_OutlookFolderContact)
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
'If _FolderSuggestedContacts IsNot Nothing Then
|
||||
' Dim _DefMapSuggested As New Contacts_OutlookFolderContact(Session)
|
||||
' _DefMapSuggested.EntryID = _FolderSuggestedContacts.EntryID
|
||||
' _DefMapSuggested.FolderName = _FolderSuggestedContacts.Name
|
||||
' _Contacts_OutlookFolderContact.Add(_DefMapSuggested)
|
||||
|
||||
' For Each _FolderSuggested As MAPIFolder In _FolderSuggestedContacts.Folders
|
||||
' OutlookFolderSuggestedNames(_FolderSuggested, _Contacts_OutlookFolderContact)
|
||||
' Next
|
||||
'End If
|
||||
Return _Contacts_OutlookFolderContact
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'--------------Sub-----------------------
|
||||
Private Sub OutlookFolderNames(_FoldersName As MAPIFolder, Contacts_OutlookFolderContact As DevExpress.Xpo.XPCollection(Of [Module].Contacts_OutlookFolderContact))
|
||||
If _FoldersName.Folders.Count > 0 Then
|
||||
Dim _Contacts_OutlookFolderContact As New Contacts_OutlookFolderContact(Session)
|
||||
_Contacts_OutlookFolderContact.EntryID = _FoldersName.EntryID
|
||||
_Contacts_OutlookFolderContact.FolderName = _FoldersName.Name
|
||||
Contacts_OutlookFolderContact.Add(_Contacts_OutlookFolderContact)
|
||||
For Each _FoldersNameAct As MAPIFolder In _FoldersName.Folders
|
||||
OutlookFolderNames(_FoldersNameAct, Contacts_OutlookFolderContact)
|
||||
Next
|
||||
Else
|
||||
Dim _Contacts_OutlookFolderContact As New Contacts_OutlookFolderContact(Session)
|
||||
_Contacts_OutlookFolderContact.EntryID = _FoldersName.EntryID
|
||||
_Contacts_OutlookFolderContact.FolderName = _FoldersName.Name
|
||||
Contacts_OutlookFolderContact.Add(_Contacts_OutlookFolderContact)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub OutlookFolderSuggestedNames(_FolderSuggested As MAPIFolder, Contacts_OutlookFolderContact As DevExpress.Xpo.XPCollection(Of [Module].Contacts_OutlookFolderContact))
|
||||
If _FolderSuggested.Folders.Count > 0 Then
|
||||
Dim _Contacts_OutlookFolderContact As New Contacts_OutlookFolderContact(Session)
|
||||
_Contacts_OutlookFolderContact.EntryID = _FolderSuggested.EntryID
|
||||
_Contacts_OutlookFolderContact.FolderName = _FolderSuggested.Name
|
||||
Contacts_OutlookFolderContact.Add(_Contacts_OutlookFolderContact)
|
||||
For Each _FoldersSuggestedNameAct As MAPIFolder In _FolderSuggested.Folders
|
||||
OutlookFolderSuggestedNames(_FoldersSuggestedNameAct, Contacts_OutlookFolderContact)
|
||||
Next
|
||||
Else
|
||||
Dim _Contacts_OutlookFolderContact As New Contacts_OutlookFolderContact(Session)
|
||||
_Contacts_OutlookFolderContact.EntryID = _FolderSuggested.EntryID
|
||||
_Contacts_OutlookFolderContact.FolderName = _FolderSuggested.Name
|
||||
Contacts_OutlookFolderContact.Add(_Contacts_OutlookFolderContact)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user