diff --git a/.gitignore b/.gitignore index 3779449..82dabcd 100644 --- a/.gitignore +++ b/.gitignore @@ -4,3 +4,4 @@ /App/.vs/SERV_EMAIL/v15/Server/sqlite3 /.vs/DDEmailProfiler/v15/.suo +/App/.vs/SERV_EMAIL/v16/Server/sqlite3 diff --git a/App/.vs/SERV_EMAIL/v15/.suo b/App/.vs/SERV_EMAIL/v15/.suo index c6f3da1..4bcf6cf 100644 Binary files a/App/.vs/SERV_EMAIL/v15/.suo and b/App/.vs/SERV_EMAIL/v15/.suo differ diff --git a/App/.vs/SERV_EMAIL/v16/.suo b/App/.vs/SERV_EMAIL/v16/.suo new file mode 100644 index 0000000..b79ca81 Binary files /dev/null and b/App/.vs/SERV_EMAIL/v16/.suo differ diff --git a/App/CONFIG_APP/App.config b/App/CONFIG_APP/App.config index 6ddd315..dc747a8 100644 --- a/App/CONFIG_APP/App.config +++ b/App/CONFIG_APP/App.config @@ -9,7 +9,7 @@ - @@ -18,7 +18,7 @@ - Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd diff --git a/App/CONFIG_APP/My Project/AssemblyInfo.vb b/App/CONFIG_APP/My Project/AssemblyInfo.vb index 934193f..7e79307 100644 --- a/App/CONFIG_APP/My Project/AssemblyInfo.vb +++ b/App/CONFIG_APP/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/App/CONFIG_APP/My Project/Settings.Designer.vb b/App/CONFIG_APP/My Project/Settings.Designer.vb index f0f506d..af2b95c 100644 --- a/App/CONFIG_APP/My Project/Settings.Designer.vb +++ b/App/CONFIG_APP/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -56,8 +56,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ + "rity Info=True;User ID=sa;Password=dd")> _ Public Property MyConnectionString() As String Get Return CType(Me("MyConnectionString"),String) @@ -82,8 +82,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ + "rity Info=True;User ID=sa;Password=dd")> _ Public ReadOnly Property MyDatasetConnString() As String Get Return CType(Me("MyDatasetConnString"),String) diff --git a/App/CONFIG_APP/My Project/Settings.settings b/App/CONFIG_APP/My Project/Settings.settings index 3e157c0..372faff 100644 --- a/App/CONFIG_APP/My Project/Settings.settings +++ b/App/CONFIG_APP/My Project/Settings.settings @@ -3,7 +3,7 @@ - Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd @@ -11,10 +11,10 @@ <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> <ProviderName>System.Data.SqlClient</ProviderName> </SerializableConnectionString> - Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd diff --git a/App/CONFIG_APP/MyDataset.Designer.vb b/App/CONFIG_APP/MyDataset.Designer.vb index 2293bb2..4b987ce 100644 --- a/App/CONFIG_APP/MyDataset.Designer.vb +++ b/App/CONFIG_APP/MyDataset.Designer.vb @@ -48,7 +48,7 @@ Partial Public Class MyDataset Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -60,7 +60,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -113,7 +113,7 @@ Partial Public Class MyDataset End Sub _ Public ReadOnly Property TBEMLP_POLL_PROFILES() As TBEMLP_POLL_PROFILESDataTable @@ -123,7 +123,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBEMLP_POLL_PROCESS() As TBEMLP_POLL_PROCESSDataTable @@ -133,7 +133,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBEMLP_POLL_STEPS() As TBEMLP_POLL_STEPSDataTable @@ -143,7 +143,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBEMLP_POLL_INDEXING_STEPS() As TBEMLP_POLL_INDEXING_STEPSDataTable @@ -153,7 +153,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBEMLP_HISTORY() As TBEMLP_HISTORYDataTable @@ -163,7 +163,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBEMLP_CONFIG() As TBEMLP_CONFIGDataTable @@ -173,7 +173,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBDD_EMAIL_ACCOUNT() As TBDD_EMAIL_ACCOUNTDataTable @@ -183,7 +183,7 @@ Partial Public Class MyDataset End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -196,7 +196,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -205,7 +205,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -214,7 +214,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -222,7 +222,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) cln.InitVars @@ -231,19 +231,19 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -285,7 +285,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -294,13 +294,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBEMLP_POLL_PROFILES = CType(MyBase.Tables("TBEMLP_POLL_PROFILES"),TBEMLP_POLL_PROFILESDataTable) If (initTable = true) Then @@ -350,7 +350,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" @@ -380,49 +380,49 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBEMLP_POLL_PROFILES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBEMLP_POLL_PROCESS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBEMLP_POLL_STEPS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBEMLP_POLL_INDEXING_STEPS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBEMLP_HISTORY() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBEMLP_CONFIG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_EMAIL_ACCOUNT() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -430,7 +430,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As MyDataset = New MyDataset() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -479,25 +479,25 @@ Partial Public Class MyDataset Return type End Function - _ + _ Public Delegate Sub TBEMLP_POLL_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_POLL_PROFILESRowChangeEvent) - _ + _ Public Delegate Sub TBEMLP_POLL_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_POLL_PROCESSRowChangeEvent) - _ + _ Public Delegate Sub TBEMLP_POLL_STEPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_POLL_STEPSRowChangeEvent) - _ + _ Public Delegate Sub TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_POLL_INDEXING_STEPSRowChangeEvent) - _ + _ Public Delegate Sub TBEMLP_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_HISTORYRowChangeEvent) - _ + _ Public Delegate Sub TBEMLP_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBEMLP_CONFIGRowChangeEvent) - _ + _ Public Delegate Sub TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent) ''' @@ -533,7 +533,7 @@ Partial Public Class MyDataset Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_POLL_PROFILES" @@ -543,7 +543,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -561,14 +561,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -576,7 +576,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PROFILE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_NAME @@ -584,7 +584,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property POLL_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnPOLL_TYPE @@ -592,7 +592,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_CONF_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_CONF_ID @@ -600,7 +600,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -608,7 +608,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LAST_TICKColumn() As Global.System.Data.DataColumn Get Return Me.columnLAST_TICK @@ -616,7 +616,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -624,7 +624,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE @@ -632,7 +632,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -640,7 +640,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -648,7 +648,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -656,7 +656,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -664,7 +664,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -673,33 +673,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_PROFILESRow Get Return CType(Me.Rows(index),TBEMLP_POLL_PROFILESRow) End Get End Property - _ + _ Public Event TBEMLP_POLL_PROFILESRowChanging As TBEMLP_POLL_PROFILESRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_PROFILESRowChanged As TBEMLP_POLL_PROFILESRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_PROFILESRowDeleting As TBEMLP_POLL_PROFILESRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_PROFILESRowDeleted As TBEMLP_POLL_PROFILESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBEMLP_POLL_PROFILESRow(ByVal row As TBEMLP_POLL_PROFILESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBEMLP_POLL_PROFILESRow(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Date, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_POLL_PROFILESRow Dim rowTBEMLP_POLL_PROFILESRow As TBEMLP_POLL_PROFILESRow = CType(Me.NewRow,TBEMLP_POLL_PROFILESRow) Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_NAME, POLL_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -709,13 +709,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_POLL_PROFILESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_POLL_PROFILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_POLL_PROFILESDataTable = CType(MyBase.Clone,TBEMLP_POLL_PROFILESDataTable) cln.InitVars @@ -723,13 +723,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_PROFILESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_NAME = MyBase.Columns("PROFILE_NAME") @@ -746,7 +746,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -790,25 +790,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBEMLP_POLL_PROFILESRow() As TBEMLP_POLL_PROFILESRow Return CType(Me.NewRow,TBEMLP_POLL_PROFILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_PROFILESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_PROFILESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_PROFILESRowChangedEvent) Is Nothing) Then @@ -817,7 +817,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_PROFILESRowChangingEvent) Is Nothing) Then @@ -826,7 +826,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_PROFILESRowDeletedEvent) Is Nothing) Then @@ -835,7 +835,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_PROFILESRowDeletingEvent) Is Nothing) Then @@ -844,13 +844,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBEMLP_POLL_PROFILESRow(ByVal row As TBEMLP_POLL_PROFILESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -973,7 +973,7 @@ Partial Public Class MyDataset Private columnPATH_ORIGINAL As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_POLL_PROCESS" @@ -983,7 +983,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1001,14 +1001,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1016,7 +1016,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PROCESS_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_NAME @@ -1024,7 +1024,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STEP_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSTEP_NAME @@ -1032,7 +1032,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID @@ -1040,7 +1040,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COPY_2_HDDColumn() As Global.System.Data.DataColumn Get Return Me.columnCOPY_2_HDD @@ -1048,7 +1048,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WM_IMPORTColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_IMPORT @@ -1056,7 +1056,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WM_OBJEKTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_OBJEKTTYPE @@ -1064,7 +1064,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WM_VECTOR_LOGColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_VECTOR_LOG @@ -1072,7 +1072,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WM_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_PATH @@ -1080,7 +1080,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WM_FILE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_FILE_NAME @@ -1088,7 +1088,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WM_REFERENCE_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_REFERENCE_INDEX @@ -1096,7 +1096,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PATH_EMAIL_TEMPColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_TEMP @@ -1104,7 +1104,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PATH_EMAIL_ERRORSColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_ERRORS @@ -1112,7 +1112,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DELETE_MAILColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_MAIL @@ -1120,7 +1120,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -1128,7 +1128,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -1136,7 +1136,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE @@ -1144,7 +1144,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -1152,7 +1152,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -1160,7 +1160,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -1168,7 +1168,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -1176,7 +1176,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WM_IDX_BODY_TEXTColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_IDX_BODY_TEXT @@ -1184,7 +1184,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WM_IDX_BODY_SUBSTR_LENGTHColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_IDX_BODY_SUBSTR_LENGTH @@ -1192,7 +1192,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PATH_ORIGINALColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_ORIGINAL @@ -1200,7 +1200,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -1209,33 +1209,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_PROCESSRow Get Return CType(Me.Rows(index),TBEMLP_POLL_PROCESSRow) End Get End Property - _ + _ Public Event TBEMLP_POLL_PROCESSRowChanging As TBEMLP_POLL_PROCESSRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_PROCESSRowChanged As TBEMLP_POLL_PROCESSRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_PROCESSRowDeleting As TBEMLP_POLL_PROCESSRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_PROCESSRowDeleted As TBEMLP_POLL_PROCESSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBEMLP_POLL_PROCESSRow(ByVal row As TBEMLP_POLL_PROCESSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBEMLP_POLL_PROCESSRow( _ ByVal PROCESS_NAME As String, _ ByVal STEP_NAME As String, _ @@ -1271,13 +1271,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_POLL_PROCESSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_POLL_PROCESSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_POLL_PROCESSDataTable = CType(MyBase.Clone,TBEMLP_POLL_PROCESSDataTable) cln.InitVars @@ -1285,13 +1285,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_PROCESSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROCESS_NAME = MyBase.Columns("PROCESS_NAME") @@ -1320,7 +1320,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1409,25 +1409,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBEMLP_POLL_PROCESSRow() As TBEMLP_POLL_PROCESSRow Return CType(Me.NewRow,TBEMLP_POLL_PROCESSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_PROCESSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_PROCESSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_PROCESSRowChangedEvent) Is Nothing) Then @@ -1436,7 +1436,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_PROCESSRowChangingEvent) Is Nothing) Then @@ -1445,7 +1445,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_PROCESSRowDeletedEvent) Is Nothing) Then @@ -1454,7 +1454,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_PROCESSRowDeletingEvent) Is Nothing) Then @@ -1463,13 +1463,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBEMLP_POLL_PROCESSRow(ByVal row As TBEMLP_POLL_PROCESSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1566,7 +1566,7 @@ Partial Public Class MyDataset Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_POLL_STEPS" @@ -1576,7 +1576,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1594,14 +1594,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1609,7 +1609,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PROCESS_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_ID @@ -1617,7 +1617,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STEP_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSTEP_NAME @@ -1625,7 +1625,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property KEYWORDS_BODYColumn() As Global.System.Data.DataColumn Get Return Me.columnKEYWORDS_BODY @@ -1633,7 +1633,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -1641,7 +1641,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -1649,7 +1649,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE @@ -1657,7 +1657,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -1665,7 +1665,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -1673,7 +1673,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -1681,7 +1681,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -1689,7 +1689,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -1698,33 +1698,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_STEPSRow Get Return CType(Me.Rows(index),TBEMLP_POLL_STEPSRow) End Get End Property - _ + _ Public Event TBEMLP_POLL_STEPSRowChanging As TBEMLP_POLL_STEPSRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_STEPSRowChanged As TBEMLP_POLL_STEPSRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_STEPSRowDeleting As TBEMLP_POLL_STEPSRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_STEPSRowDeleted As TBEMLP_POLL_STEPSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBEMLP_POLL_STEPSRow(ByVal row As TBEMLP_POLL_STEPSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBEMLP_POLL_STEPSRow(ByVal parentTBEMLP_POLL_PROCESSRowByFK_TBEMLP_POLL_STEPS_PROCESS_ID As TBEMLP_POLL_PROCESSRow, ByVal STEP_NAME As String, ByVal KEYWORDS_BODY As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_POLL_STEPSRow Dim rowTBEMLP_POLL_STEPSRow As TBEMLP_POLL_STEPSRow = CType(Me.NewRow,TBEMLP_POLL_STEPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, STEP_NAME, KEYWORDS_BODY, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -1737,13 +1737,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_POLL_STEPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_POLL_STEPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_POLL_STEPSDataTable = CType(MyBase.Clone,TBEMLP_POLL_STEPSDataTable) cln.InitVars @@ -1751,13 +1751,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_STEPSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROCESS_ID = MyBase.Columns("PROCESS_ID") @@ -1773,7 +1773,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1814,25 +1814,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBEMLP_POLL_STEPSRow() As TBEMLP_POLL_STEPSRow Return CType(Me.NewRow,TBEMLP_POLL_STEPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_STEPSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_STEPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_STEPSRowChangedEvent) Is Nothing) Then @@ -1841,7 +1841,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_STEPSRowChangingEvent) Is Nothing) Then @@ -1850,7 +1850,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_STEPSRowDeletedEvent) Is Nothing) Then @@ -1859,7 +1859,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_STEPSRowDeletingEvent) Is Nothing) Then @@ -1868,13 +1868,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBEMLP_POLL_STEPSRow(ByVal row As TBEMLP_POLL_STEPSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1971,7 +1971,7 @@ Partial Public Class MyDataset Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_POLL_INDEXING_STEPS" @@ -1981,7 +1981,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1999,14 +1999,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2014,7 +2014,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STEP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTEP_ID @@ -2022,7 +2022,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME @@ -2030,7 +2030,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INDEXVALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXVALUE @@ -2038,7 +2038,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -2046,7 +2046,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USE_FOR_DIRECT_ANSWERColumn() As Global.System.Data.DataColumn Get Return Me.columnUSE_FOR_DIRECT_ANSWER @@ -2054,7 +2054,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE @@ -2062,7 +2062,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -2070,7 +2070,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2078,7 +2078,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -2086,7 +2086,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -2094,7 +2094,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2103,33 +2103,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_INDEXING_STEPSRow Get Return CType(Me.Rows(index),TBEMLP_POLL_INDEXING_STEPSRow) End Get End Property - _ + _ Public Event TBEMLP_POLL_INDEXING_STEPSRowChanging As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_INDEXING_STEPSRowChanged As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_INDEXING_STEPSRowDeleting As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler - _ + _ Public Event TBEMLP_POLL_INDEXING_STEPSRowDeleted As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBEMLP_POLL_INDEXING_STEPSRow(ByVal row As TBEMLP_POLL_INDEXING_STEPSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBEMLP_POLL_INDEXING_STEPSRow(ByVal parentTBEMLP_POLL_STEPSRowByFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID As TBEMLP_POLL_STEPSRow, ByVal INDEXNAME As String, ByVal INDEXVALUE As String, ByVal ACTIVE As Boolean, ByVal USE_FOR_DIRECT_ANSWER As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_POLL_INDEXING_STEPSRow Dim rowTBEMLP_POLL_INDEXING_STEPSRow As TBEMLP_POLL_INDEXING_STEPSRow = CType(Me.NewRow,TBEMLP_POLL_INDEXING_STEPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, INDEXVALUE, ACTIVE, USE_FOR_DIRECT_ANSWER, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -2142,13 +2142,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Short) As TBEMLP_POLL_INDEXING_STEPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_POLL_INDEXING_STEPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_POLL_INDEXING_STEPSDataTable = CType(MyBase.Clone,TBEMLP_POLL_INDEXING_STEPSDataTable) cln.InitVars @@ -2156,13 +2156,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_INDEXING_STEPSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSTEP_ID = MyBase.Columns("STEP_ID") @@ -2178,7 +2178,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2222,25 +2222,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBEMLP_POLL_INDEXING_STEPSRow() As TBEMLP_POLL_INDEXING_STEPSRow Return CType(Me.NewRow,TBEMLP_POLL_INDEXING_STEPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_INDEXING_STEPSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_INDEXING_STEPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowChangedEvent) Is Nothing) Then @@ -2249,7 +2249,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowChangingEvent) Is Nothing) Then @@ -2258,7 +2258,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowDeletedEvent) Is Nothing) Then @@ -2267,7 +2267,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowDeletingEvent) Is Nothing) Then @@ -2276,13 +2276,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBEMLP_POLL_INDEXING_STEPSRow(ByVal row As TBEMLP_POLL_INDEXING_STEPSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2377,7 +2377,7 @@ Partial Public Class MyDataset Private columnADDED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_HISTORY" @@ -2387,7 +2387,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2405,14 +2405,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2420,7 +2420,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WORK_PROCESSColumn() As Global.System.Data.DataColumn Get Return Me.columnWORK_PROCESS @@ -2428,7 +2428,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_MSGIDColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_MSGID @@ -2436,7 +2436,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBJECT @@ -2444,7 +2444,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_DATE @@ -2452,7 +2452,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_BODYColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_BODY @@ -2460,7 +2460,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_SUBSTRING1Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBSTRING1 @@ -2468,7 +2468,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_SUBSTRING2Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBSTRING2 @@ -2476,7 +2476,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -2484,7 +2484,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2492,7 +2492,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2501,33 +2501,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_HISTORYRow Get Return CType(Me.Rows(index),TBEMLP_HISTORYRow) End Get End Property - _ + _ Public Event TBEMLP_HISTORYRowChanging As TBEMLP_HISTORYRowChangeEventHandler - _ + _ Public Event TBEMLP_HISTORYRowChanged As TBEMLP_HISTORYRowChangeEventHandler - _ + _ Public Event TBEMLP_HISTORYRowDeleting As TBEMLP_HISTORYRowChangeEventHandler - _ + _ Public Event TBEMLP_HISTORYRowDeleted As TBEMLP_HISTORYRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBEMLP_HISTORYRow(ByVal row As TBEMLP_HISTORYRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBEMLP_HISTORYRow(ByVal WORK_PROCESS As String, ByVal EMAIL_MSGID As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_DATE As Date, ByVal EMAIL_BODY As String, ByVal EMAIL_SUBSTRING1 As String, ByVal EMAIL_SUBSTRING2 As String, ByVal COMMENT As String, ByVal ADDED_WHEN As Date) As TBEMLP_HISTORYRow Dim rowTBEMLP_HISTORYRow As TBEMLP_HISTORYRow = CType(Me.NewRow,TBEMLP_HISTORYRow) Dim columnValuesArray() As Object = New Object() {Nothing, WORK_PROCESS, EMAIL_MSGID, EMAIL_SUBJECT, EMAIL_DATE, EMAIL_BODY, EMAIL_SUBSTRING1, EMAIL_SUBSTRING2, COMMENT, ADDED_WHEN} @@ -2537,13 +2537,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_HISTORYRow Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_HISTORYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_HISTORYDataTable = CType(MyBase.Clone,TBEMLP_HISTORYDataTable) cln.InitVars @@ -2551,13 +2551,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_HISTORYDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnWORK_PROCESS = MyBase.Columns("WORK_PROCESS") @@ -2572,7 +2572,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2612,25 +2612,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBEMLP_HISTORYRow() As TBEMLP_HISTORYRow Return CType(Me.NewRow,TBEMLP_HISTORYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_HISTORYRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_HISTORYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_HISTORYRowChangedEvent) Is Nothing) Then @@ -2639,7 +2639,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_HISTORYRowChangingEvent) Is Nothing) Then @@ -2648,7 +2648,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_HISTORYRowDeletedEvent) Is Nothing) Then @@ -2657,7 +2657,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_HISTORYRowDeletingEvent) Is Nothing) Then @@ -2666,13 +2666,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBEMLP_HISTORYRow(ByVal row As TBEMLP_HISTORYRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2769,7 +2769,7 @@ Partial Public Class MyDataset Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_CONFIG" @@ -2779,7 +2779,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2797,14 +2797,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2812,7 +2812,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FONT_BODYColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_BODY @@ -2820,7 +2820,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LOG_ERRORS_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_ERRORS_ONLY @@ -2828,7 +2828,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHECK_INTERVALL_MINUTESColumn() As Global.System.Data.DataColumn Get Return Me.columnCHECK_INTERVALL_MINUTES @@ -2836,7 +2836,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LAST_TICKColumn() As Global.System.Data.DataColumn Get Return Me.columnLAST_TICK @@ -2844,7 +2844,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PATH_EMAIL_TEMPColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_TEMP @@ -2852,7 +2852,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PATH_EMAIL_ERRORSColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_ERRORS @@ -2860,7 +2860,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property WM_CON_STRINGColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_CON_STRING @@ -2868,7 +2868,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2876,7 +2876,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -2884,7 +2884,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -2892,7 +2892,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2901,33 +2901,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_CONFIGRow Get Return CType(Me.Rows(index),TBEMLP_CONFIGRow) End Get End Property - _ + _ Public Event TBEMLP_CONFIGRowChanging As TBEMLP_CONFIGRowChangeEventHandler - _ + _ Public Event TBEMLP_CONFIGRowChanged As TBEMLP_CONFIGRowChangeEventHandler - _ + _ Public Event TBEMLP_CONFIGRowDeleting As TBEMLP_CONFIGRowChangeEventHandler - _ + _ Public Event TBEMLP_CONFIGRowDeleted As TBEMLP_CONFIGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBEMLP_CONFIGRow(ByVal row As TBEMLP_CONFIGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBEMLP_CONFIGRow(ByVal GUID As Byte, ByVal FONT_BODY As String, ByVal LOG_ERRORS_ONLY As Boolean, ByVal CHECK_INTERVALL_MINUTES As Integer, ByVal LAST_TICK As Date, ByVal PATH_EMAIL_TEMP As String, ByVal PATH_EMAIL_ERRORS As String, ByVal WM_CON_STRING As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_CONFIGRow Dim rowTBEMLP_CONFIGRow As TBEMLP_CONFIGRow = CType(Me.NewRow,TBEMLP_CONFIGRow) Dim columnValuesArray() As Object = New Object() {GUID, FONT_BODY, LOG_ERRORS_ONLY, CHECK_INTERVALL_MINUTES, LAST_TICK, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, WM_CON_STRING, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -2937,13 +2937,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Byte) As TBEMLP_CONFIGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_CONFIGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBEMLP_CONFIGDataTable = CType(MyBase.Clone,TBEMLP_CONFIGDataTable) cln.InitVars @@ -2951,13 +2951,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_CONFIGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFONT_BODY = MyBase.Columns("FONT_BODY") @@ -2973,7 +2973,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3014,25 +3014,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBEMLP_CONFIGRow() As TBEMLP_CONFIGRow Return CType(Me.NewRow,TBEMLP_CONFIGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_CONFIGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_CONFIGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_CONFIGRowChangedEvent) Is Nothing) Then @@ -3041,7 +3041,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_CONFIGRowChangingEvent) Is Nothing) Then @@ -3050,7 +3050,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_CONFIGRowDeletedEvent) Is Nothing) Then @@ -3059,7 +3059,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_CONFIGRowDeletingEvent) Is Nothing) Then @@ -3068,13 +3068,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBEMLP_CONFIGRow(ByVal row As TBEMLP_CONFIGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3178,10 +3178,12 @@ Partial Public Class MyDataset Private columnPORT_IN As Global.System.Data.DataColumn + Private columnARCHIVE_FOLDER As Global.System.Data.DataColumn + Private Shared columnCHANGED_WHEN_defaultValue As Date = Date.Parse("1900-01-01T00:00:00") _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_EMAIL_ACCOUNT" @@ -3191,7 +3193,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3209,14 +3211,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3224,7 +3226,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -3232,7 +3234,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_FROM @@ -3240,7 +3242,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SMTP @@ -3248,7 +3250,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_USER @@ -3256,7 +3258,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_PW @@ -3264,7 +3266,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PORTColumn() As Global.System.Data.DataColumn Get Return Me.columnPORT @@ -3272,7 +3274,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -3280,7 +3282,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -3288,7 +3290,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -3296,7 +3298,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -3304,7 +3306,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -3312,7 +3314,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SSL_AUTHColumn() As Global.System.Data.DataColumn Get Return Me.columnSSL_AUTH @@ -3320,7 +3322,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property AUTH_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnAUTH_TYPE @@ -3328,7 +3330,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PORT_INColumn() As Global.System.Data.DataColumn Get Return Me.columnPORT_IN @@ -3336,7 +3338,15 @@ Partial Public Class MyDataset End Property _ + Public ReadOnly Property ARCHIVE_FOLDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnARCHIVE_FOLDER + End Get + End Property + + _ Public ReadOnly Property Count() As Integer Get @@ -3345,49 +3355,49 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_ACCOUNTRow Get Return CType(Me.Rows(index),TBDD_EMAIL_ACCOUNTRow) End Get End Property - _ + _ Public Event TBDD_EMAIL_ACCOUNTRowChanging As TBDD_EMAIL_ACCOUNTRowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_ACCOUNTRowChanged As TBDD_EMAIL_ACCOUNTRowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_ACCOUNTRowDeleting As TBDD_EMAIL_ACCOUNTRowChangeEventHandler - _ + _ Public Event TBDD_EMAIL_ACCOUNTRowDeleted As TBDD_EMAIL_ACCOUNTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SSL_AUTH As Boolean, ByVal AUTH_TYPE As String, ByVal PORT_IN As Integer) As TBDD_EMAIL_ACCOUNTRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SSL_AUTH As Boolean, ByVal AUTH_TYPE As String, ByVal PORT_IN As Integer, ByVal ARCHIVE_FOLDER As String) As TBDD_EMAIL_ACCOUNTRow Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE, PORT_IN} + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE, PORT_IN, ARCHIVE_FOLDER} rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow) Return rowTBDD_EMAIL_ACCOUNTRow End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_ACCOUNTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_ACCOUNTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_EMAIL_ACCOUNTDataTable = CType(MyBase.Clone,TBDD_EMAIL_ACCOUNTDataTable) cln.InitVars @@ -3395,13 +3405,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_EMAIL_ACCOUNTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -3418,10 +3428,11 @@ Partial Public Class MyDataset Me.columnSSL_AUTH = MyBase.Columns("SSL_AUTH") Me.columnAUTH_TYPE = MyBase.Columns("AUTH_TYPE") Me.columnPORT_IN = MyBase.Columns("PORT_IN") + Me.columnARCHIVE_FOLDER = MyBase.Columns("ARCHIVE_FOLDER") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3453,6 +3464,8 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnAUTH_TYPE) Me.columnPORT_IN = New Global.System.Data.DataColumn("PORT_IN", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPORT_IN) + Me.columnARCHIVE_FOLDER = New Global.System.Data.DataColumn("ARCHIVE_FOLDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnARCHIVE_FOLDER) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false @@ -3481,28 +3494,30 @@ Partial Public Class MyDataset Me.columnAUTH_TYPE.MaxLength = 50 Me.columnPORT_IN.AllowDBNull = false Me.columnPORT_IN.DefaultValue = CType(25,Integer) + Me.columnARCHIVE_FOLDER.AllowDBNull = false + Me.columnARCHIVE_FOLDER.MaxLength = 100 End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_EMAIL_ACCOUNTRow() As TBDD_EMAIL_ACCOUNTRow Return CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_EMAIL_ACCOUNTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_EMAIL_ACCOUNTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangedEvent) Is Nothing) Then @@ -3511,7 +3526,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangingEvent) Is Nothing) Then @@ -3520,7 +3535,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletedEvent) Is Nothing) Then @@ -3529,7 +3544,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletingEvent) Is Nothing) Then @@ -3538,13 +3553,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3619,14 +3634,14 @@ Partial Public Class MyDataset Private tableTBEMLP_POLL_PROFILES As TBEMLP_POLL_PROFILESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_POLL_PROFILES = CType(Me.Table,TBEMLP_POLL_PROFILESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.GUIDColumn),Integer) @@ -3637,7 +3652,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PROFILE_NAME() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.PROFILE_NAMEColumn),String) @@ -3648,7 +3663,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property POLL_TYPE() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.POLL_TYPEColumn),String) @@ -3659,7 +3674,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_CONF_ID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.EMAIL_CONF_IDColumn),Integer) @@ -3670,7 +3685,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -3685,7 +3700,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LAST_TICK() As Date Get Try @@ -3700,7 +3715,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.ACTIVEColumn),Boolean) @@ -3711,7 +3726,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SEQUENCE() As Integer Get Try @@ -3726,7 +3741,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -3741,7 +3756,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -3756,7 +3771,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -3771,7 +3786,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -3786,91 +3801,91 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsLAST_TICKNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetLAST_TICKNull() Me(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBEMLP_POLL_PROCESSRows() As TBEMLP_POLL_PROCESSRow() If (Me.Table.ChildRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID") Is Nothing) Then Return New TBEMLP_POLL_PROCESSRow(-1) {} @@ -3889,14 +3904,14 @@ Partial Public Class MyDataset Private tableTBEMLP_POLL_PROCESS As TBEMLP_POLL_PROCESSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_POLL_PROCESS = CType(Me.Table,TBEMLP_POLL_PROCESSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.GUIDColumn),Integer) @@ -3907,7 +3922,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PROCESS_NAME() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PROCESS_NAMEColumn),String) @@ -3918,7 +3933,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STEP_NAME() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.STEP_NAMEColumn),String) @@ -3929,7 +3944,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PROFILE_ID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PROFILE_IDColumn),Integer) @@ -3940,7 +3955,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COPY_2_HDD() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.COPY_2_HDDColumn),Boolean) @@ -3951,7 +3966,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WM_IMPORT() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IMPORTColumn),Boolean) @@ -3962,7 +3977,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WM_OBJEKTTYPE() As String Get Try @@ -3977,7 +3992,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WM_VECTOR_LOG() As String Get Try @@ -3992,7 +4007,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WM_PATH() As String Get Try @@ -4007,7 +4022,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WM_FILE_NAME() As String Get Try @@ -4022,7 +4037,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WM_REFERENCE_INDEX() As String Get Try @@ -4038,7 +4053,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PATH_EMAIL_TEMP() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_TEMPColumn),String) @@ -4049,7 +4064,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PATH_EMAIL_ERRORS() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_ERRORSColumn),String) @@ -4060,7 +4075,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DELETE_MAIL() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.DELETE_MAILColumn),Boolean) @@ -4071,7 +4086,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -4086,7 +4101,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.ACTIVEColumn),Boolean) @@ -4097,7 +4112,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SEQUENCE() As Integer Get Try @@ -4112,7 +4127,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -4127,7 +4142,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -4142,7 +4157,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -4157,7 +4172,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -4172,7 +4187,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WM_IDX_BODY_TEXT() As String Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_TEXTColumn),String) @@ -4183,7 +4198,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WM_IDX_BODY_SUBSTR_LENGTH() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_SUBSTR_LENGTHColumn),Integer) @@ -4194,7 +4209,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PATH_ORIGINAL() As String Get Try @@ -4209,7 +4224,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBEMLP_POLL_PROFILESRow() As TBEMLP_POLL_PROFILESRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID")),TBEMLP_POLL_PROFILESRow) @@ -4220,151 +4235,151 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsWM_OBJEKTTYPENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetWM_OBJEKTTYPENull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsWM_VECTOR_LOGNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetWM_VECTOR_LOGNull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsWM_PATHNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetWM_PATHNull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsWM_FILE_NAMENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetWM_FILE_NAMENull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsWM_REFERENCE_INDEXNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetWM_REFERENCE_INDEXNull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsPATH_ORIGINALNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetPATH_ORIGINALNull() Me(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBEMLP_POLL_STEPSRows() As TBEMLP_POLL_STEPSRow() If (Me.Table.ChildRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID") Is Nothing) Then Return New TBEMLP_POLL_STEPSRow(-1) {} @@ -4383,14 +4398,14 @@ Partial Public Class MyDataset Private tableTBEMLP_POLL_STEPS As TBEMLP_POLL_STEPSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_POLL_STEPS = CType(Me.Table,TBEMLP_POLL_STEPSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_STEPS.GUIDColumn),Integer) @@ -4401,7 +4416,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PROCESS_ID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_STEPS.PROCESS_IDColumn),Integer) @@ -4412,7 +4427,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STEP_NAME() As String Get Return CType(Me(Me.tableTBEMLP_POLL_STEPS.STEP_NAMEColumn),String) @@ -4423,7 +4438,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property KEYWORDS_BODY() As String Get Try @@ -4438,7 +4453,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -4453,7 +4468,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_STEPS.ACTIVEColumn),Boolean) @@ -4464,7 +4479,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SEQUENCE() As Integer Get Try @@ -4479,7 +4494,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -4494,7 +4509,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -4509,7 +4524,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -4524,7 +4539,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -4539,7 +4554,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBEMLP_POLL_PROCESSRow() As TBEMLP_POLL_PROCESSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID")),TBEMLP_POLL_PROCESSRow) @@ -4550,91 +4565,91 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsKEYWORDS_BODYNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetKEYWORDS_BODYNull() Me(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBEMLP_POLL_INDEXING_STEPSRows() As TBEMLP_POLL_INDEXING_STEPSRow() If (Me.Table.ChildRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID") Is Nothing) Then Return New TBEMLP_POLL_INDEXING_STEPSRow(-1) {} @@ -4653,14 +4668,14 @@ Partial Public Class MyDataset Private tableTBEMLP_POLL_INDEXING_STEPS As TBEMLP_POLL_INDEXING_STEPSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_POLL_INDEXING_STEPS = CType(Me.Table,TBEMLP_POLL_INDEXING_STEPSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.GUIDColumn),Short) @@ -4671,7 +4686,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STEP_ID() As Integer Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.STEP_IDColumn),Integer) @@ -4682,7 +4697,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INDEXNAME() As String Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXNAMEColumn),String) @@ -4693,7 +4708,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INDEXVALUE() As String Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXVALUEColumn),String) @@ -4704,7 +4719,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ACTIVEColumn),Boolean) @@ -4715,7 +4730,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USE_FOR_DIRECT_ANSWER() As Boolean Get Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.USE_FOR_DIRECT_ANSWERColumn),Boolean) @@ -4726,7 +4741,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SEQUENCE() As Integer Get Try @@ -4741,7 +4756,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -4756,7 +4771,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -4771,7 +4786,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -4787,7 +4802,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -4803,7 +4818,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBEMLP_POLL_STEPSRow() As TBEMLP_POLL_STEPSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID")),TBEMLP_POLL_STEPSRow) @@ -4814,61 +4829,61 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -4883,14 +4898,14 @@ Partial Public Class MyDataset Private tableTBEMLP_HISTORY As TBEMLP_HISTORYDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_HISTORY = CType(Me.Table,TBEMLP_HISTORYDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBEMLP_HISTORY.GUIDColumn),Integer) @@ -4901,7 +4916,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WORK_PROCESS() As String Get Try @@ -4916,7 +4931,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_MSGID() As String Get Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_MSGIDColumn),String) @@ -4927,7 +4942,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_SUBJECT() As String Get Try @@ -4942,7 +4957,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_DATE() As Date Get Try @@ -4957,7 +4972,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_BODY() As String Get Try @@ -4972,7 +4987,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_SUBSTRING1() As String Get Try @@ -4987,7 +5002,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_SUBSTRING2() As String Get Try @@ -5002,7 +5017,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -5017,7 +5032,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -5032,97 +5047,97 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsWORK_PROCESSNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetWORK_PROCESSNull() Me(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_SUBJECTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_SUBJECTNull() Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_DATENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_DATENull() Me(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_BODYNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_BODYNull() Me(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_SUBSTRING1Null() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_SUBSTRING1Null() Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAIL_SUBSTRING2Null() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAIL_SUBSTRING2Null() Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_HISTORY.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -5137,14 +5152,14 @@ Partial Public Class MyDataset Private tableTBEMLP_CONFIG As TBEMLP_CONFIGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBEMLP_CONFIG = CType(Me.Table,TBEMLP_CONFIGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Byte Get Return CType(Me(Me.tableTBEMLP_CONFIG.GUIDColumn),Byte) @@ -5155,7 +5170,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FONT_BODY() As String Get Return CType(Me(Me.tableTBEMLP_CONFIG.FONT_BODYColumn),String) @@ -5166,7 +5181,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LOG_ERRORS_ONLY() As Boolean Get Return CType(Me(Me.tableTBEMLP_CONFIG.LOG_ERRORS_ONLYColumn),Boolean) @@ -5177,7 +5192,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHECK_INTERVALL_MINUTES() As Integer Get Return CType(Me(Me.tableTBEMLP_CONFIG.CHECK_INTERVALL_MINUTESColumn),Integer) @@ -5188,7 +5203,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LAST_TICK() As Date Get Try @@ -5203,7 +5218,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PATH_EMAIL_TEMP() As String Get Return CType(Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_TEMPColumn),String) @@ -5214,7 +5229,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PATH_EMAIL_ERRORS() As String Get Return CType(Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_ERRORSColumn),String) @@ -5225,7 +5240,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property WM_CON_STRING() As String Get Return CType(Me(Me.tableTBEMLP_CONFIG.WM_CON_STRINGColumn),String) @@ -5236,7 +5251,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -5251,7 +5266,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -5266,7 +5281,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -5281,49 +5296,49 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsLAST_TICKNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.LAST_TICKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetLAST_TICKNull() Me(Me.tableTBEMLP_CONFIG.LAST_TICKColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -5338,14 +5353,14 @@ Partial Public Class MyDataset Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_EMAIL_ACCOUNT = CType(Me.Table,TBDD_EMAIL_ACCOUNTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn),Integer) @@ -5356,7 +5371,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Try @@ -5371,7 +5386,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_FROM() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn),String) @@ -5382,7 +5397,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_SMTP() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn),String) @@ -5393,7 +5408,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_USER() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn),String) @@ -5404,7 +5419,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL_PW() As String Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn),String) @@ -5415,7 +5430,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PORT() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.PORTColumn),Integer) @@ -5426,7 +5441,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn),Boolean) @@ -5437,7 +5452,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -5452,7 +5467,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -5467,7 +5482,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -5482,7 +5497,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -5497,7 +5512,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SSL_AUTH() As Boolean Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.SSL_AUTHColumn),Boolean) @@ -5508,7 +5523,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property AUTH_TYPE() As String Get Try @@ -5523,7 +5538,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PORT_IN() As Integer Get Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.PORT_INColumn),Integer) @@ -5534,73 +5549,84 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property ARCHIVE_FOLDER() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ARCHIVE_FOLDERColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_ACCOUNT.ARCHIVE_FOLDERColumn) = value + End Set + End Property + + _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsAUTH_TYPENull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetAUTH_TYPENull() Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn) = Global.System.Convert.DBNull End Sub @@ -5609,7 +5635,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBEMLP_POLL_PROFILESRowChangeEvent Inherits Global.System.EventArgs @@ -5618,7 +5644,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBEMLP_POLL_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -5626,7 +5652,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBEMLP_POLL_PROFILESRow Get Return Me.eventRow @@ -5634,7 +5660,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -5645,7 +5671,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBEMLP_POLL_PROCESSRowChangeEvent Inherits Global.System.EventArgs @@ -5654,7 +5680,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBEMLP_POLL_PROCESSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -5662,7 +5688,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBEMLP_POLL_PROCESSRow Get Return Me.eventRow @@ -5670,7 +5696,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -5681,7 +5707,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBEMLP_POLL_STEPSRowChangeEvent Inherits Global.System.EventArgs @@ -5690,7 +5716,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBEMLP_POLL_STEPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -5698,7 +5724,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBEMLP_POLL_STEPSRow Get Return Me.eventRow @@ -5706,7 +5732,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -5717,7 +5743,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBEMLP_POLL_INDEXING_STEPSRowChangeEvent Inherits Global.System.EventArgs @@ -5726,7 +5752,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBEMLP_POLL_INDEXING_STEPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -5734,7 +5760,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBEMLP_POLL_INDEXING_STEPSRow Get Return Me.eventRow @@ -5742,7 +5768,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -5753,7 +5779,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBEMLP_HISTORYRowChangeEvent Inherits Global.System.EventArgs @@ -5762,7 +5788,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBEMLP_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -5770,7 +5796,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBEMLP_HISTORYRow Get Return Me.eventRow @@ -5778,7 +5804,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -5789,7 +5815,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBEMLP_CONFIGRowChangeEvent Inherits Global.System.EventArgs @@ -5798,7 +5824,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBEMLP_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -5806,7 +5832,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBEMLP_CONFIGRow Get Return Me.eventRow @@ -5814,7 +5840,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -5825,7 +5851,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBDD_EMAIL_ACCOUNTRowChangeEvent Inherits Global.System.EventArgs @@ -5834,7 +5860,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_EMAIL_ACCOUNTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -5842,7 +5868,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_EMAIL_ACCOUNTRow Get Return Me.eventRow @@ -5850,7 +5876,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -5884,14 +5910,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -5902,7 +5928,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -5932,7 +5958,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -5960,7 +5986,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -5971,7 +5997,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -5982,7 +6008,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -6075,14 +6101,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.CONFIG_APP.My.MySettings.Default.MyDatasetConnString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -6092,7 +6118,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable) As Integer @@ -6105,7 +6131,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_POLL_PROFILESDataTable @@ -6116,35 +6142,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_POLL_PROFILES") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PROFILE_NAME As String, ByVal Original_POLL_TYPE As String, ByVal Original_EMAIL_CONF_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_LAST_TICK As Global.System.Nullable(Of Date), ByVal Original_ACTIVE As Boolean, ByVal Original_SEQUENCE As Global.System.Nullable(Of Integer), ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -6226,7 +6252,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer @@ -6278,7 +6304,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -6355,14 +6381,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -6373,7 +6399,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -6403,7 +6429,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -6431,7 +6457,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -6442,7 +6468,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -6453,7 +6479,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -6568,14 +6594,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.CONFIG_APP.My.MySettings.Default.MyDatasetConnString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -6590,7 +6616,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_PROCESSDataTable) As Integer @@ -6603,7 +6629,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_POLL_PROCESSDataTable @@ -6614,35 +6640,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_PROCESSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_POLL_PROCESS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -6663,7 +6689,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert( _ @@ -6779,7 +6805,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -6922,14 +6948,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -6940,7 +6966,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -6970,7 +6996,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -6998,7 +7024,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -7009,7 +7035,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -7020,7 +7046,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -7080,14 +7106,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.CONFIG_APP.My.MySettings.Default.MyDatasetConnString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -7097,7 +7123,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_STEPSDataTable) As Integer @@ -7110,7 +7136,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_POLL_STEPSDataTable @@ -7121,35 +7147,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_STEPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_POLL_STEPS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -7170,7 +7196,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PROCESS_ID As Integer, ByVal STEP_NAME As String, ByVal KEYWORDS_BODY As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer @@ -7217,7 +7243,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PROCESS_ID As Integer, ByVal STEP_NAME As String, ByVal KEYWORDS_BODY As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -7289,14 +7315,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -7307,7 +7333,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -7337,7 +7363,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -7365,7 +7391,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -7376,7 +7402,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -7387,7 +7413,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -7448,14 +7474,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.CONFIG_APP.My.MySettings.Default.MyDatasetConnString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -7466,7 +7492,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_INDEXING_STEPSDataTable) As Integer @@ -7479,7 +7505,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_POLL_INDEXING_STEPSDataTable @@ -7490,35 +7516,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_INDEXING_STEPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_POLL_INDEXING_STEPS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer @@ -7539,7 +7565,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal STEP_ID As Integer, ByVal INDEXNAME As String, ByVal INDEXVALUE As String, ByVal ACTIVE As Boolean, ByVal USE_FOR_DIRECT_ANSWER As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer @@ -7582,7 +7608,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal STEP_ID As Integer, ByVal INDEXNAME As String, ByVal INDEXVALUE As String, ByVal ACTIVE As Boolean, ByVal USE_FOR_DIRECT_ANSWER As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer @@ -7650,14 +7676,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -7668,7 +7694,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -7698,7 +7724,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -7726,7 +7752,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -7737,7 +7763,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -7748,7 +7774,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -7834,14 +7860,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.CONFIG_APP.My.MySettings.Default.MyDatasetConnString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -7851,7 +7877,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_HISTORYDataTable) As Integer @@ -7864,7 +7890,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_HISTORYDataTable @@ -7875,35 +7901,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_HISTORYDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_HISTORY") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -7924,7 +7950,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal WORK_PROCESS As String, ByVal EMAIL_MSGID As Integer, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_DATE As Global.System.Nullable(Of Date), ByVal EMAIL_BODY As String, ByVal EMAIL_SUBSTRING1 As String, ByVal EMAIL_SUBSTRING2 As String, ByVal COMMENT As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -7985,7 +8011,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -8109,7 +8135,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -8157,14 +8183,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -8175,7 +8201,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -8205,7 +8231,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -8233,7 +8259,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -8244,7 +8270,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -8255,7 +8281,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -8296,14 +8322,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.CONFIG_APP.My.MySettings.Default.MyDatasetConnString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -8313,7 +8339,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_CONFIGDataTable) As Integer @@ -8326,7 +8352,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_CONFIGDataTable @@ -8337,35 +8363,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_CONFIGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_CONFIG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Update(ByVal GUID As Byte, ByVal FONT_BODY As String, ByVal LOG_ERRORS_ONLY As Boolean, ByVal CHECK_INTERVALL_MINUTES As Integer, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal PATH_EMAIL_TEMP As String, ByVal PATH_EMAIL_ERRORS As String, ByVal WM_CON_STRING As String, ByVal CHANGED_WHO As String) As Integer @@ -8441,14 +8467,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -8459,7 +8485,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -8489,7 +8515,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -8517,7 +8543,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -8528,7 +8554,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -8539,7 +8565,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -8560,6 +8586,7 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("SSL_AUTH", "SSL_AUTH") tableMapping.ColumnMappings.Add("AUTH_TYPE", "AUTH_TYPE") tableMapping.ColumnMappings.Add("PORT_IN", "PORT_IN") + tableMapping.ColumnMappings.Add("ARCHIVE_FOLDER", "ARCHIVE_FOLDER") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -8597,11 +8624,12 @@ Namespace MyDatasetTableAdapters Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, EMAIL_FROM, EMAIL"& _ - "_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, AUTH_TYPE, PORT_IN)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUE"& _ - "S (@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@ADD"& _ - "ED_WHO,@AUTH_TYPE,@PORT_IN); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMA"& _ - "IL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ - "N, SSL_AUTH, AUTH_TYPE FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_IDENTITY())" + "_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, AUTH_TYPE, PORT_IN, ARCHIV"& _ + "E_FOLDER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@P"& _ + "ORT,@ACTIVE,@ADDED_WHO,@AUTH_TYPE,@PORT_IN,@ARCHIVE_FOLDER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ + "NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADD"& _ + "ED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE FROM TBDD_EMAIL_ACCOUNT "& _ + "WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -8613,15 +8641,17 @@ Namespace MyDatasetTableAdapters Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AUTH_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "AUTH_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT_IN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ARCHIVE_FOLDER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ARCHIVE_FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, EMAIL_FROM = @E"& _ "MAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL"& _ "_PW, PORT = @PORT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " SSL_AUTH = @SSL_AUTH, AUTH_TYPE = @AUTH_TYPE, PORT_IN = @PORT_IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ - "ERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP"& _ - ", EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ - "D_WHEN, SSL_AUTH, AUTH_TYPE FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = @GUID)" + " SSL_AUTH = @SSL_AUTH, AUTH_TYPE = @AUTH_TYPE, PORT_IN = @PORT_IN, AR"& _ + "CHIVE_FOLDER = @ARCHIVE_FOLDER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ + " GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_W"& _ + "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE FROM TBDD_EMAIL_A"& _ + "CCOUNT WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -8634,31 +8664,32 @@ Namespace MyDatasetTableAdapters Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SSL_AUTH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SSL_AUTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AUTH_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "AUTH_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PORT_IN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PORT_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ARCHIVE_FOLDER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ARCHIVE_FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.CONFIG_APP.My.MySettings.Default.MyDatasetConnString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACT"& _ "IVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE, PORT"& _ - "_IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_ACCOUNT" + "_IN, ARCHIVE_FOLDER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_ACCOUNT" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_EMAIL_ACCOUNTDataTable) As Integer @@ -8671,7 +8702,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBDD_EMAIL_ACCOUNTDataTable @@ -8682,28 +8713,28 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_EMAIL_ACCOUNTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_ACCOUNT") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) @@ -8742,7 +8773,7 @@ Namespace MyDatasetTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -8753,7 +8784,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -8767,7 +8798,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -8781,7 +8812,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -8795,7 +8826,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -8809,7 +8840,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -8823,7 +8854,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -8837,7 +8868,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -8851,7 +8882,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -8862,7 +8893,7 @@ Namespace MyDatasetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -8905,7 +8936,7 @@ Namespace MyDatasetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -8939,7 +8970,7 @@ Namespace MyDatasetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) Then @@ -9012,7 +9043,7 @@ Namespace MyDatasetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) Then @@ -9078,7 +9109,7 @@ Namespace MyDatasetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then @@ -9144,7 +9175,7 @@ Namespace MyDatasetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then @@ -9170,7 +9201,7 @@ Namespace MyDatasetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -9413,13 +9444,13 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -9437,7 +9468,7 @@ Namespace MyDatasetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -9448,7 +9479,7 @@ Namespace MyDatasetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -9458,7 +9489,7 @@ Namespace MyDatasetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -9470,7 +9501,7 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -9509,7 +9540,7 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 diff --git a/App/CONFIG_APP/MyDataset.xsd b/App/CONFIG_APP/MyDataset.xsd index 7e4113d..cb43a5b 100644 --- a/App/CONFIG_APP/MyDataset.xsd +++ b/App/CONFIG_APP/MyDataset.xsd @@ -525,8 +525,8 @@ SELECT GUID, FONT_BODY, LOG_ERRORS_ONLY, CHECK_INTERVALL_MINUTES, LAST_TICK, PAT INSERT INTO TBDD_EMAIL_ACCOUNT - (NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, AUTH_TYPE, PORT_IN) -VALUES (@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@ADDED_WHO,@AUTH_TYPE,@PORT_IN); + (NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, AUTH_TYPE, PORT_IN, ARCHIVE_FOLDER) +VALUES (@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@ADDED_WHO,@AUTH_TYPE,@PORT_IN,@ARCHIVE_FOLDER); SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_IDENTITY()) @@ -539,12 +539,13 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A + - SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE, PORT_IN + SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE, PORT_IN, ARCHIVE_FOLDER FROM TBDD_EMAIL_ACCOUNT @@ -553,8 +554,8 @@ FROM TBDD_EMAIL_ACCOUNT UPDATE TBDD_EMAIL_ACCOUNT SET NAME = @NAME, EMAIL_FROM = @EMAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, PORT = @PORT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, - SSL_AUTH = @SSL_AUTH, AUTH_TYPE = @AUTH_TYPE, PORT_IN = @PORT_IN -WHERE (GUID = @Original_GUID); + SSL_AUTH = @SSL_AUTH, AUTH_TYPE = @AUTH_TYPE, PORT_IN = @PORT_IN, ARCHIVE_FOLDER = @ARCHIVE_FOLDER +WHERE (GUID = @Original_GUID); SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = @GUID) @@ -568,6 +569,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A + @@ -591,6 +593,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A + @@ -602,7 +605,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - + @@ -650,7 +653,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - + @@ -764,7 +767,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - + @@ -811,7 +814,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - + @@ -852,7 +855,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - + @@ -910,7 +913,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - + @@ -957,7 +960,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - + @@ -1023,6 +1026,13 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A + + + + + + + @@ -1059,9 +1069,9 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - - - + + + \ No newline at end of file diff --git a/App/CONFIG_APP/MyDataset.xss b/App/CONFIG_APP/MyDataset.xss index 358158b..b5c98c9 100644 --- a/App/CONFIG_APP/MyDataset.xss +++ b/App/CONFIG_APP/MyDataset.xss @@ -4,7 +4,7 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + @@ -12,7 +12,7 @@ - + diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe b/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe index b5374be..6d4b954 100644 Binary files a/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe and b/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe differ diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe.config b/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe.config index 6ddd315..dc747a8 100644 --- a/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe.config +++ b/App/CONFIG_APP/bin/Debug/CONFIG_APP.exe.config @@ -9,7 +9,7 @@ - @@ -18,7 +18,7 @@ - Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd diff --git a/App/CONFIG_APP/bin/Debug/CONFIG_APP.pdb b/App/CONFIG_APP/bin/Debug/CONFIG_APP.pdb index 3a4c9d1..b128ded 100644 Binary files a/App/CONFIG_APP/bin/Debug/CONFIG_APP.pdb and b/App/CONFIG_APP/bin/Debug/CONFIG_APP.pdb differ diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.dll b/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.dll index 0306519..37a864f 100644 Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.dll and b/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.dll differ diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.pdb b/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.pdb index a9d051b..38c6492 100644 Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.pdb and b/App/CONFIG_APP/bin/Debug/DigitalData.EMLProfiler.pdb differ diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.dll b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.dll index 147d72b..edb4a8f 100644 Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.dll and b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.dll differ diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.pdb b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.pdb index 34314de..aeafc87 100644 Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.pdb and b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.pdb differ diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.xml b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.xml index 62d8b0d..8826f42 100644 --- a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.xml +++ b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Database.xml @@ -206,26 +206,11 @@ DigitalData.Modules.Database sqlcommand for datatable (select XYZ from TableORView) Returns a datatable - - - Executes the passed sql-statement - - the sql statement - Returns true if properly executed, else false - - - - - Executes the passed sql-statement as Scalar - - the sql statement - Returns true if properly executed, else false - Executes the passed sql-statement in asyncmode - the sql statement + the sql statement Optional Timeout diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.dll b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.dll index 0e444a5..9d7ae9e 100644 Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.dll and b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.dll differ diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.pdb b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.pdb index 4cea7a0..b92172f 100644 Binary files a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.pdb and b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.pdb differ diff --git a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.xml b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.xml index 214eb9d..faca96a 100644 --- a/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.xml +++ b/App/CONFIG_APP/bin/Debug/DigitalData.Modules.Logging.xml @@ -34,33 +34,6 @@ DigitalData.Modules.Logging NLog, >= 4.5.8 - - logPath, PathType - The basepath to write logs to. Can be AppData, CurrentDirectory or CustomPath. - - - AppData: writes to local application data directory - - CurrentDirectory: writes to `Log` directory relative to the current directory - - CustomPath: writes to custom path specified in `customLogPath` - - customLogPath, String (optional) - If `logPath` is set to custom, this defines the custom logPath. - - suffix, String (optional) - If set to anything other than Nothing, extends the logfile name with this suffix. - - - LogFile, String (readonly) - Returns the full path of the default log file. - - LogPath, String (readonly) - Returns the path to the log directory. - - LogFactory, NLog.LogFactory (readonly) - Returns the LogFactory that is used to create the Logger object - - Debug, Boolean - Determines if the debug log should be written. - Imports DigitalData.Modules.Logging @@ -132,13 +105,15 @@ DigitalData.Modules.Logging A list of log messages - + Initializes a new LogConfig object with a logpath and optinally a filename-suffix. - The basepath to write logs to. Can be AppData, CurrentDirectory or CustomPath. - If `logPath` is set to custom, this defines the custom logPath. - If set to anything other than Nothing, extends the logfile name with this suffix. + The basepath to write logs to. Can be AppData, CurrentDirectory or CustomPath. + If `logPath` is set to custom, this defines the custom logPath. + If set to anything other than Nothing, extends the logfile name with this suffix. + CompanyName is used to construct log-path in when LogPath is set to PathType:AppData + ProductName is used to construct log-path in when LogPath is set to PathType:AppData diff --git a/App/CONFIG_APP/bin/Debug/Log/2020-02-27-Email-Profiler - Config-Log-Debug.log b/App/CONFIG_APP/bin/Debug/Log/2020-02-27-Email-Profiler - Config-Log-Debug.log new file mode 100644 index 0000000..40be207 --- /dev/null +++ b/App/CONFIG_APP/bin/Debug/Log/2020-02-27-Email-Profiler - Config-Log-Debug.log @@ -0,0 +1,2 @@ +2020-02-27 12:26:31|frmMain|DEBUG >> AppConfig is located at: [E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.exe.Config] +2020-02-27 12:26:32|clsWindream_allgemein|DEBUG >> sDD-VMP01-APS01 diff --git a/App/CONFIG_APP/bin/Debug/Log/2020-02-27-Email-Profiler - Config-Log-Error.log b/App/CONFIG_APP/bin/Debug/Log/2020-02-27-Email-Profiler - Config-Log-Error.log new file mode 100644 index 0000000..74b2d6b --- /dev/null +++ b/App/CONFIG_APP/bin/Debug/Log/2020-02-27-Email-Profiler - Config-Log-Error.log @@ -0,0 +1 @@ +2020-02-27 12:26:32|clsWindream_allgemein|WARN >> Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind diff --git a/App/CONFIG_APP/bin/Debug/Log/2020-02-27-Email-Profiler - Config-Log.log b/App/CONFIG_APP/bin/Debug/Log/2020-02-27-Email-Profiler - Config-Log.log new file mode 100644 index 0000000..74b2d6b --- /dev/null +++ b/App/CONFIG_APP/bin/Debug/Log/2020-02-27-Email-Profiler - Config-Log.log @@ -0,0 +1 @@ +2020-02-27 12:26:32|clsWindream_allgemein|WARN >> Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind diff --git a/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Email-Profiler - Config-Debug.log b/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Email-Profiler - Config-Debug.log new file mode 100644 index 0000000..0450445 --- /dev/null +++ b/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Email-Profiler - Config-Debug.log @@ -0,0 +1,317 @@ +2020-04-30 11:22:45|clsEmailIMAP|DEBUG >> A006 UID FETCH 9127 RFC822 + +2020-04-30 11:49:05|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(MESSAGE_ID) = lower('<000e01d4a8e1$ca768560$5f639020$@gmx.de>') +2020-04-30 11:50:49|clsEmailIMAP|DEBUG >> Working on email: UniqueID [11721] - Subject[Ihre Gedenkseite auf Gedenkseiten.de] - Date [28.05.2019 14:35:30] +2020-04-30 11:50:51|clsEmailIMAP|DEBUG >> A007 UID FETCH 11721 RFC822 + +2020-04-30 11:50:56|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<20190528123530.C99AA2416024C@h2585045.stratoserver.net>') +2020-04-30 11:51:17|clsEmailIMAP|DEBUG >> A008 UID STORE 11721 +FLAGS (\SEEN) + +2020-04-30 11:51:18|clsEmailIMAP|DEBUG >> A008 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:51:23|clsEmailIMAP|DEBUG >> Working on email: UniqueID [13093] - Subject[ADticket - Mein Ticketportal - Ihre Bestellung 45344949] - Date [19.08.2019 15:10:01] +2020-04-30 11:51:27|clsEmailIMAP|DEBUG >> A009 UID FETCH 13093 RFC822 + +2020-04-30 11:51:27|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('') +2020-04-30 11:51:28|clsEmailIMAP|DEBUG >> A010 UID STORE 13093 +FLAGS (\SEEN) + +2020-04-30 11:51:29|clsEmailIMAP|DEBUG >> A010 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:51:30|clsEmailIMAP|DEBUG >> Working on email: UniqueID [13803] - Subject[Ihre Prosite Rechnung Prosite-5000172862-1019] - Date [01.10.2019 18:39:17] +2020-04-30 11:51:30|clsEmailIMAP|DEBUG >> A011 UID FETCH 13803 RFC822 + +2020-04-30 11:51:34|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<5d9381359394446d9fbd1600c0a8c002@coreadmin.speedbone.de>') +2020-04-30 11:51:36|clsEmailIMAP|DEBUG >> A012 UID STORE 13803 +FLAGS (\SEEN) + +2020-04-30 11:51:37|clsEmailIMAP|DEBUG >> A012 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:51:39|clsEmailIMAP|DEBUG >> Working on email: UniqueID [14335] - Subject[AW: Ausverkaufter Artikel 851400 - Brisket] - Date [08.11.2019 13:27:09] +2020-04-30 11:51:39|clsEmailIMAP|DEBUG >> A013 UID FETCH 14335 RFC822 + +2020-04-30 11:51:39|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<1bde1d201e384e548e9c33ee1eb81af3@MX01.albersdus.local>') +2020-04-30 11:51:40|clsEmailIMAP|DEBUG >> A014 UID STORE 14335 +FLAGS (\SEEN) + +2020-04-30 11:51:40|clsEmailIMAP|DEBUG >> A014 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:51:41|clsEmailIMAP|DEBUG >> Working on email: UniqueID [15203] - Subject[Wg: Jo szorakozast!] - Date [04.01.2020 20:30:08] +2020-04-30 11:51:41|clsEmailIMAP|DEBUG >> A015 UID FETCH 15203 RFC822 + +2020-04-30 11:51:41|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('') +2020-04-30 11:51:42|clsEmailIMAP|DEBUG >> A016 UID STORE 15203 +FLAGS (\SEEN) + +2020-04-30 11:51:42|clsEmailIMAP|DEBUG >> A016 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:51:43|clsEmailIMAP|DEBUG >> Working on email: UniqueID [15773] - Subject[Ihre Ticketbestellung (DTS-HT)] - Date [10.02.2020 11:33:01] +2020-04-30 11:51:43|clsEmailIMAP|DEBUG >> A017 UID FETCH 15773 RFC822 + +2020-04-30 11:51:43|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<1581330782.48GMgK75hwzGmTX@mail.derticketservice.de>') +2020-04-30 11:51:45|clsEmailIMAP|DEBUG >> A018 UID STORE 15773 +FLAGS (\SEEN) + +2020-04-30 11:51:46|clsEmailIMAP|DEBUG >> A018 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:51:46|clsEmailIMAP|DEBUG >> Working on email: UniqueID [15958] - Subject[Vielen Dank für Ihre Newsletter-Anmeldung] - Date [21.02.2020 17:05:38] +2020-04-30 11:51:46|clsEmailIMAP|DEBUG >> A019 UID FETCH 15958 RFC822 + +2020-04-30 11:51:46|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<20200221160538.28933140AFF@heiso.aix-cloud.de>') +2020-04-30 11:51:48|clsEmailIMAP|DEBUG >> A020 UID STORE 15958 +FLAGS (\SEEN) + +2020-04-30 11:51:48|clsEmailIMAP|DEBUG >> A020 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:51:49|clsEmailIMAP|DEBUG >> Working on email: UniqueID [15961] - Subject[Vielen Dank für Ihre Newsletter Anmeldung] - Date [21.02.2020 21:06:12] +2020-04-30 11:51:49|clsEmailIMAP|DEBUG >> A021 UID FETCH 15961 RFC822 + +2020-04-30 11:51:49|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<718e1ec32ce770e3d0609633b.1928942146.20200221200607.ad4ff32923.d6eb0e23@mail211.suw12.mcsv.net>') +2020-04-30 11:51:50|clsEmailIMAP|DEBUG >> A022 UID STORE 15961 +FLAGS (\SEEN) + +2020-04-30 11:51:50|clsEmailIMAP|DEBUG >> A022 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:51:51|clsEmailIMAP|DEBUG >> Working on email: UniqueID [16068] - Subject[Ticket #153391: Blacklist] - Date [28.02.2020 13:06:03] +2020-04-30 11:51:51|clsEmailIMAP|DEBUG >> A023 UID FETCH 16068 RFC822 + +2020-04-30 11:51:51|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<5e59022b1e484b959d714d0bc0a8c002@coreadmin.speedbone.de>') +2020-04-30 11:51:52|clsEmailIMAP|DEBUG >> A024 UID STORE 16068 +FLAGS (\SEEN) + +2020-04-30 11:51:52|clsEmailIMAP|DEBUG >> A024 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:51:54|clsEmailIMAP|DEBUG >> Working on email: UniqueID [16091] - Subject[Ihre Rücksendungsübersicht] - Date [29.02.2020 16:31:22] +2020-04-30 11:51:54|clsEmailIMAP|DEBUG >> A025 UID FETCH 16091 RFC822 + +2020-04-30 11:51:54|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<010201709192d029-0f3eb811-bf1f-4f46-8903-9b8a89d06ae6-000000@eu-west-1.amazonses.com>') +2020-04-30 11:51:56|clsEmailIMAP|DEBUG >> A026 UID STORE 16091 +FLAGS (\SEEN) + +2020-04-30 11:51:56|clsEmailIMAP|DEBUG >> A026 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:51:57|clsEmailIMAP|DEBUG >> Working on email: UniqueID [16093] - Subject[Re: MOB Skateboards Webshop Kontaktformular] - Date [29.02.2020 16:52:33] +2020-04-30 11:51:57|clsEmailIMAP|DEBUG >> A027 UID FETCH 16093 RFC822 + +2020-04-30 11:51:57|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<45CA24CE-6090-4ADE-883D-412276B82D39@mosaic-sales.com>') +2020-04-30 11:51:58|clsEmailIMAP|DEBUG >> A028 UID STORE 16093 +FLAGS (\SEEN) + +2020-04-30 11:51:58|clsEmailIMAP|DEBUG >> A028 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:00|clsEmailIMAP|DEBUG >> Working on email: UniqueID [16135] - Subject[Mein ELSTER: Aktivierung Ihres Benutzerkontos] - Date [01.01.0001 00:00:00] +2020-04-30 11:52:00|clsEmailIMAP|DEBUG >> A029 UID FETCH 16135 RFC822 + +2020-04-30 11:52:00|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<1082422146.1430499.1583163080931@ecmprd01.cs1.elster.de>') +2020-04-30 11:52:01|clsEmailIMAP|DEBUG >> A030 UID STORE 16135 +FLAGS (\SEEN) + +2020-04-30 11:52:01|clsEmailIMAP|DEBUG >> A030 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:02|clsEmailIMAP|DEBUG >> Working on email: UniqueID [16296] - Subject[AW: Ferien 2020 in Suedwestfrankreich -- BITTE BEACHTEN] - Date [09.03.2020 12:53:49] +2020-04-30 11:52:02|clsEmailIMAP|DEBUG >> A031 UID FETCH 16296 RFC822 + +2020-04-30 11:52:02|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<002001d5f609$65cc8b20$3165a160$@web.de>') +2020-04-30 11:52:04|clsEmailIMAP|DEBUG >> A032 UID STORE 16296 +FLAGS (\SEEN) + +2020-04-30 11:52:04|clsEmailIMAP|DEBUG >> A032 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:05|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17007] - Subject[Dinge zum Ausprobieren mit deinem Echo] - Date [17.04.2020 07:15:13] +2020-04-30 11:52:05|clsEmailIMAP|DEBUG >> A033 UID FETCH 17007 RFC822 + +2020-04-30 11:52:05|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<01020171868ff504-8246a8c8-8d08-4485-a796-787a9b2f0aed-000000@eu-west-1.amazonses.com>') +2020-04-30 11:52:06|clsEmailIMAP|DEBUG >> A034 UID STORE 17007 +FLAGS (\SEEN) + +2020-04-30 11:52:07|clsEmailIMAP|DEBUG >> A034 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:07|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17018] - Subject[Re: Musikwunsch] - Date [17.04.2020 14:21:10] +2020-04-30 11:52:07|clsEmailIMAP|DEBUG >> A035 UID FETCH 17018 RFC822 + +2020-04-30 11:52:08|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<439392B1-CA1B-4DBD-A4D7-ADE45FE78775@say-say.de>') +2020-04-30 11:52:09|clsEmailIMAP|DEBUG >> A036 UID STORE 17018 +FLAGS (\SEEN) + +2020-04-30 11:52:09|clsEmailIMAP|DEBUG >> A036 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:11|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17024] - Subject[Re: Musikwunsch] - Date [17.04.2020 19:44:17] +2020-04-30 11:52:11|clsEmailIMAP|DEBUG >> A037 UID FETCH 17024 RFC822 + +2020-04-30 11:52:11|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<8B1648BD-3F15-4D3C-88CB-F50A562389FD@say-say.de>') +2020-04-30 11:52:19|clsEmailIMAP|DEBUG >> A038 UID STORE 17024 +FLAGS (\SEEN) + +2020-04-30 11:52:19|clsEmailIMAP|DEBUG >> A038 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:23|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17027] - Subject[[your-subject]] - Date [18.04.2020 00:19:47] +2020-04-30 11:52:23|clsEmailIMAP|DEBUG >> A039 UID FETCH 17027 RFC822 + +2020-04-30 11:52:24|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<8A87B5EE165B47FCAF404BDEA55F52A7@Marian>') +2020-04-30 11:52:24|clsEmailIMAP|DEBUG >> A040 UID STORE 17027 +FLAGS (\SEEN) + +2020-04-30 11:52:24|clsEmailIMAP|DEBUG >> A040 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:25|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17036] - Subject[FW: Elternbrief] - Date [18.04.2020 17:36:09] +2020-04-30 11:52:25|clsEmailIMAP|DEBUG >> A041 UID FETCH 17036 RFC822 + +2020-04-30 11:52:25|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<2D3B0BDF-0A04-4130-9F26-1F2F0036A8F0@gmx.de>') +2020-04-30 11:52:25|clsEmailIMAP|DEBUG >> A042 UID STORE 17036 +FLAGS (\SEEN) + +2020-04-30 11:52:25|clsEmailIMAP|DEBUG >> A042 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:26|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17049] - Subject[Diane Manz] - Date [19.04.2020 14:39:19] +2020-04-30 11:52:26|clsEmailIMAP|DEBUG >> A043 UID FETCH 17049 RFC822 + +2020-04-30 11:52:26|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<7DD7BFD2-B50A-48F5-8E76-6733CE65BD2B@gmx.de>') +2020-04-30 11:52:26|clsEmailIMAP|DEBUG >> A044 UID STORE 17049 +FLAGS (\SEEN) + +2020-04-30 11:52:26|clsEmailIMAP|DEBUG >> A044 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:27|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17155] - Subject[Re: Musikwunsch] - Date [24.04.2020 19:33:32] +2020-04-30 11:52:27|clsEmailIMAP|DEBUG >> A045 UID FETCH 17155 RFC822 + +2020-04-30 11:52:27|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<314D0A71-9CC6-4E41-A1C6-9C1AB4C04723@say-say.de>') +2020-04-30 11:52:27|clsEmailIMAP|DEBUG >> A046 UID STORE 17155 +FLAGS (\SEEN) + +2020-04-30 11:52:27|clsEmailIMAP|DEBUG >> A046 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:28|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17190] - Subject[Kerstin Lefèvre] - Date [26.04.2020 10:39:41] +2020-04-30 11:52:28|clsEmailIMAP|DEBUG >> A047 UID FETCH 17190 RFC822 + +2020-04-30 11:52:29|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<5918F910-6BC3-45F5-BA65-8392453B1292@tsv-allendorf-lahn.net>') +2020-04-30 11:52:29|clsEmailIMAP|DEBUG >> A048 UID STORE 17190 +FLAGS (\SEEN) + +2020-04-30 11:52:29|clsEmailIMAP|DEBUG >> A048 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:30|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17194] - Subject[Nachricht von Frau Zörb] - Date [26.04.2020 13:26:25] +2020-04-30 11:52:30|clsEmailIMAP|DEBUG >> A049 UID FETCH 17194 RFC822 + +2020-04-30 11:52:31|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<58AD72C6-AF37-45F9-9A68-E2C93F94BE37@gmx.de>') +2020-04-30 11:52:31|clsEmailIMAP|DEBUG >> A050 UID STORE 17194 +FLAGS (\SEEN) + +2020-04-30 11:52:31|clsEmailIMAP|DEBUG >> A050 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:32|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17201] - Subject[Link High Intensitiy] - Date [26.04.2020 18:51:40] +2020-04-30 11:52:32|clsEmailIMAP|DEBUG >> A051 UID FETCH 17201 RFC822 + +2020-04-30 11:52:32|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<84F7D610-C176-46D7-80B1-662BAD60BC9C@tsv-allendorf-lahn.net>') +2020-04-30 11:52:32|clsEmailIMAP|DEBUG >> A052 UID STORE 17201 +FLAGS (\SEEN) + +2020-04-30 11:52:32|clsEmailIMAP|DEBUG >> A052 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:33|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17202] - Subject[[your-subject]] - Date [26.04.2020 21:23:03] +2020-04-30 11:52:33|clsEmailIMAP|DEBUG >> A053 UID FETCH 17202 RFC822 + +2020-04-30 11:52:33|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<3A53695CBFA5406FA78CFCB9BBFFBA8B@Marian>') +2020-04-30 11:52:33|clsEmailIMAP|DEBUG >> A054 UID STORE 17202 +FLAGS (\SEEN) + +2020-04-30 11:52:33|clsEmailIMAP|DEBUG >> A054 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:38|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17244] - Subject[Kerstin Lefèvre] - Date [28.04.2020 17:24:21] +2020-04-30 11:52:38|clsEmailIMAP|DEBUG >> A055 UID FETCH 17244 RFC822 + +2020-04-30 11:52:38|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('') +2020-04-30 11:52:38|clsEmailIMAP|DEBUG >> A056 UID STORE 17244 +FLAGS (\SEEN) + +2020-04-30 11:52:38|clsEmailIMAP|DEBUG >> A056 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:39|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17262] - Subject[Link Zumba, 19.00 Uhr] - Date [29.04.2020 17:13:58] +2020-04-30 11:52:39|clsEmailIMAP|DEBUG >> A057 UID FETCH 17262 RFC822 + +2020-04-30 11:52:39|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<2E8B7FA7-CFE7-47DE-99F0-A41CD21E28C6@tsv-allendorf-lahn.net>') +2020-04-30 11:52:39|clsEmailIMAP|DEBUG >> A058 UID STORE 17262 +FLAGS (\SEEN) + +2020-04-30 11:52:39|clsEmailIMAP|DEBUG >> A058 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:41|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17264] - Subject[Fashion in deinen Lieblingsfarben!] - Date [29.04.2020 18:08:06] +2020-04-30 11:52:41|clsEmailIMAP|DEBUG >> A059 UID FETCH 17264 RFC822 + +2020-04-30 11:52:41|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('') +2020-04-30 11:52:41|clsEmailIMAP|DEBUG >> A060 UID STORE 17264 +FLAGS (\SEEN) + +2020-04-30 11:52:41|clsEmailIMAP|DEBUG >> A060 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:42|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17265] - Subject[Casino news] - Date [29.04.2020 20:47:41] +2020-04-30 11:52:42|clsEmailIMAP|DEBUG >> A061 UID FETCH 17265 RFC822 + +2020-04-30 11:52:42|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('') +2020-04-30 11:52:42|clsEmailIMAP|DEBUG >> A062 UID STORE 17265 +FLAGS (\SEEN) + +2020-04-30 11:52:42|clsEmailIMAP|DEBUG >> A062 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:44|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17267] - Subject[Diese Hosen rocken?? Schau dir unsere GPx-Serie an!] - Date [30.04.2020 06:04:42] +2020-04-30 11:52:44|clsEmailIMAP|DEBUG >> A063 UID FETCH 17267 RFC822 + +2020-04-30 11:52:45|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('') +2020-04-30 11:52:45|clsEmailIMAP|DEBUG >> A064 UID STORE 17267 +FLAGS (\SEEN) + +2020-04-30 11:52:45|clsEmailIMAP|DEBUG >> A064 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:47|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17268] - Subject[Marc O´Polo, UGG, True Prodigy uvm.] - Date [30.04.2020 07:07:16] +2020-04-30 11:52:47|clsEmailIMAP|DEBUG >> A065 UID FETCH 17268 RFC822 + +2020-04-30 11:52:48|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<2845cb71-90ee-40b7-a4c9-5544183a9671@atl1s07mta863.xt.local>') +2020-04-30 11:52:48|clsEmailIMAP|DEBUG >> A066 UID STORE 17268 +FLAGS (\SEEN) + +2020-04-30 11:52:48|clsEmailIMAP|DEBUG >> A066 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:49|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17269] - Subject[BestSecret SALE] - Date [30.04.2020 07:09:41] +2020-04-30 11:52:49|clsEmailIMAP|DEBUG >> A067 UID FETCH 17269 RFC822 + +2020-04-30 11:52:50|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<0af625f4-f3e3-4454-bc56-ecf0c4526e21@ind1s01mta1076.xt.local>') +2020-04-30 11:52:50|clsEmailIMAP|DEBUG >> A068 UID STORE 17269 +FLAGS (\SEEN) + +2020-04-30 11:52:50|clsEmailIMAP|DEBUG >> A068 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:51|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17270] - Subject[Einzigartig wie nie. Sehr, sehr profitabel.] - Date [30.04.2020 07:56:04] +2020-04-30 11:52:51|clsEmailIMAP|DEBUG >> A069 UID FETCH 17270 RFC822 + +2020-04-30 11:52:51|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('4c4f53f51151ae97ec453dc89e716c07@icarus10.com') +2020-04-30 11:52:51|clsEmailIMAP|DEBUG >> A070 UID STORE 17270 +FLAGS (\SEEN) + +2020-04-30 11:52:51|clsEmailIMAP|DEBUG >> A070 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:52|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17271] - Subject[SC24.com AG] - Date [30.04.2020 08:32:25] +2020-04-30 11:52:52|clsEmailIMAP|DEBUG >> A071 UID FETCH 17271 RFC822 + +2020-04-30 11:52:52|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<0.1.1D.AB5.1D61EB91CE3FA0A.0@pmta40182.emarsys.net>') +2020-04-30 11:52:52|clsEmailIMAP|DEBUG >> A072 UID STORE 17271 +FLAGS (\SEEN) + +2020-04-30 11:52:52|clsEmailIMAP|DEBUG >> A072 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:53|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17272] - Subject[Link Beine intensiv 11.00 Uhr] - Date [30.04.2020 09:23:31] +2020-04-30 11:52:53|clsEmailIMAP|DEBUG >> A073 UID FETCH 17272 RFC822 + +2020-04-30 11:52:53|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<30611C7A-6C20-42E8-AF04-BB1D4988CC0E@tsv-allendorf-lahn.net>') +2020-04-30 11:52:53|clsEmailIMAP|DEBUG >> A074 UID STORE 17272 +FLAGS (\SEEN) + +2020-04-30 11:52:54|clsEmailIMAP|DEBUG >> A074 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:54|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17273] - Subject[Dan Gerlitz] - Date [30.04.2020 07:09:18] +2020-04-30 11:52:54|clsEmailIMAP|DEBUG >> A075 UID FETCH 17273 RFC822 + +2020-04-30 11:52:54|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('') +2020-04-30 11:52:54|clsEmailIMAP|DEBUG >> A076 UID STORE 17273 +FLAGS (\SEEN) + +2020-04-30 11:52:55|clsEmailIMAP|DEBUG >> A076 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:56|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17274] - Subject[Handelsblatt Online Eilmeldung] - Date [01.01.0001 00:00:00] +2020-04-30 11:52:56|clsEmailIMAP|DEBUG >> A077 UID FETCH 17274 RFC822 + +2020-04-30 11:52:57|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('') +2020-04-30 11:52:57|clsEmailIMAP|DEBUG >> A078 UID STORE 17274 +FLAGS (\SEEN) + +2020-04-30 11:52:57|clsEmailIMAP|DEBUG >> A078 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:52:58|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17275] - Subject[BestSecret NEW] - Date [30.04.2020 11:14:32] +2020-04-30 11:52:58|clsEmailIMAP|DEBUG >> A079 UID FETCH 17275 RFC822 + +2020-04-30 11:52:59|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('') +2020-04-30 11:52:59|clsEmailIMAP|DEBUG >> A080 UID STORE 17275 +FLAGS (\SEEN) + +2020-04-30 11:52:59|clsEmailIMAP|DEBUG >> A080 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:53:00|clsEmailIMAP|DEBUG >> Working on email: UniqueID [17276] - Subject[?? Entspannte Sommermode ??] - Date [30.04.2020 11:04:01] +2020-04-30 11:53:00|clsEmailIMAP|DEBUG >> A081 UID FETCH 17276 RFC822 + +2020-04-30 11:53:00|clsDatabase|DEBUG >> ReturnDatatable Command: SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('<7f8294d2-854d-4275-a44b-aa701706f07b@atl1s07mta864.xt.local>') +2020-04-30 11:53:00|clsEmailIMAP|DEBUG >> A082 UID STORE 17276 +FLAGS (\SEEN) + +2020-04-30 11:53:00|clsEmailIMAP|DEBUG >> A082 OK Store completed (0.001 + 0.000 secs). + +2020-04-30 11:53:00|clsEmailIMAP|DEBUG >> A083 EXPUNGE + +2020-04-30 11:53:00|clsEmailIMAP|DEBUG >> A083 OK Expunge completed (0.001 + 0.000 secs). + +2020-04-30 11:53:00|clsEmailIMAP|DEBUG >> A084 LOGOUT + +2020-04-30 11:53:01|clsEmailIMAP|DEBUG >> * BYE Logging out +A084 OK Logout completed (0.001 + 0.000 secs). + +2020-04-30 11:55:15|clsEmailIMAP|DEBUG >> IMAP COLLECT Independentsoft finished! diff --git a/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Email-Profiler - Config-Error.log b/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Email-Profiler - Config-Error.log new file mode 100644 index 0000000..a6410b7 --- /dev/null +++ b/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Email-Profiler - Config-Error.log @@ -0,0 +1,2 @@ +2020-04-30 11:49:05|clsDatabase|WARN >> Unexpected Error in Return_Datatable: Ungültiger Spaltenname "MESSAGE_ID". +2020-04-30 11:49:05|clsDatabase|WARN >> SQL: SELECT * FROM TBEMLP_HISTORY WHERE lower(MESSAGE_ID) = lower('<000e01d4a8e1$ca768560$5f639020$@gmx.de>') diff --git a/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Email-Profiler - Config.log b/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Email-Profiler - Config.log new file mode 100644 index 0000000..11d0717 --- /dev/null +++ b/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Email-Profiler - Config.log @@ -0,0 +1,50 @@ +2020-04-30 10:52:18|clsEmailIMAP|WARN >> Error while oClient.Connec(): Fehler bei Handshake wegen eines unerwarteten Paketformats. +2020-04-30 10:52:30|clsEmailIMAP|WARN >> Error while oClient.Connec(): Der Prozess kann nicht auf die Datei "E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Log\IsoftLog.txt" zugreifen, da sie von einem anderen Prozess verwendet wird. +2020-04-30 10:52:38|clsEmailIMAP|WARN >> Error while oClient.Connec(): Der Prozess kann nicht auf die Datei "E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\Log\IsoftLog.txt" zugreifen, da sie von einem anderen Prozess verwendet wird. +2020-04-30 10:53:56|clsEmailIMAP|INFO >> Working on email: UniqueID [9127] - Subject[Orangenpapier] - Date [10.01.2019 13:41:21] +2020-04-30 11:00:46|clsEmailIMAP|INFO >> Working on email: UniqueID [9127] - Subject[Orangenpapier] - Date [10.01.2019 13:41:21] +2020-04-30 11:20:43|clsEmailIMAP|INFO >> Working on email: UniqueID [9127] - Subject[Orangenpapier] - Date [10.01.2019 13:41:21] +2020-04-30 11:22:18|clsEmailIMAP|INFO >> Working on email: UniqueID [9127] - Subject[Orangenpapier] - Date [10.01.2019 13:41:21] +2020-04-30 11:49:05|clsDatabase|WARN >> Unexpected Error in Return_Datatable: Ungültiger Spaltenname "MESSAGE_ID". +2020-04-30 11:49:05|clsDatabase|WARN >> SQL: SELECT * FROM TBEMLP_HISTORY WHERE lower(MESSAGE_ID) = lower('<000e01d4a8e1$ca768560$5f639020$@gmx.de>') +2020-04-30 11:50:49|clsEmailIMAP|INFO >> Working on email: UniqueID [11721] - Subject[Ihre Gedenkseite auf Gedenkseiten.de] - Date [28.05.2019 14:35:30] +2020-04-30 11:51:23|clsEmailIMAP|INFO >> Working on email: UniqueID [13093] - Subject[ADticket - Mein Ticketportal - Ihre Bestellung 45344949] - Date [19.08.2019 15:10:01] +2020-04-30 11:51:30|clsEmailIMAP|INFO >> Working on email: UniqueID [13803] - Subject[Ihre Prosite Rechnung Prosite-5000172862-1019] - Date [01.10.2019 18:39:17] +2020-04-30 11:51:39|clsEmailIMAP|INFO >> Working on email: UniqueID [14335] - Subject[AW: Ausverkaufter Artikel 851400 - Brisket] - Date [08.11.2019 13:27:09] +2020-04-30 11:51:41|clsEmailIMAP|INFO >> Working on email: UniqueID [15203] - Subject[Wg: Jo szorakozast!] - Date [04.01.2020 20:30:08] +2020-04-30 11:51:43|clsEmailIMAP|INFO >> Working on email: UniqueID [15773] - Subject[Ihre Ticketbestellung (DTS-HT)] - Date [10.02.2020 11:33:01] +2020-04-30 11:51:46|clsEmailIMAP|INFO >> Working on email: UniqueID [15958] - Subject[Vielen Dank für Ihre Newsletter-Anmeldung] - Date [21.02.2020 17:05:38] +2020-04-30 11:51:49|clsEmailIMAP|INFO >> Working on email: UniqueID [15961] - Subject[Vielen Dank für Ihre Newsletter Anmeldung] - Date [21.02.2020 21:06:12] +2020-04-30 11:51:51|clsEmailIMAP|INFO >> Working on email: UniqueID [16068] - Subject[Ticket #153391: Blacklist] - Date [28.02.2020 13:06:03] +2020-04-30 11:51:54|clsEmailIMAP|INFO >> Working on email: UniqueID [16091] - Subject[Ihre Rücksendungsübersicht] - Date [29.02.2020 16:31:22] +2020-04-30 11:51:57|clsEmailIMAP|INFO >> Working on email: UniqueID [16093] - Subject[Re: MOB Skateboards Webshop Kontaktformular] - Date [29.02.2020 16:52:33] +2020-04-30 11:52:00|clsEmailIMAP|INFO >> Working on email: UniqueID [16135] - Subject[Mein ELSTER: Aktivierung Ihres Benutzerkontos] - Date [01.01.0001 00:00:00] +2020-04-30 11:52:02|clsEmailIMAP|INFO >> Working on email: UniqueID [16296] - Subject[AW: Ferien 2020 in Suedwestfrankreich -- BITTE BEACHTEN] - Date [09.03.2020 12:53:49] +2020-04-30 11:52:05|clsEmailIMAP|INFO >> Working on email: UniqueID [17007] - Subject[Dinge zum Ausprobieren mit deinem Echo] - Date [17.04.2020 07:15:13] +2020-04-30 11:52:07|clsEmailIMAP|INFO >> Working on email: UniqueID [17018] - Subject[Re: Musikwunsch] - Date [17.04.2020 14:21:10] +2020-04-30 11:52:11|clsEmailIMAP|INFO >> Working on email: UniqueID [17024] - Subject[Re: Musikwunsch] - Date [17.04.2020 19:44:17] +2020-04-30 11:52:23|clsEmailIMAP|INFO >> Working on email: UniqueID [17027] - Subject[[your-subject]] - Date [18.04.2020 00:19:47] +2020-04-30 11:52:25|clsEmailIMAP|INFO >> Working on email: UniqueID [17036] - Subject[FW: Elternbrief] - Date [18.04.2020 17:36:09] +2020-04-30 11:52:26|clsEmailIMAP|INFO >> Working on email: UniqueID [17049] - Subject[Diane Manz] - Date [19.04.2020 14:39:19] +2020-04-30 11:52:27|clsEmailIMAP|INFO >> Working on email: UniqueID [17155] - Subject[Re: Musikwunsch] - Date [24.04.2020 19:33:32] +2020-04-30 11:52:28|clsEmailIMAP|INFO >> Working on email: UniqueID [17190] - Subject[Kerstin Lefèvre] - Date [26.04.2020 10:39:41] +2020-04-30 11:52:30|clsEmailIMAP|INFO >> Working on email: UniqueID [17194] - Subject[Nachricht von Frau Zörb] - Date [26.04.2020 13:26:25] +2020-04-30 11:52:32|clsEmailIMAP|INFO >> Working on email: UniqueID [17201] - Subject[Link High Intensitiy] - Date [26.04.2020 18:51:40] +2020-04-30 11:52:33|clsEmailIMAP|INFO >> Working on email: UniqueID [17202] - Subject[[your-subject]] - Date [26.04.2020 21:23:03] +2020-04-30 11:52:38|clsEmailIMAP|INFO >> Working on email: UniqueID [17244] - Subject[Kerstin Lefèvre] - Date [28.04.2020 17:24:21] +2020-04-30 11:52:39|clsEmailIMAP|INFO >> Working on email: UniqueID [17262] - Subject[Link Zumba, 19.00 Uhr] - Date [29.04.2020 17:13:58] +2020-04-30 11:52:41|clsEmailIMAP|INFO >> Working on email: UniqueID [17264] - Subject[Fashion in deinen Lieblingsfarben!] - Date [29.04.2020 18:08:06] +2020-04-30 11:52:42|clsEmailIMAP|INFO >> Working on email: UniqueID [17265] - Subject[Casino news] - Date [29.04.2020 20:47:41] +2020-04-30 11:52:44|clsEmailIMAP|INFO >> Working on email: UniqueID [17267] - Subject[Diese Hosen rocken?? Schau dir unsere GPx-Serie an!] - Date [30.04.2020 06:04:42] +2020-04-30 11:52:47|clsEmailIMAP|INFO >> Working on email: UniqueID [17268] - Subject[Marc O´Polo, UGG, True Prodigy uvm.] - Date [30.04.2020 07:07:16] +2020-04-30 11:52:49|clsEmailIMAP|INFO >> Working on email: UniqueID [17269] - Subject[BestSecret SALE] - Date [30.04.2020 07:09:41] +2020-04-30 11:52:51|clsEmailIMAP|INFO >> Working on email: UniqueID [17270] - Subject[Einzigartig wie nie. Sehr, sehr profitabel.] - Date [30.04.2020 07:56:04] +2020-04-30 11:52:52|clsEmailIMAP|INFO >> Working on email: UniqueID [17271] - Subject[SC24.com AG] - Date [30.04.2020 08:32:25] +2020-04-30 11:52:53|clsEmailIMAP|INFO >> Working on email: UniqueID [17272] - Subject[Link Beine intensiv 11.00 Uhr] - Date [30.04.2020 09:23:31] +2020-04-30 11:52:54|clsEmailIMAP|INFO >> Working on email: UniqueID [17273] - Subject[Dan Gerlitz] - Date [30.04.2020 07:09:18] +2020-04-30 11:52:56|clsEmailIMAP|INFO >> Working on email: UniqueID [17274] - Subject[Handelsblatt Online Eilmeldung] - Date [01.01.0001 00:00:00] +2020-04-30 11:52:58|clsEmailIMAP|INFO >> Working on email: UniqueID [17275] - Subject[BestSecret NEW] - Date [30.04.2020 11:14:32] +2020-04-30 11:52:59|clsEmailIMAP|INFO >> Working on email: UniqueID [17276] - Subject[?? Entspannte Sommermode ??] - Date [30.04.2020 11:04:01] +2020-04-30 11:55:10|clsEmailIMAP|INFO >> ############################################### +2020-04-30 11:55:10|clsEmailIMAP|INFO >> Found [38] regular messages to work on! +2020-04-30 11:55:15|clsEmailIMAP|INFO >> ############################################### diff --git a/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Main-Log-Debug.log b/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Main-Log-Debug.log new file mode 100644 index 0000000..1ed7194 --- /dev/null +++ b/App/CONFIG_APP/bin/Debug/Log/2020-04-30-Main-Log-Debug.log @@ -0,0 +1,9 @@ +2020-04-30 10:44:11|frmMain|DEBUG >> SQL-Server ConnString is [Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd] +2020-04-30 10:44:11|clsDatabase|DEBUG >> ReturnDatatable Command: select * from TBEMLP_CONFIG +2020-04-30 10:44:11|clsDatabase|DEBUG >> ReturnDatatable Command: select * from TBDD_BASECONFIG +2020-04-30 10:44:11|clsDatabase|DEBUG >> Database initialized +2020-04-30 10:44:11|clsDatabase|DEBUG >> ReturnDatatable Command: select * from TBEMLP_CONFIG +2020-04-30 10:44:11|clsDatabase|DEBUG >> ReturnDatatable Command: select * from TBDD_BASECONFIG +2020-04-30 10:44:11|clsDatabase|DEBUG >> Database initialized +2020-04-30 10:44:11|frmMain|DEBUG >> AppConfig is located at: [E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.exe.Config] +2020-04-30 10:44:11|clsWindream_allgemein|DEBUG >> sDD-VMP01-APS01 diff --git a/App/CONFIG_APP/bin/Debug/Log/2020-06-26-Email-Profiler - Config-Debug.log b/App/CONFIG_APP/bin/Debug/Log/2020-06-26-Email-Profiler - Config-Debug.log new file mode 100644 index 0000000..3be60cc --- /dev/null +++ b/App/CONFIG_APP/bin/Debug/Log/2020-06-26-Email-Profiler - Config-Debug.log @@ -0,0 +1,16 @@ +2020-06-26 15:04:56.3023|frmMain|DEBUG >> InitDatabase(frmMain.vb:160) -> SQL-Server ConnString is [Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd] +2020-06-26 15:04:56.4878|clsDatabase|DEBUG >> Return_Datatable(clsDatabase.vb:59) -> ReturnDatatable Command: select * from TBEMLP_CONFIG +2020-06-26 15:04:56.5138|clsDatabase|DEBUG >> Return_Datatable(clsDatabase.vb:59) -> ReturnDatatable Command: select * from TBDD_BASECONFIG +2020-06-26 15:04:56.5138|clsDatabase|DEBUG >> Init(clsDatabase.vb:38) -> Database initialized +2020-06-26 15:04:56.5138|clsDatabase|DEBUG >> Return_Datatable(clsDatabase.vb:59) -> ReturnDatatable Command: select * from TBEMLP_CONFIG +2020-06-26 15:04:56.5218|clsDatabase|DEBUG >> Return_Datatable(clsDatabase.vb:59) -> ReturnDatatable Command: select * from TBDD_BASECONFIG +2020-06-26 15:04:56.5218|clsDatabase|DEBUG >> Init(clsDatabase.vb:38) -> Database initialized +2020-06-26 15:04:56.5218|frmMain|DEBUG >> frmMain_Load(frmMain.vb:41) -> AppConfig is located at: [E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\bin\Debug\CONFIG_APP.exe.Config] +2020-06-26 15:04:56.9788|clsWindream_allgemein|DEBUG >> GetCurrentServer(clsWindream_allgemein.vb:317) -> sDD-VMP01-APS01 +2020-06-26 15:04:57.4947|clsWindream_allgemein|DEBUG >> GetCurrentServer(clsWindream_allgemein.vb:317) -> sDD-VMP01-APS01 +2020-06-26 15:04:57.4947|clsWindream_allgemein|DEBUG >> Init(clsWindream_allgemein.vb:97) -> windream-Server: 'sDD-VMP01-APS01' +2020-06-26 15:04:57.4947|clsWindream_allgemein|DEBUG >> Init(clsWindream_allgemein.vb:98) -> windream-UserName: 'DD-GAN.LOCAL.DIGITALDATA.WORKS\SchreiberM' +2020-06-26 15:04:57.5367|clsWindream_allgemein|DEBUG >> Init(clsWindream_allgemein.vb:132) -> Alles OK - Erfolgreich angemeldet und Session aufgebaut +2020-06-26 15:04:57.5407|clsDatabase|DEBUG >> Return_Datatable(clsDatabase.vb:59) -> ReturnDatatable Command: select * from TBEMLP_CONFIG +2020-06-26 15:04:57.5407|clsDatabase|DEBUG >> Return_Datatable(clsDatabase.vb:59) -> ReturnDatatable Command: select * from TBDD_BASECONFIG +2020-06-26 15:04:57.5407|clsDatabase|DEBUG >> Init(clsDatabase.vb:38) -> Database initialized diff --git a/App/CONFIG_APP/bin/Debug/Log/IsoftLog.txt b/App/CONFIG_APP/bin/Debug/Log/IsoftLog.txt index 5f0b3db..0e46afc 100644 --- a/App/CONFIG_APP/bin/Debug/Log/IsoftLog.txt +++ b/App/CONFIG_APP/bin/Debug/Log/IsoftLog.txt @@ -1,46 +1,190 @@ * OK [CAPABILITY IMAP4rev1 UIDPLUS CHILDREN NAMESPACE THREAD=ORDEREDSUBJECT THREAD=REFERENCES SORT QUOTA IDLE STARTTLS AUTH=PLAIN] Ready A001 LOGIN "marlonschreiber@arcor.de" "!35398Mnklv=" -A001 OK [CAPABILITY IMAP4rev1 SASL-IR LOGIN-REFERRALS ID ENABLE IDLE SORT SORT=DISPLAY THREAD=REFERENCES THREAD=REFS THREAD=ORDEREDSUBJECT MULTIAPPEND URL-PARTIAL CATENATE UNSELECT CHILDREN NAMESPACE UIDPLUS LIST-EXTENDED I18NLEVEL=1 CONDSTORE QRESYNC ESEARCH ESORT SEARCHRES WITHIN CONTEXT=SEARCH LIST-STATUS BINARY MOVE SNIPPET=FUZZY LITERAL+ NOTIFY SPECIAL-USE QUOTA] Logged in +A001 OK [CAPABILITY IMAP4rev1 SASL-IR LOGIN-REFERRALS ID ENABLE IDLE SORT SORT=DISPLAY THREAD=REFERENCES THREAD=REFS THREAD=ORDEREDSUBJECT MULTIAPPEND URL-PARTIAL CATENATE UNSELECT CHILDREN NAMESPACE UIDPLUS LIST-EXTENDED I18NLEVEL=1 CONDSTORE QRESYNC ESEARCH ESORT SEARCHRES WITHIN CONTEXT=SEARCH LIST-STATUS BINARY MOVE SNIPPET=FUZZY PREVIEW=FUZZY STATUS=SIZE LITERAL+ NOTIFY SPECIAL-USE QUOTA] Logged in A002 SELECT Inbox * FLAGS (\Answered \Flagged \Deleted \Seen \Draft $Forwarded Junk NonJunk) * OK [PERMANENTFLAGS (\Answered \Flagged \Deleted \Seen \Draft $Forwarded Junk NonJunk \*)] Flags permitted. -* 23 EXISTS +* 39 EXISTS * 0 RECENT -* OK [UNSEEN 20] First unseen. +* OK [UNSEEN 9] First unseen. * OK [UIDVALIDITY 1498564748] UIDs valid -* OK [UIDNEXT 13624] Predicted next UID -* OK [HIGHESTMODSEQ 30846] Highest +* OK [UIDNEXT 17277] Predicted next UID +* OK [HIGHESTMODSEQ 37315] Highest A002 OK [READ-WRITE] Select completed (0.003 + 0.000 + 0.002 secs). A003 UID SEARCH ALL -* SEARCH 9127 11721 11724 11727 12735 12934 12986 13093 13399 13437 13476 13478 13482 13511 13523 13529 13600 13603 13606 13618 13621 13622 13623 +* SEARCH 9127 11721 13093 13803 14335 15203 15773 15958 15961 16068 16091 16093 16135 16296 17007 17018 17024 17027 17036 17049 17155 17190 17194 17201 17202 17244 17262 17264 17265 17267 17268 17269 17270 17271 17272 17273 17274 17275 17276 A003 OK Search completed (0.001 + 0.000 secs). -A004 UID FETCH 9127:13623 ENVELOPE +A004 UID SEARCH ALL +* SEARCH 9127 11721 13093 13803 14335 15203 15773 15958 15961 16068 16091 16093 16135 16296 17007 17018 17024 17027 17036 17049 17155 17190 17194 17201 17202 17244 17262 17264 17265 17267 17268 17269 17270 17271 17272 17273 17274 17275 17276 +A004 OK Search completed (0.001 + 0.000 secs). +A005 UID FETCH 9127:17276 ENVELOPE * 1 FETCH (UID 9127 ENVELOPE ("Thu, 10 Jan 2019 13:41:21 +0100" "Orangenpapier" (("Gernot Schreiber" NIL "gernotschreiber" "gmx.de")) (("Gernot Schreiber" NIL "gernotschreiber" "gmx.de")) ((NIL NIL "gernotschreiber" "gmx.de")) (("Marlon Schreiber" NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<000e01d4a8e1$ca768560$5f639020$@gmx.de>")) * 2 FETCH (UID 11721 ENVELOPE ("Tue, 28 May 2019 14:35:30 +0200" "Ihre Gedenkseite auf Gedenkseiten.de" (("Gedenkseiten.de" NIL "info" "gedenkseiten.de")) (("Gedenkseiten.de" NIL "info" "gedenkseiten.de")) (("Gedenkseiten.de" NIL "info" "gedenkseiten.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<20190528123530.C99AA2416024C@h2585045.stratoserver.net>")) -* 3 FETCH (UID 11724 ENVELOPE ("Tue, 28 May 2019 16:06:17 +0200" "=?utf-8?Q?Spenden=C3=BCbergabe?=" (("Nicole Janik" NIL "n.n.janik" "gmx.de")) (("Nicole Janik" NIL "n.n.janik" "gmx.de")) (("Nicole Janik" NIL "n.n.janik" "gmx.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<0C98DE4D-403B-49D0-9200-A4074555D31D@gmx.de>")) -* 4 FETCH (UID 11727 ENVELOPE ("Tue, 28 May 2019 17:38:38 +0200" "Fwd: icons" (("Andreas Widmann" NIL "info" "typograficdesign.de")) (("Andreas Widmann" NIL "info" "typograficdesign.de")) (("Andreas Widmann" NIL "info" "typograficdesign.de")) (("Digital Data - Marlon Schreiber" NIL "m.schreiber" "didalog.de")) (("Marlon Schreiber" NIL "marlonschreiber" "arcor.de")) NIL "<51DDE70C-3F5C-41D9-9219-32BC7A067BFC@bettmer.de>" "<45Cyg50MNNz3S8FJ@vsmx004l.vodafonemail.xion.oxcs.net>")) -* 5 FETCH (UID 12735 ENVELOPE ("Sat, 27 Jul 2019 17:33:10 +0300" NIL ((NIL NIL "sabinekriegel" "aol.com")) ((NIL NIL "sabinekriegel" "aol.com")) ((NIL NIL "sabinekriegel" "aol.com")) ((NIL NIL "gernotschreiber" "gmx.de")("=?UTF-8?B?RWJlcmhhcmQgU2NocmVpYmVy?=" NIL "eberhardschreiber" "web.de")("=?UTF-8?B?TWFybG9uIFNjaHJlaWJlcg==?=" NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<1564237990.914672277@f13.my.com>")) -* 6 FETCH (UID 12934 ENVELOPE ("Sat, 10 Aug 2019 13:06:02 +0200" "FW: Wichtige Infos =?UTF-8?B?ZsO8cg==?= das neue Schuljahr" (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Kneer, Gabriele" NIL "g.kneer" "vereinigte-hagel.de")) NIL "<002901d54eb3$9ccfbc30$d66f3490$@gmx.de>" "<566C5424-F62E-4218-9E58-22DA7F4F067C@gmx.de>")) -* 7 FETCH (UID 12986 ENVELOPE ("Tue, 13 Aug 2019 23:08:03 +0200" "=?utf-8?Q?Re:_K=C3=BCndigung?=" (("Michael Schwesinger" NIL "netschwesi" "googlemail.com")) (("Michael Schwesinger" NIL "netschwesi" "googlemail.com")) (("Michael Schwesinger" NIL "netschwesi" "googlemail.com")) (("Marlon Schreiber" NIL "marlonschreiber" "arcor.de")) NIL NIL "" "")) -* 8 FETCH (UID 13093 ENVELOPE ("Mon, 19 Aug 2019 15:10:01 +0200" "ADticket - Mein Ticketportal - Ihre Bestellung 45344949" (("ADticket - Mein Ticketportal" NIL "tickets" "adticket.de")) (("ADticket - Mein Ticketportal" NIL "tickets" "adticket.de")) (("ADticket - Mein Ticketportal" NIL "tickets" "adticket.de")) (("Marlon Schreiber" NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "")) -* 9 FETCH (UID 13399 ENVELOPE ("Fri, 6 Sep 2019 08:07:06 +0000" "Dinge zum Ausprobieren mit deinem Echo" (("Amazon Echo" NIL "promotion5" "amazon.de")) (("Amazon Echo" NIL "promotion5" "amazon.de")) (("Amazon Echo" NIL "promotion5" "amazon.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<0102016d059cd2ba-06077cc4-ee1e-4c63-a937-bc31d215abb1-000000@eu-west-1.amazonses.com>")) -* 10 FETCH (UID 13437 ENVELOPE ("Mon, 09 Sep 2019 20:06:06 +0200" "Fensterkonfigurator" (("Fenster-Welten-GmbH - Fensterkonfigurator" NIL "service" "fensterwelten24.de")) (("Fenster-Welten-GmbH - Fensterkonfigurator" NIL "service" "fensterwelten24.de")) (("Fenster-Welten-GmbH - Fensterkonfigurator" NIL "service" "fensterwelten24.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<5d76948e75ac497aa79729e3334b7513@konfigurator.polnischefenster24.de>")) -* 11 FETCH (UID 13476 ENVELOPE ("Wed, 11 Sep 2019 14:31:07 +0200" "Holzfenster Angebot 19-10816" (("Jakub Horbatowski | Fenster-Welten-GmbH" NIL "jakub.horbatowski" "fensterwelten24.de")) (("Jakub Horbatowski | Fenster-Welten-GmbH" NIL "jakub.horbatowski" "fensterwelten24.de")) (("Jakub Horbatowski | Fenster-Welten-GmbH" NIL "jakub.horbatowski" "fensterwelten24.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<00ff01d5689c$c9248ba0$5b6da2e0$@fensterwelten24.de>")) -* 12 FETCH (UID 13478 ENVELOPE ("Wed, 11 Sep 2019 16:04:30 +0200" "WG: Fwd: WG: Anfrage Holzfenster - 167495" (("Adriana Kudrynska" NIL "adriana.kudrynska" "cdm-holzfenster.de")) (("Adriana Kudrynska" NIL "adriana.kudrynska" "cdm-holzfenster.de")) (("Adriana Kudrynska" NIL "adriana.kudrynska" "cdm-holzfenster.de")) (("'Marlon Schreiber'" NIL "marlonschreiber" "arcor.de")) NIL NIL "<3403085e-da52-4800-2b32-d82e27c714bb@cdm-okna.pl>" "<017d01d568a9$d51a9af0$7f4fd0d0$@cdm-holzfenster.de>")) -* 13 FETCH (UID 13482 ENVELOPE ("Wed, 11 Sep 2019 18:37:24 +0000 (UTC)" "Reiseplanungen teils verfestigt, teils vage" (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<2088004648.6024204.1568227044569@mail.yahoo.com>")) -* 14 FETCH (UID 13511 ENVELOPE ("Fri, 13 Sep 2019 08:16:39 +0000" "Frag Alexa" (("Amazon Echo" NIL "promotion5" "amazon.de")) (("Amazon Echo" NIL "promotion5" "amazon.de")) (("Amazon Echo" NIL "promotion5" "amazon.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<0102016d29b21250-25cb9bb4-f459-4f28-a14e-bde42171cdea-000000@eu-west-1.amazonses.com>")) -* 15 FETCH (UID 13523 ENVELOPE ("Fri, 13 Sep 2019 18:52:25 +0000 (UTC)" "Re: Reiseplanungen teils verfestigt, teils vage" (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL "<11878a0d-d204-4c47-9916-ae61ea3d03ff@arcor.de>" "<903305688.7076751.1568400745236@mail.yahoo.com>")) -* 16 FETCH (UID 13529 ENVELOPE ("Sat, 14 Sep 2019 13:41:50 +0000 (UTC)" "Re: Hommage" (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL "<9c45b037-4b03-4669-b941-1e48cb6740d4@arcor.de>" "<581752544.7324819.1568468510694@mail.yahoo.com>")) -* 17 FETCH (UID 13600 ENVELOPE ("Thu, 19 Sep 2019 09:32:03 +0000 (UTC)" "Re: Meine bevorstehende Deutschland-Visite -- heutiger Vorschlag" (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) ((NIL NIL "gernotschreiber" "gmx.de")(NIL NIL "eberhardschreiber" "web.de")(NIL NIL "marlonschreiber" "arcor.de")) NIL NIL "<001901d56c66$0a765990$1f630cb0$@gmx.de>" "<2121436838.9578775.1568885523589@mail.yahoo.com>")) -* 18 FETCH (UID 13603 ENVELOPE ("Thu, 19 Sep 2019 17:46:46 +0200" {87} -=?UTF-8?Q?Ventano_Fenster_=2F_T=C3=BCren_190919=2DB2_Schreiber_Angebot?= =?UTF-8?Q?_1?= (("=?UTF-8?Q?Michael_B=C3=BChrmann?=" NIL "mib" "ventano-fenster.de")) (("=?UTF-8?Q?Michael_B=C3=BChrmann?=" NIL "mib" "ventano-fenster.de")) (("=?UTF-8?Q?Michael_B=C3=BChrmann?=" NIL "mib" "ventano-fenster.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "")) -* 19 FETCH (UID 13606 ENVELOPE ("Thu, 19 Sep 2019 16:27:52 +0000 (UTC)" {81} -Fwd: Meine bevorstehende Deutschland-Visite -- heutiger Vorschlag -- Ebis Antwort (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) (("Gotz Schreiber" NIL "gotzschreiber" "aol.com")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<1258518203.9785907.1568910472761@mail.yahoo.com>")) -* 20 FETCH (UID 13618 ENVELOPE ("Fri, 20 Sep 2019 08:04:20 +0000" "Dinge zum Ausprobieren mit deinem Echo" (("Amazon Echo" NIL "promotion5" "amazon.de")) (("Amazon Echo" NIL "promotion5" "amazon.de")) (("Amazon Echo" NIL "promotion5" "amazon.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<0102016d4db35300-0ea0d83b-94fb-436a-848f-9fec5fc5c774-000000@eu-west-1.amazonses.com>")) -* 21 FETCH (UID 13621 ENVELOPE ("Fri, 20 Sep 2019 09:57:10 +0000" {119} -=?utf-8?Q?=F0=9F=91=89_=F0=9F=91=89?= marlonschreiber@arcor.de, The answer is yes =?utf-8?Q?=F0=9F=91=87_=F0=9F=91=87?= (("Sarah W." NIL "info" "gmimediamail.com")) ((NIL NIL "support" "emd.gmimediamail.com")) (("Sarah W." NIL "7digit" "yopmail.com")) (("marlonschreiber@arcor.de" NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<0c02caf54cabafb553e365d1906e2a35@gmimediamail.com>")) -* 22 FETCH (UID 13622 ENVELOPE ("Fri, 20 Sep 2019 11:21:30 +0000" {105} -=?UTF-8?B?QmxpdHpzY2huZWxsIGR1cmNoIGplZGUgS2Fzcw==?= =?UTF-8?B?ZSDigJMgbWl0IFBheVBhbCBpbiBHb29nbGUgUGF5?= (("PayPal" NIL "paypal" "mail.paypal.de")) (("PayPal" NIL "paypal" "mail.paypal.de")) (("noreply@mail.paypal.de" NIL "noreply-HP2v40000016d4e67d35fb59c8ef4bbcfd118146" "mail.paypal.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "")) -* 23 FETCH (UID 13623 ENVELOPE ("Fri, 20 Sep 2019 06:55:41 -0500" "Schreiberfamilie Web Site: Aktualisierungen, 20. September 2019" (("MyHeritage Updates" NIL "notify" "myheritage.com")) (("MyHeritage Updates" NIL "notify" "myheritage.com")) ((NIL NIL "gernotschreiber" "gmx.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<97ca993ac978bc2f0294d40479ca362d@localhost.localdomain>")) -A004 OK Fetch completed (0.002 + 0.000 + 0.001 secs). -A005 UID FETCH 9127 RFC822 +* 3 FETCH (UID 13093 ENVELOPE ("Mon, 19 Aug 2019 15:10:01 +0200" "ADticket - Mein Ticketportal - Ihre Bestellung 45344949" (("ADticket - Mein Ticketportal" NIL "tickets" "adticket.de")) (("ADticket - Mein Ticketportal" NIL "tickets" "adticket.de")) (("ADticket - Mein Ticketportal" NIL "tickets" "adticket.de")) (("Marlon Schreiber" NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "")) +* 4 FETCH (UID 13803 ENVELOPE ("Tue, 01 Oct 2019 18:39:17 +0200" "Ihre Prosite Rechnung Prosite-5000172862-1019" (("Prosite Buchhaltung" NIL "buchhaltung" "prosite.de")) (("Prosite Buchhaltung" NIL "buchhaltung" "prosite.de")) (("Prosite Buchhaltung" NIL "buchhaltung" "prosite.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<5d9381359394446d9fbd1600c0a8c002@coreadmin.speedbone.de>")) +* 5 FETCH (UID 14335 ENVELOPE ("Fri, 8 Nov 2019 12:27:09 +0000" "AW: Ausverkaufter Artikel 851400 - Brisket" (("Vanessa Pieper" NIL "vanessapieper" "albersfood.de")) (("Vanessa Pieper" NIL "vanessapieper" "albersfood.de")) (("Vanessa Pieper" NIL "vanessapieper" "albersfood.de")) (("marlonschreiber@arcor.de" NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<1bde1d201e384e548e9c33ee1eb81af3@MX01.albersdus.local>")) +* 6 FETCH (UID 15203 ENVELOPE ("Sat, 4 Jan 2020 20:30:08 +0100" "Wg: Jo szorakozast!" (("Nora Schreiber" NIL "nowid" "gmx.net")) (("Nora Schreiber" NIL "nowid" "gmx.net")) (("Nora Schreiber" NIL "nowid" "gmx.net")) (("Marlon" NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "")) +* 7 FETCH (UID 15773 ENVELOPE ("10 Feb 2020 11:33:01 +0100" "Ihre Ticketbestellung (DTS-HT)" (("DERTICKETSERVICE" NIL "order" "derticketservice.de")) (("DERTICKETSERVICE" NIL "order" "derticketservice.de")) (("DERTICKETSERVICE" NIL "order" "derticketservice.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<1581330782.48GMgK75hwzGmTX@mail.derticketservice.de>")) +* 8 FETCH (UID 15958 ENVELOPE ("Fri, 21 Feb 2020 17:05:38 +0100" "=?utf-8?Q?Vielen=20Dank=20f=C3=BCr=20Ihre=20Newsletter-Anmeldung?=" (("HEISO 1870" NIL "kundenservice" "heiso-1870.de")) (("HEISO 1870" NIL "kundenservice" "heiso-1870.de")) (("HEISO 1870" NIL "kundenservice" "heiso-1870.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<20200221160538.28933140AFF@heiso.aix-cloud.de>")) +* 9 FETCH (UID 15961 ENVELOPE ("Fri, 21 Feb 2020 20:06:12 +0000" "=?utf-8?Q?Vielen=20Dank=20f=C3=BCr=20Ihre=20Newsletter=20Anmeldung?=" (("=?utf-8?Q?HEISO=201870?=" NIL "kundenservice" "heiso-1870.de")) (("=?utf-8?Q?HEISO=201870?=" NIL "kundenservice" "heiso-1870.de")) (("=?utf-8?Q?HEISO=201870?=" NIL "kundenservice" "heiso-1870.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<718e1ec32ce770e3d0609633b.1928942146.20200221200607.ad4ff32923.d6eb0e23@mail211.suw12.mcsv.net>")) +* 10 FETCH (UID 16068 ENVELOPE ("Fri, 28 Feb 2020 13:06:03 +0100" "Ticket #153391: Blacklist" (("Speedbone Support" NIL "noreply" "intern.speedbone.de")) (("Speedbone Support" NIL "noreply" "intern.speedbone.de")) (("Speedbone Support" NIL "noreply" "intern.speedbone.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<5e59022b1e484b959d714d0bc0a8c002@coreadmin.speedbone.de>")) +* 11 FETCH (UID 16091 ENVELOPE ("Sat, 29 Feb 2020 15:31:22 +0000" "=?UTF-8?B?SWhyZSBSw7xja3NlbmR1bmdzw7xiZXJzaWNodA==?=" (("rueckgabe@amazon.de" NIL "rueckgabe" "amazon.de")) (("rueckgabe@amazon.de" NIL "rueckgabe" "amazon.de")) (("rueckgabe@amazon.de" NIL "rueckgabe" "amazon.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<010201709192d029-0f3eb811-bf1f-4f46-8903-9b8a89d06ae6-000000@eu-west-1.amazonses.com>")) +* 12 FETCH (UID 16093 ENVELOPE ("Sat, 29 Feb 2020 16:52:33 +0100" "Re: MOB Skateboards Webshop Kontaktformular" (("PHILIPP SCHMIDT I MOSAIC" NIL "pschmidt" "mosaic-sales.com")) (("PHILIPP SCHMIDT I MOSAIC" NIL "pschmidt" "mosaic-sales.com")) (("PHILIPP SCHMIDT I MOSAIC" NIL "pschmidt" "mosaic-sales.com")) ((NIL NIL "marlonschreiber" "arcor.de")) (("Tim Willumat I MOSAIC" NIL "twillumat" "mosaic-sales.com")("MOB Skateboards Webshop" NIL "info" "mosaic-sales.com")) NIL "" "<45CA24CE-6090-4ADE-883D-412276B82D39@mosaic-sales.com>")) +* 13 FETCH (UID 16135 ENVELOPE ("Mon, 2 Mar 2020 16:31:20 +0100 (CET)" "Mein ELSTER: Aktivierung Ihres Benutzerkontos" ((NIL NIL "portal" "elster.de")) ((NIL NIL "portal" "elster.de")) ((NIL NIL "portal" "elster.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<1082422146.1430499.1583163080931@ecmprd01.cs1.elster.de>")) +* 14 FETCH (UID 16296 ENVELOPE ("Mon, 9 Mar 2020 12:53:49 +0100" "AW: Ferien 2020 in Suedwestfrankreich -- BITTE BEACHTEN" (("Antje Schreiber" NIL "antje-schreiber" "web.de")) (("Antje Schreiber" NIL "antje-schreiber" "web.de")) (("Antje Schreiber" NIL "antje-schreiber" "web.de")) (("'Jan-Philipp Rudolph'" NIL "rudolph.jp" "gmail.com")("'Kirstin Schreiber'" NIL "kirstin_schreiber" "hotmail.com")) (("'Julian Schwenkglenks'" NIL "julian-schwenkglenks" "gmx.de")("'Marlon Schreiber'" NIL "marlonschreiber" "arcor.de")(NIL NIL "wiebke.schreiber" "web.de")("=?utf-8?Q?'Herr_Schreiber_G=C3=B6tz'?=" NIL "gotzschreiber" "aol.com")(NIL NIL "nowid" "gmx.net")(NIL NIL "christian.haverkamp" "web.de")(NIL NIL "zimmermannch" "arcor.de")(NIL NIL "arno_schwenkglenks" "web.de")) NIL "<7C141B45-DDE0-46D0-898E-D7126A55CDB3@gmail.com>" "<002001d5f609$65cc8b20$3165a160$@web.de>")) +* 15 FETCH (UID 17007 ENVELOPE ("Fri, 17 Apr 2020 05:15:13 +0000" "Dinge zum Ausprobieren mit deinem Echo" (("Amazon Alexa" NIL "promotion5" "amazon.de")) (("Amazon Alexa" NIL "promotion5" "amazon.de")) (("Amazon Alexa" NIL "promotion5" "amazon.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<01020171868ff504-8246a8c8-8d08-4485-a796-787a9b2f0aed-000000@eu-west-1.amazonses.com>")) +* 16 FETCH (UID 17018 ENVELOPE ("Fri, 17 Apr 2020 14:21:10 +0200" "Re: Musikwunsch" (("12 Finger Dan" NIL "dan" "say-say.de")) (("12 Finger Dan" NIL "dan" "say-say.de")) (("12 Finger Dan" NIL "dan" "say-say.de")) (("Marlon Schreiber" NIL "marlonschreiber" "arcor.de")) NIL NIL "" "<439392B1-CA1B-4DBD-A4D7-ADE45FE78775@say-say.de>")) +* 17 FETCH (UID 17024 ENVELOPE ("Fri, 17 Apr 2020 19:44:17 +0200" "Re: Musikwunsch" (("12 Finger Dan" NIL "dan" "say-say.de")) (("12 Finger Dan" NIL "dan" "say-say.de")) (("12 Finger Dan" NIL "dan" "say-say.de")) (("Marlon Schreiber" NIL "marlonschreiber" "arcor.de")) NIL NIL "<02a65c12-2614-4b3c-a185-b31060e2622e@arcor.de>" "<8B1648BD-3F15-4D3C-88CB-F50A562389FD@say-say.de>")) +* 18 FETCH (UID 17027 ENVELOPE ("Sat, 18 Apr 2020 00:19:47 +0200" {69} +Re: Ramex - okiennice z drewna, okucia do okiennic - "[your-subject]" (("Ramex Okiennice Drewniane" NIL "ramex" "okiennicezdrewna.pl")) (("Ramex Okiennice Drewniane" NIL "ramex" "okiennicezdrewna.pl")) (("Ramex Okiennice Drewniane" NIL "ramex" "okiennicezdrewna.pl")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL "<1642ceb3dc0b0646a5f56228d250c735@www.klappladen-polen.com>" "<8A87B5EE165B47FCAF404BDEA55F52A7@Marian>")) +* 19 FETCH (UID 17036 ENVELOPE ("Sat, 18 Apr 2020 17:36:09 +0200" "FW: Elternbrief" (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Kneer, Gabriele" NIL "g.kneer" "vereinigte-hagel.de")) NIL NIL "<002501d61589$83727eb0$8a577c10$@gmx.de>" "<2D3B0BDF-0A04-4130-9F26-1F2F0036A8F0@gmx.de>")) +* 20 FETCH (UID 17049 ENVELOPE ("Sun, 19 Apr 2020 14:39:19 +0200" {88} +=?UTF-8?B?w5xidW5nc21hdGVyaWFsaWVu?= =?UTF-8?B?IGbDvHI=?= =?UTF-8?B?IG7DpGNoc3Rl?= Woche (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) NIL NIL NIL "<7DD7BFD2-B50A-48F5-8E76-6733CE65BD2B@gmx.de>")) +* 21 FETCH (UID 17155 ENVELOPE ("Fri, 24 Apr 2020 19:33:32 +0200" "Re: Musikwunsch" (("12 Finger Dan" NIL "dan" "say-say.de")) (("12 Finger Dan" NIL "dan" "say-say.de")) (("12 Finger Dan" NIL "dan" "say-say.de")) (("Marlon Schreiber" NIL "marlonschreiber" "arcor.de")) NIL NIL "<45fc9895-1416-4d64-952a-f4a86ef80abf@arcor.de>" "<314D0A71-9CC6-4E41-A1C6-9C1AB4C04723@say-say.de>")) +* 22 FETCH (UID 17190 ENVELOPE ("Sun, 26 Apr 2020 10:39:41 +0200" {19} +Link High Intensity (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) NIL NIL NIL NIL "<5918F910-6BC3-45F5-BA65-8392453B1292@tsv-allendorf-lahn.net>")) +* 23 FETCH (UID 17194 ENVELOPE ("Sun, 26 Apr 2020 13:26:25 +0200" "Nachricht von Frau =?UTF-8?B?WsO2cmI=?=" (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Diane Manz" NIL "diane.manz" "gmx.de")) (("Gabi" NIL "g.kneer" "vereinigte-hagel.de")) NIL NIL "<58AD72C6-AF37-45F9-9A68-E2C93F94BE37@gmx.de>")) +* 24 FETCH (UID 17201 ENVELOPE ("Sun, 26 Apr 2020 18:51:40 +0200" "Link High Intensitiy" (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<84F7D610-C176-46D7-80B1-662BAD60BC9C@tsv-allendorf-lahn.net>")) +* 25 FETCH (UID 17202 ENVELOPE ("Sun, 26 Apr 2020 21:23:03 +0200" {69} +Re: Ramex - okiennice z drewna, okucia do okiennic - "[your-subject]" (("Ramex Klappladen" NIL "ramex" "klappladen-polen.com")) (("Ramex Klappladen" NIL "ramex" "klappladen-polen.com")) (("Ramex Klappladen" NIL "ramex" "klappladen-polen.com")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL "<39463858fe504b4eb2186b51ca97bb78@www.klappladen-polen.com>" "<3A53695CBFA5406FA78CFCB9BBFFBA8B@Marian>")) +* 26 FETCH (UID 17244 ENVELOPE ("Tue, 28 Apr 2020 17:24:21 +0200" {52} +Link zur Progressiven Muskelentspannung um 18.00 Uhr (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) NIL NIL NIL NIL "")) +* 27 FETCH (UID 17262 ENVELOPE ("Wed, 29 Apr 2020 17:13:58 +0200" "Link Zumba, 19.00 Uhr" (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) NIL NIL NIL NIL "<2E8B7FA7-CFE7-47DE-99F0-A41CD21E28C6@tsv-allendorf-lahn.net>")) +* 28 FETCH (UID 17264 ENVELOPE ("Wed, 29 Apr 2020 10:08:06 -0600" "Fashion in deinen Lieblingsfarben!" (("brands4friends" NIL "verkaufsaktion" "mail.brands4friends.de")) (("brands4friends" NIL "verkaufsaktion" "mail.brands4friends.de")) (("brands4friends" NIL "reply-fec11179706c077d-50_HTML-6006741-7233512-73" "mail.brands4friends.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "")) +* 29 FETCH (UID 17265 ENVELOPE ("Wed, 29 Apr 2020 18:47:41 +0000" {173} +=?UTF-8?B?Qml00YFv0ZZuIGfRlmJ0INCGaG5lbiBk0ZZlIE3DtmdsadGBaGvQtdGWdCwgc2ljaCB6dQ==?= =?UTF-8?B?IHN00LBi0ZZs0ZZz0ZbQtXLQtW4uIFNpZWjQtSAiRGnQtSBIw7ZobNC1IGTQtXIgTMO2d2VuIg==?= (("Casino news" NIL "rogekibarubana17" "gmail.com")) (("Casino news" NIL "rogekibarubana17" "gmail.com")) (("Casino news" NIL "rogekibarubana17" "gmail.com")) ((NIL NIL "undisclosed-recipients" NIL)(NIL NIL NIL NIL)) NIL NIL NIL "")) +* 30 FETCH (UID 17267 ENVELOPE ("Thu, 30 Apr 2020 04:04:42 +0000" "=?utf-8?Q?Diese=20Hosen=20rocken=F0=9F=98=8E=C2=A0Schau=20dir=20unsere=20GPx=2DSerie=20an=21?=" (("=?utf-8?Q?RevolutionRace?=" NIL "newsletter" "revolutionrace.de")) (("=?utf-8?Q?RevolutionRace?=" NIL "newsletter" "revolutionrace.de")) (("=?utf-8?Q?RevolutionRace?=" NIL "newsletter" "revolutionrace.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "")) +* 31 FETCH (UID 17268 ENVELOPE ("Wed, 29 Apr 2020 23:07:16 -0600" "=?UTF-8?Q?Marc_O=C2=B4Polo,_UGG,_True_Prodigy_uvm.?=" (("brands4friends" NIL "verkaufsaktion" "mail.brands4friends.de")) (("brands4friends" NIL "verkaufsaktion" "mail.brands4friends.de")) (("brands4friends" NIL "reply-fec111797365077b-50_HTML-6006741-7233512-73" "mail.brands4friends.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<2845cb71-90ee-40b7-a4c9-5544183a9671@atl1s07mta863.xt.local>")) +* 32 FETCH (UID 17269 ENVELOPE ("Wed, 29 Apr 2020 23:09:41 -0600" {97} +=?UTF-8?B?8J+SpSBOdXIgaGV1dGU6IGJpcyB6dSAtNzUlIGltIEVuZCBvZiBN?= =?UTF-8?B?b250aCBTYWxlISDwn5Kl?= (("BestSecret SALE" NIL "noreply" "fashionnews.bestsecret.com")) (("BestSecret SALE" NIL "noreply" "fashionnews.bestsecret.com")) (("BestSecret" NIL "reply-24523-26_HTML-16623409-10966174-2919" "email.bestsecret.com")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<0af625f4-f3e3-4454-bc56-ecf0c4526e21@ind1s01mta1076.xt.local>")) +* 33 FETCH (UID 17270 ENVELOPE ("Thu, 30 Apr 2020 05:56:04 +0000" "Einzigartig wie nie. Sehr, sehr profitabel." (("Swen Fisher" NIL "info" "icarus10.com")) ((NIL NIL "sender" "icarus10.com")) (("Swen Fisher" NIL "info" "icarus10.com")) (("marlonschreiber@arcor.de" NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "4c4f53f51151ae97ec453dc89e716c07@icarus10.com")) +* 34 FETCH (UID 17271 ENVELOPE ("Thu, 30 Apr 2020 08:32:25 +0200" {118} +40% #STAYHEALTHY Rabatt + =?ISO-8859-1?Q?zus=E4tzlich=20Gratisartikel=20g?= =?ISO-8859-1?Q?eschenkt!=20Verl=E4ngert!?= (("SC24.com AG" NIL "info" "reply.sc24.com")) (("SC24.com AG" NIL "info" "reply.sc24.com")) (("SC24.com AG" NIL "info" "reply.sc24.com")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<0.1.1D.AB5.1D61EB91CE3FA0A.0@pmta40182.emarsys.net>")) +* 35 FETCH (UID 17272 ENVELOPE ("Thu, 30 Apr 2020 09:23:31 +0200" "Link Beine intensiv 11.00 Uhr" (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) (("=?utf-8?Q?Kerstin_Lef=C3=A8vre?=" NIL "vorstand" "tsv-allendorf-lahn.net")) NIL NIL NIL NIL "<30611C7A-6C20-42E8-AF04-BB1D4988CC0E@tsv-allendorf-lahn.net>")) +* 36 FETCH (UID 17273 ENVELOPE ("Thu, 30 Apr 2020 05:09:18 +0000" {82} +Wer =?utf-8?Q?h=C3=A4tte?= gedacht, dass es SO einfach =?utf-8?Q?w=C3=A4re=2E=2E?= (("Dan Gerlitz" NIL "info" "hobbyticket.com")) (("Dan Gerlitz" NIL "info" "hobbyticket.com")) (("Dan Gerlitz" NIL "info" "hobbyticket.com")) (("marlonschreiber@arcor.de" NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "")) +* 37 FETCH (UID 17274 ENVELOPE ("Thu, 30 Apr 2020 10:03:59 +0200 (CEST)" "Handelsblatt Online Eilmeldung" (("Handelsblatt Eilmeldung" NIL "eilmeldung" "mailservice.handelsblatt.com")) (("Handelsblatt Eilmeldung" NIL "eilmeldung" "mailservice.handelsblatt.com")) ((NIL NIL "kundenservice" "handelsblattgroup.com")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "")) +* 38 FETCH (UID 17275 ENVELOPE ("Thu, 30 Apr 2020 03:14:32 -0600" {134} +=?UTF-8?Q?Anz=C3=BCge_&_Sakkos_|_Polos,_Shirts_&_more_|_Essential?= =?UTF-8?Q?s_f=C3=BCr's_Zuhause_|_Leder-_und_=C3=9Cbergangsjacken?= (("BestSecret NEW" NIL "noreply" "email.bestsecret.com")) (("BestSecret NEW" NIL "noreply" "email.bestsecret.com")) (("BestSecret" NIL "reply-24536-34_HTML-16623409-10966174-3447" "email.bestsecret.com")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "")) +* 39 FETCH (UID 17276 ENVELOPE ("Thu, 30 Apr 2020 03:04:01 -0600" "=?UTF-8?B?8J+MniBFbnRzcGFubnRlIFNvbW1lcm1vZGUg8J+Mng==?=" (("brands4friends" NIL "verkaufsaktion" "mail.brands4friends.de")) (("brands4friends" NIL "verkaufsaktion" "mail.brands4friends.de")) (("brands4friends" NIL "reply-febb117973660275-747_HTML-6006741-7233512-843" "mail.brands4friends.de")) ((NIL NIL "marlonschreiber" "arcor.de")) NIL NIL NIL "<7f8294d2-854d-4275-a44b-aa701706f07b@atl1s07mta864.xt.local>")) +A005 OK Fetch completed (0.003 + 0.000 + 0.002 secs). +A006 UID FETCH 9127 RFC822 +A007 UID FETCH 11721 RFC822 +A008 UID STORE 11721 +FLAGS (\SEEN) +A008 OK Store completed (0.001 + 0.000 secs). +A009 UID FETCH 13093 RFC822 +A010 UID STORE 13093 +FLAGS (\SEEN) +A010 OK Store completed (0.001 + 0.000 secs). +A011 UID FETCH 13803 RFC822 +A012 UID STORE 13803 +FLAGS (\SEEN) +A012 OK Store completed (0.001 + 0.000 secs). +A013 UID FETCH 14335 RFC822 +A014 UID STORE 14335 +FLAGS (\SEEN) +A014 OK Store completed (0.001 + 0.000 secs). +A015 UID FETCH 15203 RFC822 +A016 UID STORE 15203 +FLAGS (\SEEN) +A016 OK Store completed (0.001 + 0.000 secs). +A017 UID FETCH 15773 RFC822 +A018 UID STORE 15773 +FLAGS (\SEEN) +A018 OK Store completed (0.001 + 0.000 secs). +A019 UID FETCH 15958 RFC822 +A020 UID STORE 15958 +FLAGS (\SEEN) +A020 OK Store completed (0.001 + 0.000 secs). +A021 UID FETCH 15961 RFC822 +A022 UID STORE 15961 +FLAGS (\SEEN) +A022 OK Store completed (0.001 + 0.000 secs). +A023 UID FETCH 16068 RFC822 +A024 UID STORE 16068 +FLAGS (\SEEN) +A024 OK Store completed (0.001 + 0.000 secs). +A025 UID FETCH 16091 RFC822 +A026 UID STORE 16091 +FLAGS (\SEEN) +A026 OK Store completed (0.001 + 0.000 secs). +A027 UID FETCH 16093 RFC822 +A028 UID STORE 16093 +FLAGS (\SEEN) +A028 OK Store completed (0.001 + 0.000 secs). +A029 UID FETCH 16135 RFC822 +A030 UID STORE 16135 +FLAGS (\SEEN) +A030 OK Store completed (0.001 + 0.000 secs). +A031 UID FETCH 16296 RFC822 +A032 UID STORE 16296 +FLAGS (\SEEN) +A032 OK Store completed (0.001 + 0.000 secs). +A033 UID FETCH 17007 RFC822 +A034 UID STORE 17007 +FLAGS (\SEEN) +A034 OK Store completed (0.001 + 0.000 secs). +A035 UID FETCH 17018 RFC822 +A036 UID STORE 17018 +FLAGS (\SEEN) +A036 OK Store completed (0.001 + 0.000 secs). +A037 UID FETCH 17024 RFC822 +A038 UID STORE 17024 +FLAGS (\SEEN) +A038 OK Store completed (0.001 + 0.000 secs). +A039 UID FETCH 17027 RFC822 +A040 UID STORE 17027 +FLAGS (\SEEN) +A040 OK Store completed (0.001 + 0.000 secs). +A041 UID FETCH 17036 RFC822 +A042 UID STORE 17036 +FLAGS (\SEEN) +A042 OK Store completed (0.001 + 0.000 secs). +A043 UID FETCH 17049 RFC822 +A044 UID STORE 17049 +FLAGS (\SEEN) +A044 OK Store completed (0.001 + 0.000 secs). +A045 UID FETCH 17155 RFC822 +A046 UID STORE 17155 +FLAGS (\SEEN) +A046 OK Store completed (0.001 + 0.000 secs). +A047 UID FETCH 17190 RFC822 +A048 UID STORE 17190 +FLAGS (\SEEN) +A048 OK Store completed (0.001 + 0.000 secs). +A049 UID FETCH 17194 RFC822 +A050 UID STORE 17194 +FLAGS (\SEEN) +A050 OK Store completed (0.001 + 0.000 secs). +A051 UID FETCH 17201 RFC822 +A052 UID STORE 17201 +FLAGS (\SEEN) +A052 OK Store completed (0.001 + 0.000 secs). +A053 UID FETCH 17202 RFC822 +A054 UID STORE 17202 +FLAGS (\SEEN) +A054 OK Store completed (0.001 + 0.000 secs). +A055 UID FETCH 17244 RFC822 +A056 UID STORE 17244 +FLAGS (\SEEN) +A056 OK Store completed (0.001 + 0.000 secs). +A057 UID FETCH 17262 RFC822 +A058 UID STORE 17262 +FLAGS (\SEEN) +A058 OK Store completed (0.001 + 0.000 secs). +A059 UID FETCH 17264 RFC822 +A060 UID STORE 17264 +FLAGS (\SEEN) +A060 OK Store completed (0.001 + 0.000 secs). +A061 UID FETCH 17265 RFC822 +A062 UID STORE 17265 +FLAGS (\SEEN) +A062 OK Store completed (0.001 + 0.000 secs). +A063 UID FETCH 17267 RFC822 +A064 UID STORE 17267 +FLAGS (\SEEN) +A064 OK Store completed (0.001 + 0.000 secs). +A065 UID FETCH 17268 RFC822 +A066 UID STORE 17268 +FLAGS (\SEEN) +A066 OK Store completed (0.001 + 0.000 secs). +A067 UID FETCH 17269 RFC822 +A068 UID STORE 17269 +FLAGS (\SEEN) +A068 OK Store completed (0.001 + 0.000 secs). +A069 UID FETCH 17270 RFC822 +A070 UID STORE 17270 +FLAGS (\SEEN) +A070 OK Store completed (0.001 + 0.000 secs). +A071 UID FETCH 17271 RFC822 +A072 UID STORE 17271 +FLAGS (\SEEN) +A072 OK Store completed (0.001 + 0.000 secs). +A073 UID FETCH 17272 RFC822 +A074 UID STORE 17272 +FLAGS (\SEEN) +A074 OK Store completed (0.001 + 0.000 secs). +A075 UID FETCH 17273 RFC822 +A076 UID STORE 17273 +FLAGS (\SEEN) +A076 OK Store completed (0.001 + 0.000 secs). +A077 UID FETCH 17274 RFC822 +A078 UID STORE 17274 +FLAGS (\SEEN) +A078 OK Store completed (0.001 + 0.000 secs). +A079 UID FETCH 17275 RFC822 +A080 UID STORE 17275 +FLAGS (\SEEN) +A080 OK Store completed (0.001 + 0.000 secs). +A081 UID FETCH 17276 RFC822 +A082 UID STORE 17276 +FLAGS (\SEEN) +A082 OK Store completed (0.001 + 0.000 secs). +A083 EXPUNGE +A083 OK Expunge completed (0.001 + 0.000 secs). +A084 LOGOUT +* BYE Logging out +A084 OK Logout completed (0.001 + 0.000 secs). diff --git a/App/CONFIG_APP/frmMain.Designer.vb b/App/CONFIG_APP/frmMain.Designer.vb index 9e9b925..54e07da 100644 --- a/App/CONFIG_APP/frmMain.Designer.vb +++ b/App/CONFIG_APP/frmMain.Designer.vb @@ -80,6 +80,7 @@ Partial Class frmMain Dim AUTH_TYPELabel As System.Windows.Forms.Label Dim Label11 As System.Windows.Forms.Label Dim PORT_INLabel As System.Windows.Forms.Label + Dim ARCHIVE_FOLDERLabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tslblstatus = New System.Windows.Forms.ToolStripStatusLabel() @@ -90,6 +91,7 @@ Partial Class frmMain Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.Profilkonfiguration = New System.Windows.Forms.TabPage() + Me.TextBox1 = New System.Windows.Forms.TextBox() Me.GridControl4 = New DevExpress.XtraGrid.GridControl() Me.TBEMLP_POLL_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.MyDataset = New CONFIG_APP.MyDataset() @@ -278,13 +280,13 @@ Partial Class frmMain Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripButton34 = New System.Windows.Forms.ToolStripButton() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.ARCHIVE_FOLDERTextBox = New System.Windows.Forms.TextBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Button7 = New System.Windows.Forms.Button() Me.chkS22 = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.chkDeleteMail = New System.Windows.Forms.CheckBox() - Me.txtMoveTo = New System.Windows.Forms.TextBox() - Me.Label15 = New System.Windows.Forms.Label() Me.txtInboxname = New System.Windows.Forms.TextBox() Me.Button6 = New System.Windows.Forms.Button() Me.PORT_INTextBox = New System.Windows.Forms.TextBox() @@ -348,7 +350,7 @@ Partial Class frmMain Me.TBEMLP_HISTORYTableAdapter = New CONFIG_APP.MyDatasetTableAdapters.TBEMLP_HISTORYTableAdapter() Me.TBEMLP_CONFIGTableAdapter = New CONFIG_APP.MyDatasetTableAdapters.TBEMLP_CONFIGTableAdapter() Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog() - Me.Button7 = New System.Windows.Forms.Button() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) GUIDLabel = New System.Windows.Forms.Label() PROFILE_NAMELabel = New System.Windows.Forms.Label() POLL_TYPELabel = New System.Windows.Forms.Label() @@ -406,6 +408,7 @@ Partial Class frmMain AUTH_TYPELabel = New System.Windows.Forms.Label() Label11 = New System.Windows.Forms.Label() PORT_INLabel = New System.Windows.Forms.Label() + ARCHIVE_FOLDERLabel = New System.Windows.Forms.Label() Me.StatusStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout() Me.TabControl1.SuspendLayout() @@ -975,6 +978,15 @@ Partial Class frmMain PORT_INLabel.TabIndex = 70 PORT_INLabel.Text = "Port in:" ' + 'ARCHIVE_FOLDERLabel + ' + ARCHIVE_FOLDERLabel.AutoSize = True + ARCHIVE_FOLDERLabel.Location = New System.Drawing.Point(828, 148) + ARCHIVE_FOLDERLabel.Name = "ARCHIVE_FOLDERLabel" + ARCHIVE_FOLDERLabel.Size = New System.Drawing.Size(80, 13) + ARCHIVE_FOLDERLabel.TabIndex = 76 + ARCHIVE_FOLDERLabel.Text = "Archive Folder:" + ' 'StatusStrip1 ' Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblstatus, Me.tslblRefresh}) @@ -1044,6 +1056,7 @@ Partial Class frmMain 'Profilkonfiguration ' Me.Profilkonfiguration.AutoScroll = True + Me.Profilkonfiguration.Controls.Add(Me.TextBox1) Me.Profilkonfiguration.Controls.Add(Me.GridControl4) Me.Profilkonfiguration.Controls.Add(Me.ComboBox1) Me.Profilkonfiguration.Controls.Add(Me.BindingNavigator1) @@ -1074,6 +1087,13 @@ Partial Class frmMain Me.Profilkonfiguration.Text = "Profilkonfiguration" Me.Profilkonfiguration.UseVisualStyleBackColor = True ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(267, 111) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(100, 21) + Me.TextBox1.TabIndex = 34 + ' 'GridControl4 ' Me.GridControl4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ @@ -1218,6 +1238,7 @@ Partial Class frmMain ' Me.BindingNavigatorPositionItem.AccessibleName = "Position" Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) Me.BindingNavigatorPositionItem.Text = "0" @@ -1644,7 +1665,7 @@ Partial Class frmMain Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton5 Me.BindingNavigator2.Name = "BindingNavigator2" Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox1 - Me.BindingNavigator2.Size = New System.Drawing.Size(964, 25) + Me.BindingNavigator2.Size = New System.Drawing.Size(1177, 25) Me.BindingNavigator2.TabIndex = 32 Me.BindingNavigator2.Text = "BindingNavigator2" ' @@ -1700,6 +1721,7 @@ Partial Class frmMain ' Me.ToolStripTextBox1.AccessibleName = "Position" Me.ToolStripTextBox1.AutoSize = False + Me.ToolStripTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripTextBox1.Name = "ToolStripTextBox1" Me.ToolStripTextBox1.Size = New System.Drawing.Size(50, 23) Me.ToolStripTextBox1.Text = "0" @@ -1758,7 +1780,7 @@ Partial Class frmMain Me.GridControl1.Location = New System.Drawing.Point(0, 0) Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(241, 328) + Me.GridControl1.Size = New System.Drawing.Size(241, 311) Me.GridControl1.TabIndex = 0 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' @@ -1955,6 +1977,7 @@ Partial Class frmMain ' Me.ToolStripTextBox2.AccessibleName = "Position" Me.ToolStripTextBox2.AutoSize = False + Me.ToolStripTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripTextBox2.Name = "ToolStripTextBox2" Me.ToolStripTextBox2.Size = New System.Drawing.Size(50, 23) Me.ToolStripTextBox2.Text = "0" @@ -2291,6 +2314,7 @@ Partial Class frmMain ' Me.ToolStripTextBox3.AccessibleName = "Position" Me.ToolStripTextBox3.AutoSize = False + Me.ToolStripTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripTextBox3.Name = "ToolStripTextBox3" Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 23) Me.ToolStripTextBox3.Text = "0" @@ -2860,6 +2884,7 @@ Partial Class frmMain ' Me.ToolStripTextBox4.AccessibleName = "Position" Me.ToolStripTextBox4.AutoSize = False + Me.ToolStripTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripTextBox4.Name = "ToolStripTextBox4" Me.ToolStripTextBox4.Size = New System.Drawing.Size(50, 23) Me.ToolStripTextBox4.Text = "0" @@ -2904,6 +2929,8 @@ Partial Class frmMain ' 'TabPage3 ' + Me.TabPage3.Controls.Add(ARCHIVE_FOLDERLabel) + Me.TabPage3.Controls.Add(Me.ARCHIVE_FOLDERTextBox) Me.TabPage3.Controls.Add(Me.GroupBox5) Me.TabPage3.Controls.Add(Me.Button6) Me.TabPage3.Controls.Add(PORT_INLabel) @@ -2949,6 +2976,14 @@ Partial Class frmMain Me.TabPage3.Text = "EMail-Konto Konfiguration" Me.TabPage3.UseVisualStyleBackColor = True ' + 'ARCHIVE_FOLDERTextBox + ' + Me.ARCHIVE_FOLDERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ARCHIVE_FOLDER", True)) + Me.ARCHIVE_FOLDERTextBox.Location = New System.Drawing.Point(831, 164) + Me.ARCHIVE_FOLDERTextBox.Name = "ARCHIVE_FOLDERTextBox" + Me.ARCHIVE_FOLDERTextBox.Size = New System.Drawing.Size(189, 21) + Me.ARCHIVE_FOLDERTextBox.TabIndex = 77 + ' 'GroupBox5 ' Me.GroupBox5.Controls.Add(Me.Button7) @@ -2956,8 +2991,6 @@ Partial Class frmMain Me.GroupBox5.Controls.Add(Me.Label16) Me.GroupBox5.Controls.Add(Me.Button1) Me.GroupBox5.Controls.Add(Me.chkDeleteMail) - Me.GroupBox5.Controls.Add(Me.txtMoveTo) - Me.GroupBox5.Controls.Add(Me.Label15) Me.GroupBox5.Controls.Add(Me.txtInboxname) Me.GroupBox5.Location = New System.Drawing.Point(374, 319) Me.GroupBox5.Name = "GroupBox5" @@ -2966,6 +2999,15 @@ Partial Class frmMain Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "IMAP Test" ' + 'Button7 + ' + Me.Button7.Location = New System.Drawing.Point(416, 20) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(140, 59) + Me.Button7.TabIndex = 77 + Me.Button7.Text = "Set to SEEN (Email must contain ""seen"" in Subject" + Me.Button7.UseVisualStyleBackColor = True + ' 'chkS22 ' Me.chkS22.AutoSize = True @@ -3007,22 +3049,6 @@ Partial Class frmMain Me.chkDeleteMail.Text = "Lösche Mail" Me.chkDeleteMail.UseVisualStyleBackColor = True ' - 'txtMoveTo - ' - Me.txtMoveTo.Location = New System.Drawing.Point(203, 58) - Me.txtMoveTo.Name = "txtMoveTo" - Me.txtMoveTo.Size = New System.Drawing.Size(200, 21) - Me.txtMoveTo.TabIndex = 73 - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(152, 61) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(49, 13) - Me.Label15.TabIndex = 74 - Me.Label15.Text = "MoveTo:" - ' 'txtInboxname ' Me.txtInboxname.Location = New System.Drawing.Point(203, 31) @@ -3347,6 +3373,7 @@ Partial Class frmMain ' Me.BindingNavigatorPositionItem1.AccessibleName = "Position" Me.BindingNavigatorPositionItem1.AutoSize = False + Me.BindingNavigatorPositionItem1.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" Me.BindingNavigatorPositionItem1.Size = New System.Drawing.Size(50, 23) Me.BindingNavigatorPositionItem1.Text = "0" @@ -3578,14 +3605,10 @@ Partial Class frmMain ' Me.TBEMLP_CONFIGTableAdapter.ClearBeforeFill = True ' - 'Button7 + 'ContextMenuStrip1 ' - Me.Button7.Location = New System.Drawing.Point(416, 20) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(140, 59) - Me.Button7.TabIndex = 77 - Me.Button7.Text = "Set to SEEN (Email must contain ""seen"" in Subject" - Me.Button7.UseVisualStyleBackColor = True + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' 'frmMain ' @@ -3939,11 +3962,12 @@ Partial Class frmMain Friend WithEvents PORT_INTextBox As TextBox Friend WithEvents lblDownloadPath As Label Friend WithEvents Button6 As Button - Friend WithEvents Label15 As Label - Friend WithEvents txtMoveTo As TextBox Friend WithEvents GroupBox5 As GroupBox Friend WithEvents Label16 As Label Friend WithEvents chkDeleteMail As CheckBox Friend WithEvents chkS22 As CheckBox Friend WithEvents Button7 As Button + Friend WithEvents TextBox1 As TextBox + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents ARCHIVE_FOLDERTextBox As TextBox End Class diff --git a/App/CONFIG_APP/frmMain.resx b/App/CONFIG_APP/frmMain.resx index 353f785..d2d3d0c 100644 --- a/App/CONFIG_APP/frmMain.resx +++ b/App/CONFIG_APP/frmMain.resx @@ -288,6 +288,9 @@ False + + False + 17, 17 @@ -304,82 +307,6 @@ nRg7L/M8pziOWYAVBu8cdfSxgesVgiCgzWZLz8fTMABHHnX0cbOCMQfIRVFEt/LOgChNU14lJ7/UScxA AQ3Y6Xg4saCqHryCI/+TwTf8uQFu2SUS6FdwhSroObCNwI056As1UKFq0JNooZtEz3sBIUpmhmW9bzQA AAAASUVORK5CYII= - - - - 1209, 17 - - - 1297, 95 - - - 777, 95 - - - 1079, 134 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== @@ -388,9 +315,6 @@ 404, 17 - - 404, 17 - 777, 95 @@ -461,18 +385,6 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - 17, 56 - - - 1175, 56 - - - 17, 95 - - - 171, 56 - 171, 56 @@ -546,9 +458,6 @@ 691, 56 - - 691, 56 - 1175, 56 @@ -619,9 +528,6 @@ 171, 95 - - 171, 95 - 17, 95 @@ -692,9 +598,6 @@ 467, 134 - - 467, 134 - 17, 134 @@ -739,6 +642,73 @@ kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 1079, 134 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== @@ -771,8 +741,11 @@ 908, 134 + + 1233, 134 + - 70 + 253 diff --git a/App/CONFIG_APP/frmMain.vb b/App/CONFIG_APP/frmMain.vb index 1bf1f37..9fdd3a6 100644 --- a/App/CONFIG_APP/frmMain.vb +++ b/App/CONFIG_APP/frmMain.vb @@ -20,6 +20,7 @@ Public Class frmMain Private _RunwithLocalemail As Boolean = False Private _Localemail As String Private _SQLServerConString As String + Private _Worklist As List(Of String) Public Sub New() @@ -31,19 +32,22 @@ Public Class frmMain End Sub Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load - 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBEMLP_CONFIG". Sie können sie bei Bedarf verschieben oder entfernen. + Try + MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, My.Application.Info.CompanyName, My.Application.Info.ProductName) + Logger = MyLogger.GetLogger() + MyLogger.Debug = True + InitDatabase() + ToolStripProgressBar1.Visible = False + Logger.Debug($"AppConfig is located at: [{AppDomain.CurrentDomain.SetupInformation.ConfigurationFile}]") + _windream = New clsWindream_allgemein(MyLogger) + _email = New clsEmail(MyLogger) + _emailIMAP = New clsEmailIMAP(MyLogger, _SQLServerConString) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in FormLoad") + End Try + - 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBEMLP_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen. - ToolStripProgressBar1.Visible = False - MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), "Log") - Logger = MyLogger.GetLogger() - MyLogger.Debug = True - Logger.Debug($"AppConfig is located at: [{AppDomain.CurrentDomain.SetupInformation.ConfigurationFile}]") - _windream = New clsWindream_allgemein(MyLogger) - _email = New clsEmail(MyLogger) - _emailIMAP = New clsEmailIMAP(MyLogger) - InitDatabase() If Set_ConnectionStrings() Then Load_AllData() Check_Steps() @@ -144,32 +148,38 @@ Public Class frmMain End Sub Public Function InitDatabase() - Dim dbResult As Boolean - tslblstatus.BackColor = Color.Transparent - If My.Settings.MyConnectionString <> String.Empty Then - _SQLServerConString = My.Settings.MyConnectionString - If _SQLServerConString.Contains("LOGIT_DMS") Then - _SQLServerConString.Replace("LOGIT_DMS", "DD_ECM") - Logger.Debug($"Replaced wrong Database in ConString ... ") + Try + Dim dbResult As Boolean + tslblstatus.BackColor = Color.Transparent + If My.Settings.MyConnectionString <> String.Empty Then + _SQLServerConString = My.Settings.MyConnectionString + If _SQLServerConString.Contains("LOGIT_DMS") Then + _SQLServerConString.Replace("LOGIT_DMS", "DD_ECM") + Logger.Debug($"Replaced wrong Database in ConString ... ") + End If + Logger.Debug($"SQL-Server ConnString is [{_SQLServerConString}]") + + + _database = New clsDatabase(MyLogger, My.Settings.MyConnectionString) + dbResult = _database.Init(My.Settings.MyConnectionString) + Else + MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information) + + TabControl1.SelectedIndex = 1 + tslblstatus.Text = "Please add a connection!" + tslblstatus.BackColor = Color.Red End If - Logger.Debug($"SQL-Server ConnString is [{_SQLServerConString}]") - - - _database = New clsDatabase(MyLogger, My.Settings.MyConnectionString) - dbResult = _database.Init(My.Settings.MyConnectionString) - Else - MsgBox("No Databaseconnection configured. (First Start or Appdata not accessible)" & vbNewLine & "Basic-Config will be loaded.", MsgBoxStyle.Information) - - TabControl1.SelectedIndex = 1 - tslblstatus.Text = "Please add a connection!" - tslblstatus.BackColor = Color.Red - End If - If dbResult = False Then - MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical) + If dbResult = False Then + MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical) + Return False + Else + Return True + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Init Database:") Return False - Else - Return True - End If + End Try + End Function Private Sub cmbDatenbank_Click(sender As Object, e As EventArgs) Handles cmbDatenbank.Click @@ -269,9 +279,15 @@ Public Class frmMain MyLogger.Debug = True Dim _work As New clsWorker(MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW) _work.Start_WorkingProfiles() + Else - Dim _work As New clsWorker(MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, _Localemail) - _work.Start_WorkingProfiles(True) + For Each ofile As String In _Worklist + _Localemail = ofile + Logger.Info($"## Manual working on file {ofile} ... ") + Dim _work As New clsWorker(MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, _Localemail) + _work.Start_WorkingProfiles(True) + Next + End If Try 'Delete all Tempfiles @@ -334,10 +350,15 @@ Public Class frmMain openFileDialog1.Filter = "Emails (*.eml)|*.eml|All files (*.*)|*.*" openFileDialog1.FilterIndex = 2 openFileDialog1.RestoreDirectory = True + openFileDialog1.Multiselect = True If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then + For Each oFile As String In openFileDialog1.FileNames + Dim oList As New List(Of String) + oList.Add(oFile) + _Worklist = oList + Next _RunwithLocalemail = True - _Localemail = openFileDialog1.FileName tsbtnRunLocalMail.Enabled = False tsbtnRunProfiles.Enabled = False ToolStripProgressBar1.Visible = True @@ -692,9 +713,11 @@ Public Class frmMain 'Logger.Debug($"PWis !{PWPlain}35452dd=") Dim oResult If chkS22.Checked Then - oResult = _emailIMAP.FetchIMAPMessages(EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, txtInboxname.Text, True, chkDeleteMail.Checked, txtMoveTo.Text) + oResult = _emailIMAP.FetchIMAPMessages(EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, txtInboxname.Text, True, chkDeleteMail.Checked, + ARCHIVE_FOLDERTextBox.Text) Else - oResult = _emailIMAP.FetchIMAPMessagesIsoft(EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, txtInboxname.Text, True, chkDeleteMail.Checked, txtMoveTo.Text, Path.Combine(My.Application.Info.DirectoryPath, "Log") & "\IsoftLog.txt") + oResult = _emailIMAP.FetchIMAPMessagesIsoft(EMAIL_SMTPTextBox.Text, PORT_INTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, txtInboxname.Text, + ARCHIVE_FOLDERTextBox.Text, Path.Combine(My.Application.Info.DirectoryPath, "Log") & "\IsoftLog.txt", True, chkDeleteMail.Checked) End If @@ -875,4 +898,9 @@ Public Class frmMain MsgBox("Test Successful!", MsgBoxStyle.Information) End If End Sub + + Private Sub COMMENTTextBox_Leave(sender As Object, e As EventArgs) Handles COMMENTTextBox.Leave + Dim separatorIndex = COMMENTTextBox.Text.IndexOf(".") + TextBox1.Text = COMMENTTextBox.Text.Substring(separatorIndex, COMMENTTextBox.Text.Length - 1) + End Sub End Class diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.exe b/App/CONFIG_APP/obj/Debug/CONFIG_APP.exe index b5374be..6d4b954 100644 Binary files a/App/CONFIG_APP/obj/Debug/CONFIG_APP.exe and b/App/CONFIG_APP/obj/Debug/CONFIG_APP.exe differ diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.pdb b/App/CONFIG_APP/obj/Debug/CONFIG_APP.pdb index 3a4c9d1..b128ded 100644 Binary files a/App/CONFIG_APP/obj/Debug/CONFIG_APP.pdb and b/App/CONFIG_APP/obj/Debug/CONFIG_APP.pdb differ diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.CoreCompileInputs.cache b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.CoreCompileInputs.cache deleted file mode 100644 index 3c452d2..0000000 --- a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.CoreCompileInputs.cache +++ /dev/null @@ -1 +0,0 @@ -089985a82f862c462782eef3bd09083ddec4bb21 diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.FileListAbsolute.txt b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.FileListAbsolute.txt index 33d7fc6..d8139d7 100644 --- a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.FileListAbsolute.txt +++ b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.FileListAbsolute.txt @@ -110,7 +110,6 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.Resources.resources E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.vbproj.GenerateResource.cache E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.exe.licenses -E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.vbproj.CoreCompileInputs.cache E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.vbproj.CopyComplete E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.exe E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\CONFIG_APP\obj\Debug\CONFIG_APP.xml diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.GenerateResource.cache b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.GenerateResource.cache index b23f98f..fded963 100644 Binary files a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.GenerateResource.cache and b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbproj.GenerateResource.cache differ diff --git a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbprojAssemblyReference.cache b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbprojAssemblyReference.cache index a3ef3c2..cb0227a 100644 Binary files a/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbprojAssemblyReference.cache and b/App/CONFIG_APP/obj/Debug/CONFIG_APP.vbprojAssemblyReference.cache differ diff --git a/App/CONFIG_APP/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/App/CONFIG_APP/obj/Debug/DesignTimeResolveAssemblyReferences.cache index cf2784b..ec7e2a7 100644 Binary files a/App/CONFIG_APP/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/App/CONFIG_APP/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/App/CONFIG_APP/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/App/CONFIG_APP/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache index 61c6f09..5c22182 100644 Binary files a/App/CONFIG_APP/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/App/CONFIG_APP/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/App/CONFIG_APP/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/App/CONFIG_APP/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll index 444f2a7..27a0888 100644 Binary files a/App/CONFIG_APP/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll and b/App/CONFIG_APP/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/App/CONFIG_APP/obj/Debug/TempPE/MyDataset.Designer.vb.dll b/App/CONFIG_APP/obj/Debug/TempPE/MyDataset.Designer.vb.dll index 0f5f753..92bd5e9 100644 Binary files a/App/CONFIG_APP/obj/Debug/TempPE/MyDataset.Designer.vb.dll and b/App/CONFIG_APP/obj/Debug/TempPE/MyDataset.Designer.vb.dll differ diff --git a/App/DigitalData.EMLProfiler/ClassCurrent.vb b/App/DigitalData.EMLProfiler/ClassCurrent.vb index f595d21..c7c0f87 100644 --- a/App/DigitalData.EMLProfiler/ClassCurrent.vb +++ b/App/DigitalData.EMLProfiler/ClassCurrent.vb @@ -2,7 +2,6 @@ Imports WINDREAMLib Public Class ClassCurrent - Public Shared LOG_ERRORS_ONLY As Boolean = True Public Shared WM_CON_STRING As String Public Shared WM_DRIVE As String Public Shared TIMER_INTERVALL As Integer = 5 @@ -25,11 +24,12 @@ Public Class ClassCurrent Public Shared MAIL_USER_PW As String = "" Public Shared MAIL_PORT As Integer = 995 Public Shared MAIL_INBOX_NAME As String = "Inbox" + Public Shared MAIL_ARCHIVE_FOLDER As String = "" Public Shared DT_POLL_PROCESS As DataTable Public Shared DT_STEPS As DataTable Public Shared DT_INDEXING_STEPS As DataTable - Public Shared MAIL_LIST As New ArrayList() + Public Shared CURRENT_WORKMAIL_LIST As New ArrayList() Public Shared CURRENT_MAIL_MESSAGE As Message Public Shared CURRENT_TEMP_MAIL_PATH As String diff --git a/App/DigitalData.EMLProfiler/My Project/AssemblyInfo.vb b/App/DigitalData.EMLProfiler/My Project/AssemblyInfo.vb index 65dc075..008b8d1 100644 --- a/App/DigitalData.EMLProfiler/My Project/AssemblyInfo.vb +++ b/App/DigitalData.EMLProfiler/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.dll b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.dll index 565073c..c43f36b 100644 Binary files a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.dll and b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.dll differ diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.pdb b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.pdb index e3830f6..2831dde 100644 Binary files a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.pdb and b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.EMLProfiler.pdb differ diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.dll b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.dll index 8d562b9..70affe1 100644 Binary files a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.dll and b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.dll differ diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.pdb b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.pdb index 4414fc4..28c1227 100644 Binary files a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.pdb and b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.pdb differ diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.xml b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.xml index 62d8b0d..8826f42 100644 --- a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.xml +++ b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Database.xml @@ -206,26 +206,11 @@ DigitalData.Modules.Database sqlcommand for datatable (select XYZ from TableORView) Returns a datatable - - - Executes the passed sql-statement - - the sql statement - Returns true if properly executed, else false - - - - - Executes the passed sql-statement as Scalar - - the sql statement - Returns true if properly executed, else false - Executes the passed sql-statement in asyncmode - the sql statement + the sql statement Optional Timeout diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.dll b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.dll index 4592e24..567bf2f 100644 Binary files a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.dll and b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.dll differ diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.pdb b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.pdb index c3a5b3b..89b6035 100644 Binary files a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.pdb and b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.pdb differ diff --git a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.xml b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.xml index 214eb9d..faca96a 100644 --- a/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.xml +++ b/App/DigitalData.EMLProfiler/bin/Debug/DigitalData.Modules.Logging.xml @@ -34,33 +34,6 @@ DigitalData.Modules.Logging NLog, >= 4.5.8 - - logPath, PathType - The basepath to write logs to. Can be AppData, CurrentDirectory or CustomPath. - - - AppData: writes to local application data directory - - CurrentDirectory: writes to `Log` directory relative to the current directory - - CustomPath: writes to custom path specified in `customLogPath` - - customLogPath, String (optional) - If `logPath` is set to custom, this defines the custom logPath. - - suffix, String (optional) - If set to anything other than Nothing, extends the logfile name with this suffix. - - - LogFile, String (readonly) - Returns the full path of the default log file. - - LogPath, String (readonly) - Returns the path to the log directory. - - LogFactory, NLog.LogFactory (readonly) - Returns the LogFactory that is used to create the Logger object - - Debug, Boolean - Determines if the debug log should be written. - Imports DigitalData.Modules.Logging @@ -132,13 +105,15 @@ DigitalData.Modules.Logging A list of log messages - + Initializes a new LogConfig object with a logpath and optinally a filename-suffix. - The basepath to write logs to. Can be AppData, CurrentDirectory or CustomPath. - If `logPath` is set to custom, this defines the custom logPath. - If set to anything other than Nothing, extends the logfile name with this suffix. + The basepath to write logs to. Can be AppData, CurrentDirectory or CustomPath. + If `logPath` is set to custom, this defines the custom logPath. + If set to anything other than Nothing, extends the logfile name with this suffix. + CompanyName is used to construct log-path in when LogPath is set to PathType:AppData + ProductName is used to construct log-path in when LogPath is set to PathType:AppData diff --git a/App/DigitalData.EMLProfiler/clsDatabase.vb b/App/DigitalData.EMLProfiler/clsDatabase.vb index b603e9d..9c3b783 100644 --- a/App/DigitalData.EMLProfiler/clsDatabase.vb +++ b/App/DigitalData.EMLProfiler/clsDatabase.vb @@ -21,7 +21,6 @@ Public Class clsDatabase DTCONFIG = Return_Datatable("select * from TBEMLP_CONFIG") If Not IsNothing(DTCONFIG) Then If DTCONFIG.Rows.Count = 1 Then - LOG_ERRORS_ONLY = DTCONFIG.Rows(0).Item("LOG_ERRORS_ONLY") PATH_TEMP = DTCONFIG.Rows(0).Item("PATH_EMAIL_TEMP") PATH_ERROR = DTCONFIG.Rows(0).Item("PATH_EMAIL_ERRORS") MAIL_BODY_FONT = DTCONFIG.Rows(0).Item("FONT_BODY") @@ -29,7 +28,6 @@ Public Class clsDatabase TIMER_INTERVALL = DTCONFIG.Rows(0).Item("CHECK_INTERVALL_MINUTES") End If End If - MyLogger.Debug = Not LOG_ERRORS_ONLY DT_ECM_BASE_CONFIG = Return_Datatable("select * from TBDD_BASECONFIG") Try WM_DRIVE = DT_ECM_BASE_CONFIG.Rows(0).Item("WM_DRIVE") diff --git a/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb b/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb index 5325db3..4601eab 100644 --- a/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb +++ b/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb @@ -7,75 +7,91 @@ Imports AE Imports System.Net Imports System.Reflection Imports System.IO +Imports DigitalData.Modules.Database Public Class clsEmailIMAP Private Shared Logger As DigitalData.Modules.Logging.Logger Private Shared LogConfig As DigitalData.Modules.Logging.LogConfig - - Sub New(LogConf As LogConfig) + Private _DB_MSSQL As clsDatabase + Sub New(LogConf As LogConfig, ECMConnectionString As String) LogConfig = LogConf Logger = LogConf.GetLogger + _DB_MSSQL = New clsDatabase(LogConf, ECMConnectionString) End Sub 'Private Shared Sub OnWriteLog(ByVal sender As Object, ByVal e As WriteLogEventArgs) ' Logger.Info(e.Log) 'End Sub - Public Function FetchIMAPMessages(Server As String, Port As Integer, Username As String, Password As String, Inbox As String, Optional IsTest As Boolean = False, Optional DeleteinTest As Boolean = False, Optional MoveMailTo As String = "") As Boolean - Logger.Debug("Connecting to Server {0}:{1} with user {2}", Server, Port, Username) - + Public Function FetchIMAPMessages(Server As String, Port As Integer, Username As String, Password As String, pInbox As String, Optional IsTest As Boolean = False, Optional DeleteinTest As Boolean = False, Optional MoveMailTo As String = "") As Boolean + Logger.Debug("S22 Connecting to Server {0}:{1} with user {2}", Server, Port, Username) Try - Logger.Debug("Connecting...") + Logger.Debug("S22 Connecting...") Using oClient As New S22.Imap.ImapClient(Server, Port, Username, Password, S22.Imap.AuthMethod.Login, True) If Not oClient.Authed Then - Logger.Warn("Connected to server but authentication failed.") + Logger.Warn("S22 Connected to server but authentication failed.") Return False End If - Logger.Debug("Connection successful") - Logger.Debug($"Fetching unseen MessageIds from Inbox: {Inbox}") - Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, Inbox) - - Logger.Debug("Found {0} messages", oMessageIds.Count) - Logger.Debug("Fetching messages...") + Logger.Debug($"S22 Fetching unseen MessageIds from Inbox: {pInbox}") + Dim oMessageIds As IEnumerable(Of UInteger) = oClient.Search(S22.Imap.SearchCondition.Unseen, pInbox) + Logger.Debug("S22 Found {0} messages", oMessageIds.Count) + Logger.Debug("S22 Fetching messages...") + Dim oMessageCountRegular As Integer = 0 + Dim oMessageCountWorked As Integer = 0 For Each oMessageId As UInteger In oMessageIds Logger.Debug($"Checking message") - Dim oMessage = oClient.GetMessage(oMessageId, False, Inbox) + Dim oMessage = oClient.GetMessage(oMessageId, False, pInbox) Logger.Debug($"Checking message Subject: {oMessage.Subject}, From: {oMessage.From}") Dim oTempPath = Path.GetTempFileName() Dim oResult = WriteMessageToFile(oMessage, oTempPath) - Dim oCount As Integer = 0 - Dim oMsg As New Message(oTempPath) - oCount &= 1 - If IsTest = False Then - MAIL_LIST.Add(oMsg) - Else - Logger.Debug($"IMAP-Test Message#: {oCount} - Msgsubject is: {oMsg.Subject} - MsgMessageID is: {oMsg.MessageID}") - Logger.Debug($"message correctly fetched. Mail has been downloaded to {oTempPath}") + Dim oMsg As New Message(oTempPath) + Dim oMessageREFGUID = oMsg.MessageID + oMessageREFGUID = oMessageREFGUID.Replace(">", "").Replace("<", "") + Dim oCHECKSQL = $"SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('{oMessageREFGUID}')" + Dim oCHECKDT As DataTable = _DB_MSSQL.Return_Datatable(oCHECKSQL) + If Not IsNothing(oCHECKDT) Then + If oCHECKDT.Rows.Count = 0 Then + oMessageCountRegular += 1 + CURRENT_WORKMAIL_LIST.Add(oMsg) + Else + Logger.Info("S22 Message has already been worked! Skipping!") + Logger.Debug($"Message shall be deleted...") + + oClient.DeleteMessage(oMessageId,) + Logger.Debug($"S22 Message has been deleted!") + Dim oUpd = $"UPDATE TBEMLP_HISTORY SET DATE_DELETED_INBOX = GETDATE() WHERE lower(EMAIL_MSGID) = lower('{oMessageId}')" + _DB_MSSQL.Execute_non_Query(oUpd) + oMessageCountWorked += 1 + End If + If IsTest = True Then + Logger.Debug($"S22 IMAP-Test Message#: {oMessageCountRegular} - Msgsubject is: {oMsg.Subject} - MsgMessageID is: {oMessageREFGUID}") + Logger.Debug($"S22 message correctly fetched. Mail has been downloaded to {oTempPath}") + End If + Try + If DeleteinTest = True Then + Logger.Debug($"Message shall be deleted...") + oClient.DeleteMessage(oMessageId,) + Logger.Debug($"S22 Message has been deleted!") + End If + Catch ex As Exception + Logger.Warn("Message could not be deleted: " & ex.Message) + End Try + If MoveMailTo <> String.Empty Then + Try + Logger.Debug($"Moving to [{MoveMailTo}] is active...") + oClient.MoveMessage(oMessageId, MoveMailTo) + Logger.Debug($"S22 successfully moved!") + Catch ex As Exception + Logger.Warn($"S22 Could not move message to folder [{MoveMailTo}] - Error: {ex.Message}") + End Try + End If + + End If - Try - If DeleteinTest = True Then - Logger.Debug($"Message shall be deleted...") - oClient.DeleteMessage(oMessageId,) - Logger.Debug($"Message has been deleted!") - End If - Catch ex As Exception - Logger.Warn("Message could not be deleted: " & ex.Message) - End Try - - Try - If MoveMailTo <> "" Then - Logger.Debug($"Moving to [{MoveMailTo}] is active...") - oClient.MoveMessage(oMessageId, MoveMailTo) - Logger.Debug($"Successfully moved!") - End If - - Catch ex As Exception - Logger.Warn("Message could not be moved: " & ex.Message) - End Try Try If IsTest = False Then File.Delete(oTempPath) @@ -83,11 +99,35 @@ Public Class clsEmailIMAP Catch ex As Exception Logger.Error(ex) - Logger.Warn("Temp file could not be deleted") + Logger.Warn("S22 Temp file could not be deleted") End Try Next oClient.Expunge() - Logger.Debug("Finished Message-Fetch") + Logger.Debug("S22 Finished Message-Fetch") + If oMessageCountRegular > 0 Or oMessageCountWorked > 0 Then + Logger.Info($"###############################################") + If oMessageCountRegular > 0 Then + Logger.Info($"Found [{oMessageCountRegular.ToString}] regular messages to work on!") + End If + If oMessageCountWorked > 0 Then + Logger.Info($"Found [{oMessageCountWorked.ToString}] worked messages to work on!") + End If + If IsTest = True Then + Dim omsgtext As String + If oMessageCountRegular > 0 Then + omsgtext = $"Found [{oMessageCountRegular.ToString}] regular Messages to work on!" + End If + If oMessageCountWorked > 0 Then + If omsgtext = String.Empty Then + Logger.Info($"Found [{oMessageCountWorked.ToString}] worked messages to work on!") + Else + omsgtext += vbNewLine & $"Found [{oMessageCountWorked.ToString}] worked messages to work on!" + End If + End If + MsgBox(omsgtext) + End If + Logger.Info($"###############################################") + End If End Using Return True Catch ex As Exception @@ -98,7 +138,7 @@ Public Class clsEmailIMAP Private Shared Sub OnWriteLog(ByVal sender As Object, ByVal e As WriteLogEventArgs) Logger.Debug(e.Log) End Sub - Public Function FetchIMAPMessagesIsoft(Server As String, Port As Integer, Username As String, Password As String, Inbox As String, Optional IsTest As Boolean = False, Optional DeleteinTest As Boolean = False, Optional MoveMailTo As String = "", Optional IsoftLog As String = "") + Public Function FetchIMAPMessagesIsoft(Server As String, Port As Integer, Username As String, Password As String, Inbox As String, Optional MoveMailTo As String = "", Optional IsoftLog As String = "", Optional IsTest As Boolean = False, Optional DeleteinTest As Boolean = False) Try Logger.Debug(String.Format("Working on IMAP_COLLECT Independentsoft...")) Dim oClient As New Independentsoft.Email.Imap.ImapClient(Server, Port) @@ -110,7 +150,13 @@ Public Class clsEmailIMAP oClient.EnableSsl = True oClient.ValidateRemoteCertificate = False - oClient.Connect() + Try + oClient.Connect() + Catch ex As Exception + Logger.Warn("Error while oClient.Connec(): " & ex.Message) + Return False + End Try + Try oClient.Login(Username, Password, AuthenticationType.Login) Catch ex As Exception @@ -127,49 +173,88 @@ Public Class clsEmailIMAP oClient.SelectFolder(Inbox) Dim coSearchCriteria As New SearchCriteria() - coSearchCriteria.Unseen = True - Dim oCount As Integer = 0 + coSearchCriteria.All = True + Dim oMessageCountRegular As Integer = 0 + Dim oMessageCountWorked As Integer = 0 Dim oUniqueID As Integer() = oClient.Search(coSearchCriteria) If IsTest = True Then - MsgBox($"{oUniqueID.Count} unseen messages! (oUniqueID.Length: {oUniqueID.Length.ToString})") - Dim oFoundMessages1 As Message() = New Message(oUniqueID.Length - 1) {} - - For i As Integer = 0 To oUniqueID.Length - 1 - oFoundMessages1(i) = oClient.GetMessage(oUniqueID(i)) - MsgBox($"Message {i.ToString} - {oFoundMessages1(i).Subject}...") - Next + MsgBox($"{oUniqueID.Count} messages in Postbox! (oUniqueID.Length: {oUniqueID.Length.ToString})") End If Dim oFoundMessages As Message() = New Message(oUniqueID.Length - 1) {} Dim oEnvelopes As Independentsoft.Email.Imap.Envelope() = oClient.ListMessages() For oCounterEnvelope As Integer = 0 To oEnvelopes.Length - 1 - For oCounterUnseen As Integer = 0 To oUniqueID.Length - 1 - If oEnvelopes(oCounterEnvelope).UniqueID = oUniqueID(oCounterUnseen) Then - Dim oMSG = $"Working on unseen email: UniqueID [{oEnvelopes(oCounterEnvelope).UniqueID}] - Subject[{oEnvelopes(oCounterEnvelope).Subject}] - Date [{oEnvelopes(oCounterEnvelope).Date.ToString}]" - If IsTest = True Then - MsgBox(oMSG) - End If - Logger.Info(oMSG) - Logger.Debug(oMSG) - Dim oMessage As Mime.Message = oClient.GetMessage(oEnvelopes(oCounterEnvelope).UniqueID) - If Not IsNothing(oMessage) Then - oCount += 1 - MAIL_LIST.Add(oMessage) - oClient.Store(oEnvelopes(oCounterEnvelope).UniqueID, "+FLAGS", "SEEN") + For oCounterEmailInPostbox As Integer = 0 To oUniqueID.Length - 1 + If oEnvelopes(oCounterEnvelope).UniqueID = oUniqueID(oCounterEmailInPostbox) Then + Dim oMimeMessage As Mime.Message = oClient.GetMessage(oEnvelopes(oCounterEnvelope).UniqueID) + If Not IsNothing(oMimeMessage) Then + Dim oMessageID = oMimeMessage.MessageID + oMessageID = oMessageID.Replace(">", "").Replace("<", "") + 'oEnvelopes(oCounterEnvelope).UniqueI + Logger.Debug($"Isoft: Working on email: MessageID [{oMessageID}] - Subject[{oEnvelopes(oCounterEnvelope).Subject}] - Date [{oEnvelopes(oCounterEnvelope).Date.ToString}]") + Dim oCHECKSQL = $"SELECT * FROM TBEMLP_HISTORY WHERE lower(EMAIL_MSGID) = lower('{oMessageID}')" + Dim oCHECKDT As DataTable = _DB_MSSQL.Return_Datatable(oCHECKSQL) + If Not IsNothing(oCHECKDT) Then + If oCHECKDT.Rows.Count = 0 Then + Logger.Info($"Isoft: Adding email: MessageID [{oMessageID}] - Subject[{oEnvelopes(oCounterEnvelope).Subject}] - Date [{oEnvelopes(oCounterEnvelope).Date.ToString}]") + oMessageCountRegular += 1 + CURRENT_WORKMAIL_LIST.Add(oMimeMessage) + + Else + Logger.Info($"Isoft: Already existing email with MessageID [{oMessageID}] - Subject[{oEnvelopes(oCounterEnvelope).Subject}] - Date [{oEnvelopes(oCounterEnvelope).Date.ToString}] ") + oMessageCountWorked += 1 + Try + oClient.Delete(oEnvelopes(oCounterEnvelope).UniqueID) + Dim oUpd = $"UPDATE TBEMLP_HISTORY SET DATE_DELETED_INBOX = GETDATE(), COMMENT = 'DELETED MESSAGE FROM INBOX (2ndRun ALREADY WORKED)' WHERE lower(EMAIL_MSGID) = lower('{oMessageID}')" + _DB_MSSQL.Execute_non_Query(oUpd) + Catch ex As Exception + Logger.Warn($"Error deleting/Commentign message due to to already worked: {ex.Message}") + End Try + + End If + oClient.Store(oEnvelopes(oCounterEnvelope).UniqueID, "+FLAGS", "SEEN") + If MoveMailTo <> String.Empty Then + Try + oClient.AddMessage(MoveMailTo, oMimeMessage) + Catch ex As Exception + Logger.Warn($"Isoft: Could not move message to folder [{MoveMailTo}] - Error: {ex.Message}") + End Try + End If + End If + End If End If Next Next oClient.Expunge() oClient.Disconnect() - If oCount > 0 Then - Logger.Debug($"###############################################") - Logger.Debug($"Found [{oCount.ToString}] Messages to work on!") - Logger.Debug($"###############################################") + If oMessageCountRegular > 0 Or oMessageCountWorked > 0 Then + Logger.Info($"###############################################") + If oMessageCountRegular > 0 Then + Logger.Info($"Isoft: Found [{oMessageCountRegular.ToString}] regular messages to work on!") + End If + If oMessageCountWorked > 0 Then + Logger.Info($"Isoft: Found [{oMessageCountWorked.ToString}] worked messages to work on!") + End If + If IsTest = True Then + Dim omsgtext As String + If oMessageCountRegular > 0 Then + omsgtext = $"Isoft: Found [{oMessageCountRegular.ToString}] regular Messages to work on!" + End If + If oMessageCountWorked > 0 Then + If omsgtext = String.Empty Then + Logger.Info($"Isoft: Found [{oMessageCountWorked.ToString}] worked messages to work on!") + Else + omsgtext += vbNewLine & $"Isoft: Found [{oMessageCountWorked.ToString}] worked messages to work on!" + End If + End If + MsgBox(omsgtext) + End If + Logger.Info($"###############################################") End If ' Logger.Debug($"{oCount.ToString} messages will be worked..") - Logger.Debug("IMAP COLLECT Independentsoft finished!") + Logger.Debug("Isoft: IMAP COLLECT Independentsoft finished!") Return True Catch ex As Exception Logger.Error(ex, "Unexpected Error in IMAP COLLECT Independentsoft:") diff --git a/App/DigitalData.EMLProfiler/clsEmail.vb b/App/DigitalData.EMLProfiler/clsEmail.vb index 21b3603..09ee612 100644 --- a/App/DigitalData.EMLProfiler/clsEmail.vb +++ b/App/DigitalData.EMLProfiler/clsEmail.vb @@ -32,14 +32,14 @@ Public Class clsEmail Dim oMessage As Message = oClient.GetMessage(oMessageInfo(i).Index) Dim oMsgId_AlreadyExists As Boolean = False - For Each pulled_msg As Message In MAIL_LIST + For Each pulled_msg As Message In CURRENT_WORKMAIL_LIST If pulled_msg.MessageID = oMessage.MessageID Then oMsgId_AlreadyExists = True End If Next If oMsgId_AlreadyExists = False Then oCOUNT += 1 - MAIL_LIST.Add(oMessage) + CURRENT_WORKMAIL_LIST.Add(oMessage) Logger.Debug(String.Format("Message [{0}] added to working Mail_List", oMessage.Subject)) End If diff --git a/App/DigitalData.EMLProfiler/clsWorkEmail.vb b/App/DigitalData.EMLProfiler/clsWorkEmail.vb index b966279..882363f 100644 --- a/App/DigitalData.EMLProfiler/clsWorkEmail.vb +++ b/App/DigitalData.EMLProfiler/clsWorkEmail.vb @@ -70,7 +70,7 @@ Public Class clsWorkEmail Logger.Info(String.Format("No relation configured for this email - Subject[{0}]", CURRENT_MAIL_SUBJECT)) COMMON_EMAIL_IN() End If - INSERT_HISTORY() + INSERT_HISTORY_MSSQL() End If End If @@ -195,7 +195,7 @@ Public Class clsWorkEmail If Directory.Exists(oTempPath) = False Then Directory.CreateDirectory(oTempPath) Else - Logger.Debug($"oTempPath [{oTempPath}] is already existing!!") + Logger.Debug($"SAVE2TEMP - oTempPath [{oTempPath}] is already existing!!") End If Dim oFileEntries As String() = Directory.GetFiles(oTempPath) ' Process the list of files found in the directory. @@ -266,7 +266,7 @@ Public Class clsWorkEmail CURRENT_MAIL_MESSAGE.Save(cleanPath, True) Logger.Info($"Email saved to ({cleanPath})") Else - Logger.Info("EMail (" & CURRENT_MAIL_MESSAGE.Subject & ") already existing!", False, "RUN_THREAD.COPY_2_HDD") + Logger.Info("COPY2HDD - EMail (" & CURRENT_MAIL_MESSAGE.Subject & ") already existing!", False, "RUN_THREAD.COPY_2_HDD") End If End If @@ -462,29 +462,51 @@ Public Class clsWorkEmail oMSGID = oMSGID.Replace(">", "").Replace("<", "") For Each oAttachment As Attachment In oCurrentMail.GetAttachments Dim oATTFilename = oAttachment.GetFileName.ToString.ToLower - If Not oATTFilename.EndsWith("pdf") Then + Dim oValidExt As Boolean = False + If oATTFilename.EndsWith("pdf") Then + oValidExt = True + ElseIf oATTFilename.EndsWith("xls") Then + oValidExt = True + ElseIf oATTFilename.EndsWith("xlsx") Then + oValidExt = True + ElseIf oATTFilename.EndsWith("doc") Then + oValidExt = True + ElseIf oATTFilename.EndsWith("docx") Then + oValidExt = True + ElseIf oATTFilename.EndsWith("ppt") Then + oValidExt = True + ElseIf oATTFilename.EndsWith("pptx") Then + oValidExt = True + End If + If oValidExt = False Then + Logger.Debug(String.Format("Invalid FileExtension [{0}]", oATTFilename)) Continue For End If - Dim oAttachmentFileString Logger.Debug(String.Format(" Working on Attachment [{0}]", oAttachment.GetFileName)) Try Dim oFilename = oAttachment.GetFileName oFilename = CleanInput(oFilename) + Logger.Debug($"oFilename [{oFilename}]") If oFilename = String.Empty Then oFilename = oAttachment.GetFileName End If oAttachmentFileString = Path.Combine(PATH_TEMP, $"{oMSGID}~{oFilename}") - + Logger.Debug($"oAttachmentFileString [{oAttachmentFileString}]") If System.IO.File.Exists(oAttachmentFileString) = False Then Logger.Debug(String.Format("Trying to save attachment [{0}]", oAttachmentFileString)) - oAttachment.Save(oAttachmentFileString) - Logger.Info(String.Format("Attachment saved to [{0}]", oAttachmentFileString)) - INSERT_HISTORY_FB(oMSGID, oAttachment.GetFileName) - INSERT_HISTORY_MSSQL(oMSGID, oAttachment.GetFileName) + Try + oAttachment.Save(oAttachmentFileString) + Logger.Info(String.Format("Attachment saved to [{0}]", oAttachmentFileString)) + INSERT_HISTORY_FB(oMSGID, oAttachment.GetFileName) + INSERT_HISTORY_ATTMT_MSSQL(oMSGID, oAttachment.GetFileName) + Catch ex As Exception + Logger.Warn($"Error while saving attachment-name: {ex.Message} - AttachmentName: {oAttachmentFileString}") + MessageError = True + End Try Else - Logger.Info("Attachment (" & oAttachmentFileString & ") already existing!", False, "EXTRACT_ATTACHMENTS") + Logger.Info("EXATTMNT - Attachment (" & oAttachmentFileString & ") already existing!", False, "EXTRACT_ATTACHMENTS") End If Catch ex As Exception @@ -530,7 +552,7 @@ Public Class clsWorkEmail End Function - Private Function INSERT_HISTORY() + Private Function INSERT_HISTORY_MSSQL() If MessageError = False Then Dim ins = $"INSERT INTO TBEMLP_HISTORY (WORK_PROCESS,EMAIL_MSGID,EMAIL_SUBJECT,EMAIL_DATE,EMAIL_BODY,EMAIL_SUBSTRING1,EMAIL_SUBSTRING2,EMAIL_FROM) VALUES " & $"('{CURRENT_MAIL_PROCESS_NAME}'," & @@ -542,36 +564,55 @@ Public Class clsWorkEmail $"'{CURRENT_MAIL_BODY_Substr2}'," & $"'{CURRENT_MAIL_FROM}')" _DB_MSSQL.Execute_non_Query(ins) - + Else + Logger.Info("! No INSERT_HISTORY as MessageError = True") End If End Function Private Function INSERT_HISTORY_FB(oGUID As String, ATTMT1 As String) - If MessageError = False Then - Dim ins = $"INSERT INTO TBEDM_EMAIL_PROFILER_HISTORY (WORK_PROCESS,EMAIL_MSGID,EMAIL_FROM,EMAIL_SUBJECT,EMAIL_DATETIME,EMAIL_BODY,EMAIL_SUBSTRING1,EMAIL_SUBSTRING2,EMAIL_ATTMT1) VALUES " & - $"('{CURRENT_MAIL_PROCESS_NAME}'," & - $"'{oGUID}'," & - $"'{CURRENT_MAIL_MESSAGE.From.EmailAddress}'," & - $"'{CURRENT_MAIL_MESSAGE.Subject}'," & - $"'{CURRENT_MAIL_MESSAGE.Date}'," & - $"'{CURRENT_MAIL_BODY_ALL}'," & - $"'{CURRENT_MAIL_BODY_ANSWER1}'," & - $"'{CURRENT_MAIL_BODY_Substr2}'," & - $"'{ATTMT1}')" - _firebird.ExecuteNonQuery(ins) + If IsNothing(_firebird) Then + Logger.Info("INSERT_HISTORY_FB: _firebird is nothing ") + Return False End If + Try + If MessageError = False Then + Dim ins = $"INSERT INTO TBEDM_EMAIL_PROFILER_HISTORY (WORK_PROCESS,EMAIL_MSGID,EMAIL_FROM,EMAIL_SUBJECT,EMAIL_DATETIME,EMAIL_BODY,EMAIL_SUBSTRING1,EMAIL_SUBSTRING2,EMAIL_ATTMT1) VALUES " & + $"('{CURRENT_MAIL_PROCESS_NAME}'," & + $"'{oGUID}'," & + $"'{CURRENT_MAIL_MESSAGE.From.EmailAddress}'," & + $"'{CURRENT_MAIL_MESSAGE.Subject}'," & + $"'{CURRENT_MAIL_MESSAGE.Date}'," & + $"'{CURRENT_MAIL_BODY_ALL}'," & + $"'{CURRENT_MAIL_BODY_ANSWER1}'," & + $"'{CURRENT_MAIL_BODY_Substr2}'," & + $"'{ATTMT1}')" + _firebird.ExecuteNonQuery(ins) + End If + Catch ex As Exception + Logger.Error(ex) + End Try + End Function - Private Function INSERT_HISTORY_MSSQL(oMSGID As String, ATTMT1 As String) - If MessageError = False Then - Dim ins = $"INSERT INTO TBEMLP_HISTORY_ATTACHMENT (WORK_PROCESS,EMAIL_MSGID,EMAIL_FROM,EMAIL_SUBJECT,EMAIL_DATETIME,EMAIL_BODY,EMAIL_ATTMT) VALUES " & - $"('{CURRENT_MAIL_PROCESS_NAME}'," & - $"'{oMSGID}'," & - $"'{CURRENT_MAIL_MESSAGE.From.EmailAddress}'," & - $"'{CURRENT_MAIL_MESSAGE.Subject}'," & - $"'{CURRENT_MAIL_MESSAGE.Date}'," & - $"'{CURRENT_MAIL_BODY_ALL}'," & - $"'{ATTMT1}')" - _DB_MSSQL.Execute_non_Query(ins) + Private Function INSERT_HISTORY_ATTMT_MSSQL(oMSGID As String, ATTMT1 As String) + If IsNothing(_DB_MSSQL) Then + Logger.Info("INSERT_HISTORY_FB: _DB_MSSQL is nothing ") + Return False End If + Try + If MessageError = False Then + Dim ins = $"INSERT INTO TBEMLP_HISTORY_ATTACHMENT (WORK_PROCESS,EMAIL_MSGID,EMAIL_FROM,EMAIL_SUBJECT,EMAIL_DATETIME,EMAIL_BODY,EMAIL_ATTMT) VALUES " & + $"('{CURRENT_MAIL_PROCESS_NAME}'," & + $"'{oMSGID}'," & + $"'{CURRENT_MAIL_MESSAGE.From.EmailAddress}'," & + $"'{CURRENT_MAIL_MESSAGE.Subject}'," & + $"'{CURRENT_MAIL_MESSAGE.Date}'," & + $"'{CURRENT_MAIL_BODY_ALL}'," & + $"'{ATTMT1}')" + _DB_MSSQL.Execute_non_Query(ins) + End If + Catch ex As Exception + Logger.Error(ex) + End Try + End Function Private Function GetChildren(ByVal bodyParts As BodyPartCollection) As BodyPartCollection diff --git a/App/DigitalData.EMLProfiler/clsWorker.vb b/App/DigitalData.EMLProfiler/clsWorker.vb index f5ca0ff..43e1cac 100644 --- a/App/DigitalData.EMLProfiler/clsWorker.vb +++ b/App/DigitalData.EMLProfiler/clsWorker.vb @@ -16,7 +16,7 @@ Public Class clsWorker Sub New(LogConf As LogConfig, ConStr As String, POLL_PROFILEID As Integer, FB_DATASOURCE As String, FB_DATABASE As String, FB_USER As String, FB_PW As String, Optional localeml As String = "") Logger = LogConf.GetLogger _email = New clsEmail(LogConf) - _emailIMAP = New clsEmailIMAP(LogConf) + _emailIMAP = New clsEmailIMAP(LogConf, ConStr) _Database = New clsDatabase(LogConf, ConStr) cs = ConStr _windream = New clsWindream_allgemein(LogConf) @@ -101,6 +101,7 @@ Public Class clsWorker MAIL_USER_PW = row("EMAIL_PW") MAIL_PORT = row("PORT_IN") MAIL_INBOX_NAME = "Inbox" + MAIL_ARCHIVE_FOLDER = row("ARCHIVE_FOLDER") Logger.Debug(String.Format("{0}-{1}", MAIL_FROM, MAIL_SERVER)) Dim PWPlain = _wrapper.DecryptData(MAIL_USER_PW) @@ -115,21 +116,21 @@ Public Class clsWorker End If Next - MAIL_LIST.Clear() + CURRENT_WORKMAIL_LIST.Clear() If MAIL_SERVER <> "" Then Dim pollresult As Boolean = False If LocalEmail = True Then pollresult = True Dim oMessage As New Message(CURRENT_DEBUG_LOCAL_EMAIL) - MAIL_LIST.Add(oMessage) + CURRENT_WORKMAIL_LIST.Add(oMessage) Else Select Case CURRENT_POLL_TYPE Case "POP" pollresult = _email.POP3_COLLECT() Case "IMAP" 'pollresult = _emailIMAP.IMAP_COLLECT() - pollresult = _emailIMAP.FetchIMAPMessagesIsoft(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_INBOX_NAME) + pollresult = _emailIMAP.FetchIMAPMessagesIsoft(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_INBOX_NAME, MAIL_ARCHIVE_FOLDER) End Select End If @@ -140,15 +141,15 @@ Public Class clsWorker Logger.Warn(String.Format("S22 also returned error!")) End If End If - If MAIL_LIST.Count() > 0 Then - Logger.Info(String.Format("Worked/Pulled: {0} E-Mails", MAIL_LIST.Count())) - For Each pulled_msg As Message In MAIL_LIST + If CURRENT_WORKMAIL_LIST.Count() > 0 Then + Logger.Info(String.Format("Worked/Pulled: {0} E-Mails", CURRENT_WORKMAIL_LIST.Count())) + For Each pulled_msg As Message In CURRENT_WORKMAIL_LIST If _workmail.WORK_MAIL(pulled_msg) = True Then End If Next Else - Logger.Debug(String.Format("No emails for profile!")) + Logger.Info(String.Format("No emails for profile!")) End If Else Logger.Warn("For the Email-Profile ID " & CURRENT_EMAIL_GUID & " no record could be found!") @@ -162,7 +163,9 @@ Public Class clsWorker Try 'Delete all Tempfiles For Each _file In TEMP_FILES - System.IO.File.Delete(_file) + If System.IO.File.Exists(_file) Then + System.IO.File.Delete(_file) + End If Next Try Dim oDiTempPath As New IO.DirectoryInfo(System.IO.Path.GetTempPath) @@ -173,17 +176,17 @@ Public Class clsWorker Try fi.Delete() Catch ex As Exception - Logger.Warn($"SWP1 - Could not delete the tempfile: {ex.Message}") + Logger.Warn($"TempFileDelete2 - Could not delete the tempfile: {ex.Message}") End Try Next Catch ex As Exception - Logger.Warn($"SWP2 - Could not delete the tempfile: {ex.Message}") + Logger.Warn($"TempFileDelete3 - Could not delete the tempfile: {ex.Message}") End Try Catch ex As Exception - Logger.Warn($"SWP - Could not delete the tempfile from TEMP_FILES: {ex.Message}") + Logger.Info($"TempFileDelete - Could not delete the tempfile from TEMP_FILES: {ex.Message}") End Try Else diff --git a/App/DigitalData.EMLProfiler/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/App/DigitalData.EMLProfiler/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache index be7ad95..075465d 100644 Binary files a/App/DigitalData.EMLProfiler/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/App/DigitalData.EMLProfiler/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.dll b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.dll index 565073c..c43f36b 100644 Binary files a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.dll and b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.dll differ diff --git a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.pdb b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.pdb index e3830f6..2831dde 100644 Binary files a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.pdb and b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.pdb differ diff --git a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.CoreCompileInputs.cache b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.CoreCompileInputs.cache deleted file mode 100644 index 61c4f63..0000000 --- a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.CoreCompileInputs.cache +++ /dev/null @@ -1 +0,0 @@ -064839440650a653f8e769d63390527023957743 diff --git a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.FileListAbsolute.txt b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.FileListAbsolute.txt index 566737d..32e898d 100644 --- a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.FileListAbsolute.txt +++ b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbproj.FileListAbsolute.txt @@ -23,9 +23,7 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\bin\Debug\FirebirdSql.Data.FirebirdClient.pdb E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.Resources.resources E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.vbproj.GenerateResource.cache -E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.vbproj.CoreCompileInputs.cache E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.vbproj.CopyComplete E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.dll E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.xml E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.pdb -E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\DigitalData.EMLProfiler\obj\Debug\DigitalData.EMLProfiler.vbprojAssemblyReference.cache diff --git a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbprojAssemblyReference.cache b/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbprojAssemblyReference.cache deleted file mode 100644 index cd9791c..0000000 Binary files a/App/DigitalData.EMLProfiler/obj/Debug/DigitalData.EMLProfiler.vbprojAssemblyReference.cache and /dev/null differ diff --git a/App/SERV_EMAIL/App.config b/App/SERV_EMAIL/App.config index 5756b83..f1bca38 100644 --- a/App/SERV_EMAIL/App.config +++ b/App/SERV_EMAIL/App.config @@ -26,8 +26,8 @@ dd - - True + + False diff --git a/App/SERV_EMAIL/My Project/AssemblyInfo.vb b/App/SERV_EMAIL/My Project/AssemblyInfo.vb index 43b5d73..0f1a0e7 100644 --- a/App/SERV_EMAIL/My Project/AssemblyInfo.vb +++ b/App/SERV_EMAIL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/App/SERV_EMAIL/My Project/Settings.Designer.vb b/App/SERV_EMAIL/My Project/Settings.Designer.vb index 2524d6f..fcd9970 100644 --- a/App/SERV_EMAIL/My Project/Settings.Designer.vb +++ b/App/SERV_EMAIL/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -103,10 +103,10 @@ Namespace My _ - Public ReadOnly Property LOGERRORS_ONLY() As Boolean + Global.System.Configuration.DefaultSettingValueAttribute("False")> _ + Public ReadOnly Property DEBUG() As Boolean Get - Return CType(Me("LOGERRORS_ONLY"),Boolean) + Return CType(Me("DEBUG"),Boolean) End Get End Property End Class diff --git a/App/SERV_EMAIL/My Project/Settings.settings b/App/SERV_EMAIL/My Project/Settings.settings index a4d1867..a93a214 100644 --- a/App/SERV_EMAIL/My Project/Settings.settings +++ b/App/SERV_EMAIL/My Project/Settings.settings @@ -22,8 +22,8 @@ dd - - True + + False \ No newline at end of file diff --git a/App/SERV_EMAIL/MyService.vb b/App/SERV_EMAIL/MyService.vb index 3886fc5..d80452a 100644 --- a/App/SERV_EMAIL/MyService.vb +++ b/App/SERV_EMAIL/MyService.vb @@ -22,14 +22,14 @@ Public Class MyService ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge ' ausführen, damit der Dienst gestartet werden kann. Try - MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log")) + MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, "Digital Data", "DD EmailProfiler") Logger = MyLogger.GetLogger Logger.Info("## Service started ## ") If My.Settings.MyConnectionString = String.Empty Then Logger.Warn("NO CONNECTIONSTRING CONFIGURED.") Else - If LOG_ERRORS_ONLY = False Then + If My.Settings.DEBUG = True Then Logger.Info("DEBUG ACTIVATED") MyLogger.Debug = True Else diff --git a/App/SERV_EMAIL/bin/Debug/DigitalData.EMLProfiler.dll b/App/SERV_EMAIL/bin/Debug/DigitalData.EMLProfiler.dll index 948a375..37a864f 100644 Binary files a/App/SERV_EMAIL/bin/Debug/DigitalData.EMLProfiler.dll and b/App/SERV_EMAIL/bin/Debug/DigitalData.EMLProfiler.dll differ diff --git a/App/SERV_EMAIL/bin/Debug/DigitalData.EMLProfiler.pdb b/App/SERV_EMAIL/bin/Debug/DigitalData.EMLProfiler.pdb index 9ee031d..38c6492 100644 Binary files a/App/SERV_EMAIL/bin/Debug/DigitalData.EMLProfiler.pdb and b/App/SERV_EMAIL/bin/Debug/DigitalData.EMLProfiler.pdb differ diff --git a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.dll b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.dll index 7cd0e84..edb4a8f 100644 Binary files a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.dll and b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.dll differ diff --git a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.pdb b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.pdb index 74f8d74..aeafc87 100644 Binary files a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.pdb and b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.pdb differ diff --git a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.xml b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.xml index 62d8b0d..8826f42 100644 --- a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.xml +++ b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Database.xml @@ -206,26 +206,11 @@ DigitalData.Modules.Database sqlcommand for datatable (select XYZ from TableORView) Returns a datatable - - - Executes the passed sql-statement - - the sql statement - Returns true if properly executed, else false - - - - - Executes the passed sql-statement as Scalar - - the sql statement - Returns true if properly executed, else false - Executes the passed sql-statement in asyncmode - the sql statement + the sql statement Optional Timeout diff --git a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.dll b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.dll index c5d456a..9d7ae9e 100644 Binary files a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.dll and b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.dll differ diff --git a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.pdb b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.pdb index c5e6f74..b92172f 100644 Binary files a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.pdb and b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.pdb differ diff --git a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.xml b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.xml index 214eb9d..faca96a 100644 --- a/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.xml +++ b/App/SERV_EMAIL/bin/Debug/DigitalData.Modules.Logging.xml @@ -34,33 +34,6 @@ DigitalData.Modules.Logging NLog, >= 4.5.8 - - logPath, PathType - The basepath to write logs to. Can be AppData, CurrentDirectory or CustomPath. - - - AppData: writes to local application data directory - - CurrentDirectory: writes to `Log` directory relative to the current directory - - CustomPath: writes to custom path specified in `customLogPath` - - customLogPath, String (optional) - If `logPath` is set to custom, this defines the custom logPath. - - suffix, String (optional) - If set to anything other than Nothing, extends the logfile name with this suffix. - - - LogFile, String (readonly) - Returns the full path of the default log file. - - LogPath, String (readonly) - Returns the path to the log directory. - - LogFactory, NLog.LogFactory (readonly) - Returns the LogFactory that is used to create the Logger object - - Debug, Boolean - Determines if the debug log should be written. - Imports DigitalData.Modules.Logging @@ -132,13 +105,15 @@ DigitalData.Modules.Logging A list of log messages - + Initializes a new LogConfig object with a logpath and optinally a filename-suffix. - The basepath to write logs to. Can be AppData, CurrentDirectory or CustomPath. - If `logPath` is set to custom, this defines the custom logPath. - If set to anything other than Nothing, extends the logfile name with this suffix. + The basepath to write logs to. Can be AppData, CurrentDirectory or CustomPath. + If `logPath` is set to custom, this defines the custom logPath. + If set to anything other than Nothing, extends the logfile name with this suffix. + CompanyName is used to construct log-path in when LogPath is set to PathType:AppData + ProductName is used to construct log-path in when LogPath is set to PathType:AppData diff --git a/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.InstallLog b/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.InstallLog deleted file mode 100644 index 4ec1f76..0000000 --- a/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.InstallLog +++ /dev/null @@ -1,26 +0,0 @@ -Assembly E:\SchreiberM\Visual Studio\GIT\SERV_EMAIL\SERV_EMAIL\bin\Debug\SERV_EMAIL.exe wird installiert. -Betroffene Parameter: - logtoconsole = - logfile = E:\SchreiberM\Visual Studio\GIT\SERV_EMAIL\SERV_EMAIL\bin\Debug\SERV_EMAIL.InstallLog - assemblypath = E:\SchreiberM\Visual Studio\GIT\SERV_EMAIL\SERV_EMAIL\bin\Debug\SERV_EMAIL.exe -Dienst DD EmailProfiler wird installiert... -Dienst DD EmailProfiler wurde installiert. -Die EventLog-Quelle DD EmailProfiler im Protokoll Application wird erstellt... -Assembly E:\SchreiberM\Visual Studio\GIT\SERV_EMAIL\SERV_EMAIL\bin\Debug\SERV_EMAIL.exe wird ausgeführt. -Betroffene Parameter: - logtoconsole = - logfile = E:\SchreiberM\Visual Studio\GIT\SERV_EMAIL\SERV_EMAIL\bin\Debug\SERV_EMAIL.InstallLog - assemblypath = E:\SchreiberM\Visual Studio\GIT\SERV_EMAIL\SERV_EMAIL\bin\Debug\SERV_EMAIL.exe -Assembly E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\SERV_EMAIL.exe wird installiert. -Betroffene Parameter: - logtoconsole = - logfile = E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\SERV_EMAIL.InstallLog - assemblypath = E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\SERV_EMAIL.exe -Dienst DD EmailProfiler wird installiert... -Dienst DD EmailProfiler wurde installiert. -Die EventLog-Quelle DD EmailProfiler im Protokoll Application wird erstellt... -Assembly E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\SERV_EMAIL.exe wird ausgeführt. -Betroffene Parameter: - logtoconsole = - logfile = E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\SERV_EMAIL.InstallLog - assemblypath = E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\bin\Debug\SERV_EMAIL.exe diff --git a/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.InstallState b/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.InstallState deleted file mode 100644 index d0d1367..0000000 --- a/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.InstallState +++ /dev/null @@ -1 +0,0 @@ -0.7223_reserved_nestedSavedStates_reserved_lastInstallerAttempted0.72230.7247AccountLocalSystem-10.7247installedtrue0.7267logExistsalreadyRegisteredbaseInstalledAndPlatformOKtrue-1falsetrue010 \ No newline at end of file diff --git a/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.exe b/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.exe index 5bbcb19..3dce66b 100644 Binary files a/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.exe and b/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.exe differ diff --git a/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.exe.config b/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.exe.config index 5756b83..f1bca38 100644 --- a/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.exe.config +++ b/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.exe.config @@ -26,8 +26,8 @@ dd - - True + + False diff --git a/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.pdb b/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.pdb index 2051296..d5029c4 100644 Binary files a/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.pdb and b/App/SERV_EMAIL/bin/Debug/SERV_EMAIL.pdb differ diff --git a/App/SERV_EMAIL/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/App/SERV_EMAIL/obj/Debug/DesignTimeResolveAssemblyReferences.cache index 6af54e4..d4c16b8 100644 Binary files a/App/SERV_EMAIL/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/App/SERV_EMAIL/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/App/SERV_EMAIL/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/App/SERV_EMAIL/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache index de37006..805524f 100644 Binary files a/App/SERV_EMAIL/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/App/SERV_EMAIL/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.exe b/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.exe index 5bbcb19..3dce66b 100644 Binary files a/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.exe and b/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.exe differ diff --git a/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.pdb b/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.pdb index 2051296..d5029c4 100644 Binary files a/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.pdb and b/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.pdb differ diff --git a/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.CoreCompileInputs.cache b/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.CoreCompileInputs.cache deleted file mode 100644 index 4abb374..0000000 --- a/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.CoreCompileInputs.cache +++ /dev/null @@ -1 +0,0 @@ -194f0e0b9909d26a065a24a0efa14204b59b0794 diff --git a/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.FileListAbsolute.txt b/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.FileListAbsolute.txt index e51b06f..986e6e4 100644 --- a/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.FileListAbsolute.txt +++ b/App/SERV_EMAIL/obj/Debug/SERV_EMAIL.vbproj.FileListAbsolute.txt @@ -42,7 +42,6 @@ E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_E E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.MyService.resources E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.ProjectInstaller.resources E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.vbproj.GenerateResource.cache -E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.vbproj.CoreCompileInputs.cache E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.vbproj.CopyComplete E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.exe E:\SchreiberM\Visual Studio\GIT\DD_EmailProfiler\App\SERV_EMAIL\obj\Debug\SERV_EMAIL.xml diff --git a/App/SERV_EMAIL/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/App/SERV_EMAIL/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll index 53b5970..243b2ca 100644 Binary files a/App/SERV_EMAIL/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll and b/App/SERV_EMAIL/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll differ