From 83a4d1f7c92cb8ee5a95ab604332dc5f191f814b Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 4 Aug 2022 11:07:36 +0200 Subject: [PATCH] JJ --- App/CONFIG_APP/App.config | 3 + App/CONFIG_APP/CONFIG_APP.vbproj | 15 +- App/CONFIG_APP/CONFIG_APP.vbproj.bak | 25 +- App/CONFIG_APP/My Project/AssemblyInfo.vb | 2 +- .../My Project/Settings.Designer.vb | 11 +- App/CONFIG_APP/My Project/Settings.settings | 3 + App/CONFIG_APP/My Project/licenses.licx | 1 - App/CONFIG_APP/My Project/licenses.licx.bak | 2 +- App/CONFIG_APP/frmMain.Designer.vb | 4 +- App/CONFIG_APP/frmMain.vb | 8 +- App/DigitalData.EMLProfiler/clsEmail.IMAP.vb | 5 +- App/DigitalData.EMLProfiler/clsWorkEmail.vb | 5 +- App/DigitalData.EMLProfiler/clsWorker.vb | 31 ++- App/{SERV_EMAIL.sln => EMAIL_PROFILER.sln} | 0 App/SERV_EMAIL/App.config | 3 + .../My Project/Settings.Designer.vb | 9 + App/SERV_EMAIL/My Project/Settings.settings | 3 + App/SERV_EMAIL/MyService.vb | 2 +- App/wisag_check_Att/App.config | 16 +- App/wisag_check_Att/Form1.resx | 12 +- App/wisag_check_Att/Form1.resx.bak | 216 ++++++++++++++++++ .../My Project/Application.Designer.vb | 26 +-- .../My Project/Resources.Designer.vb | 49 ++-- .../My Project/Settings.Designer.vb | 2 +- App/wisag_check_Att/My Project/licenses.licx | 2 - .../My Project/licenses.licx.bak | 2 + App/wisag_check_Att/wisag_check_Att.vbproj | 13 +- .../wisag_check_Att.vbproj.bak | 147 ++++++++++++ 28 files changed, 513 insertions(+), 104 deletions(-) rename App/{SERV_EMAIL.sln => EMAIL_PROFILER.sln} (100%) create mode 100644 App/wisag_check_Att/Form1.resx.bak create mode 100644 App/wisag_check_Att/My Project/licenses.licx.bak create mode 100644 App/wisag_check_Att/wisag_check_Att.vbproj.bak diff --git a/App/CONFIG_APP/App.config b/App/CONFIG_APP/App.config index e8b0ae0..aef043f 100644 --- a/App/CONFIG_APP/App.config +++ b/App/CONFIG_APP/App.config @@ -51,6 +51,9 @@ False + + NONE + \ No newline at end of file diff --git a/App/CONFIG_APP/CONFIG_APP.vbproj b/App/CONFIG_APP/CONFIG_APP.vbproj index e2860b1..329eebb 100644 --- a/App/CONFIG_APP/CONFIG_APP.vbproj +++ b/App/CONFIG_APP/CONFIG_APP.vbproj @@ -50,13 +50,14 @@ email_download_handdrawn.ico - - - - - - - + + + + + + + + ..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll diff --git a/App/CONFIG_APP/CONFIG_APP.vbproj.bak b/App/CONFIG_APP/CONFIG_APP.vbproj.bak index ba391bd..e2860b1 100644 --- a/App/CONFIG_APP/CONFIG_APP.vbproj.bak +++ b/App/CONFIG_APP/CONFIG_APP.vbproj.bak @@ -50,30 +50,24 @@ email_download_handdrawn.ico - - - - - - - + + + + + + + ..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll - - ..\..\..\DDMonorepo\Message\bin\Debug\DigitalData.Modules.Messaging.dll - - + False - P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Email .NET\Bin\Independentsoft.Email.dll + ..\..\..\DDMonorepo\Modules.Messaging\bin\Debug\DigitalData.Modules.Messaging.dll ..\packages\NLog.4.7.10\lib\net45\NLog.dll - - ..\packages\S22.Imap.3.6.0.0\lib\net40\S22.Imap.dll - @@ -105,6 +99,7 @@ + Form diff --git a/App/CONFIG_APP/My Project/AssemblyInfo.vb b/App/CONFIG_APP/My Project/AssemblyInfo.vb index 54aa251..608cd1b 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 9096624..950550d 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 @@ -170,6 +170,15 @@ Namespace My Me("DEBUG") = value End Set End Property + + _ + Public ReadOnly Property EML_LIMITATION_SENDER() As String + Get + Return CType(Me("EML_LIMITATION_SENDER"),String) + End Get + End Property End Class End Namespace diff --git a/App/CONFIG_APP/My Project/Settings.settings b/App/CONFIG_APP/My Project/Settings.settings index f480ade..5ec5b1d 100644 --- a/App/CONFIG_APP/My Project/Settings.settings +++ b/App/CONFIG_APP/My Project/Settings.settings @@ -40,5 +40,8 @@ False + + NONE + \ No newline at end of file diff --git a/App/CONFIG_APP/My Project/licenses.licx b/App/CONFIG_APP/My Project/licenses.licx index fb06462..e69de29 100644 --- a/App/CONFIG_APP/My Project/licenses.licx +++ b/App/CONFIG_APP/My Project/licenses.licx @@ -1 +0,0 @@ -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/App/CONFIG_APP/My Project/licenses.licx.bak b/App/CONFIG_APP/My Project/licenses.licx.bak index 824a99f..fb06462 100644 --- a/App/CONFIG_APP/My Project/licenses.licx.bak +++ b/App/CONFIG_APP/My Project/licenses.licx.bak @@ -1 +1 @@ -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/App/CONFIG_APP/frmMain.Designer.vb b/App/CONFIG_APP/frmMain.Designer.vb index b9c5368..e851ccf 100644 --- a/App/CONFIG_APP/frmMain.Designer.vb +++ b/App/CONFIG_APP/frmMain.Designer.vb @@ -1679,7 +1679,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(1177, 25) + Me.BindingNavigator2.Size = New System.Drawing.Size(968, 25) Me.BindingNavigator2.TabIndex = 32 Me.BindingNavigator2.Text = "BindingNavigator2" ' @@ -1794,7 +1794,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, 314) + Me.GridControl1.Size = New System.Drawing.Size(241, 331) Me.GridControl1.TabIndex = 0 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' diff --git a/App/CONFIG_APP/frmMain.vb b/App/CONFIG_APP/frmMain.vb index 1223626..f6f448f 100644 --- a/App/CONFIG_APP/frmMain.vb +++ b/App/CONFIG_APP/frmMain.vb @@ -288,14 +288,14 @@ Public Class frmMain If _RunwithLocalemail = False Then 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, + Dim _work As New clsWorker(My.Settings.EML_LIMITATION_SENDER, MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, ToolStripEmailAccountID.Text, "EmailProfilerTestClient") _work.Start_WorkingProfiles() Else For Each ofile As String In _Worklist 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, My.Settings.USE_WM, ToolStripEmailAccountID.Text, "EmailProfilerTestClient", ofile) + Dim _work As New clsWorker(My.Settings.EML_LIMITATION_SENDER, MyLogger, _SQLServerConString, GUIDTextBox.Text, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, ToolStripEmailAccountID.Text, "EmailProfilerTestClient", ofile) _work.Start_WorkingProfiles(True) Next @@ -589,7 +589,7 @@ Public Class frmMain Load_Config() Case 2 - Load_History() + ' Load_History() Case 4 Try Dim osql = "SELECT * FROM TBDD_FUNCTION_REGEX WHERE UPPER(FUNCTION_NAME) IN (UPPER('EMAIL_PROFILER - RemoveHTMLText'),UPPER('EMAIL_PROFILER - RemoveHTMLText1'))" @@ -732,7 +732,7 @@ Public Class frmMain EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "frmMain-Test", "", "", True) = True Then - MsgBox("Email was send successfully.", MsgBoxStyle.Information) + MsgBox("Email has been send successfully.", MsgBoxStyle.Information) Else MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation) End If diff --git a/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb b/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb index 07ea200..9299865 100644 --- a/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb +++ b/App/DigitalData.EMLProfiler/clsEmail.IMAP.vb @@ -27,6 +27,7 @@ Public Class clsEmailIMAP _limilab.InitIMAP(True, Server, Port, Username, Password, AuthType) Dim oListuids As New List(Of Long) oListuids = _limilab.IMAPGetMessageIDs_AllMails() + If IsNothing(oListuids) Then Return False Else @@ -43,11 +44,7 @@ Public Class clsEmailIMAP Logger.Error(ex) Return False End Try - End Function - - - ''' ''' Uses a private API from MailWriter to write a MailMessage to disk. ''' May break in future versions of .NET diff --git a/App/DigitalData.EMLProfiler/clsWorkEmail.vb b/App/DigitalData.EMLProfiler/clsWorkEmail.vb index 7c6bdc2..6003f74 100644 --- a/App/DigitalData.EMLProfiler/clsWorkEmail.vb +++ b/App/DigitalData.EMLProfiler/clsWorkEmail.vb @@ -274,12 +274,13 @@ Public Class clsWorkEmail WM_REFERENCE_INDEX = oDataRow("WM_REFERENCE_INDEX") Catch ex As Exception Logger.Debug($"Attention WM_REFERENCE_INDEX seems to be Empty/null: {ex.Message}") - WM_REFERENCE_INDEX = Nothing + WM_REFERENCE_INDEX = "" End Try Try WM_VECTOR_LOG = oDataRow("WM_VECTOR_LOG") Catch ex As Exception - WM_VECTOR_LOG = Nothing + Logger.Debug($"Attention WM_VECTOR_LOG seems to be Empty/null: {ex.Message}") + WM_VECTOR_LOG = "" End Try WM_OBJEKTTYPE = oDataRow("WM_OBJEKTTYPE") diff --git a/App/DigitalData.EMLProfiler/clsWorker.vb b/App/DigitalData.EMLProfiler/clsWorker.vb index 9c7c483..e173184 100644 --- a/App/DigitalData.EMLProfiler/clsWorker.vb +++ b/App/DigitalData.EMLProfiler/clsWorker.vb @@ -17,18 +17,19 @@ Public Class clsWorker Private _workmail As clsWorkEmail Private _wrapper As clsEncryption Private _POLL_PROFILEID As Integer = 0 - + Private Eml_Limitation_Sender As String = "" Dim cs As String - 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, USE_WM As Boolean, EmailAccountID As Integer, EmlProfPraefix As String, Optional plocaleml As String = "") + Sub New(EML_LIMITATION As String, 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, USE_WM As Boolean, EmailAccountID As Integer, EmlProfPraefix As String, Optional plocaleml As String = "") MyLogConfig = LogConf Logger = LogConf.GetLogger _emailIMAP = New clsEmailIMAP(LogConf, ConStr) _Database = New clsDatabase(LogConf, ConStr) cs = ConStr _USE_WM = USE_WM + Eml_Limitation_Sender = EML_LIMITATION If _USE_WM Then _windream = New clsWindream_allgemein(LogConf) - _windream_index = New clsWindream_Index(LogConf) + _windream_index = New clsWindream_Index(LogConf) End If _workmail = New clsWorkEmail(LogConf, ConStr, FB_DATASOURCE, FB_DATABASE, FB_USER, FB_PW, USE_WM, EmailAccountID, EmlProfPraefix) @@ -129,14 +130,11 @@ Public Class clsWorker Dim pollresult As Boolean = False If LocalEmail = True Then pollresult = True - 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, MAIL_ARCHIVE_FOLDER) pollresult = _emailIMAP.FetchIMAPMessagesLimilab(MAIL_SERVER, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTHTYPE) End Select End If @@ -150,10 +148,31 @@ Public Class clsWorker Else Try Logger.Info(String.Format("Pulled: [{0}] E-Mails", CURRENT_WORKMAIL_UID_LIST.Count())) + Dim LIMIT_EMAIL_FROM As Boolean = False + If Eml_Limitation_Sender.Contains("@") Then + LIMIT_EMAIL_FROM = True + Logger.Info("####################################") + Logger.Info($"LIMIT_EMAIL_FROM is ACTIVE - EMAIL_FROM = [{Eml_Limitation_Sender}]") + Logger.Info("####################################") + Logger.Debug("####################################") + Logger.Debug($"LIMIT_EMAIL_FROM is ACTIVE - EMAIL_FROM = [{Eml_Limitation_Sender}]") + Logger.Debug("####################################") + End If For Each oUID In CURRENT_WORKMAIL_UID_LIST Dim oEml = CURRENT_ImapObject.GetMessageByUID(oUID) Dim oEmail As IMail = New MailBuilder().CreateFromEml(oEml) + If Not IsNothing(oEmail) Then + If LIMIT_EMAIL_FROM Then + Dim oEmailFrom As String + For Each m As MailBox In oEmail.From + oEmailFrom = m.Address + Next + If oEmailFrom <> Eml_Limitation_Sender Then + Logger.Debug($"Skipping email {oEmailFrom} ...Subject [{oEmail.Subject}]") + Continue For + End If + End If If _workmail.WorkEmailMessage(oEmail, oUID) = True Then If ClassCurrent.CURRENT_DEBUG_LOCAL_EMAIL = "" Then EMAIL_DELETE() diff --git a/App/SERV_EMAIL.sln b/App/EMAIL_PROFILER.sln similarity index 100% rename from App/SERV_EMAIL.sln rename to App/EMAIL_PROFILER.sln diff --git a/App/SERV_EMAIL/App.config b/App/SERV_EMAIL/App.config index 5fc2543..e117356 100644 --- a/App/SERV_EMAIL/App.config +++ b/App/SERV_EMAIL/App.config @@ -38,6 +38,9 @@ EmailProfiler + + NONE + \ No newline at end of file diff --git a/App/SERV_EMAIL/My Project/Settings.Designer.vb b/App/SERV_EMAIL/My Project/Settings.Designer.vb index 810604b..9c3ebcb 100644 --- a/App/SERV_EMAIL/My Project/Settings.Designer.vb +++ b/App/SERV_EMAIL/My Project/Settings.Designer.vb @@ -136,6 +136,15 @@ Namespace My Return CType(Me("EmailProfilerPraefix"),String) End Get End Property + + _ + Public ReadOnly Property EML_LIMITATION_SENDER() As String + Get + Return CType(Me("EML_LIMITATION_SENDER"),String) + End Get + End Property End Class End Namespace diff --git a/App/SERV_EMAIL/My Project/Settings.settings b/App/SERV_EMAIL/My Project/Settings.settings index 8986cce..04ad0a3 100644 --- a/App/SERV_EMAIL/My Project/Settings.settings +++ b/App/SERV_EMAIL/My Project/Settings.settings @@ -34,5 +34,8 @@ EmailProfiler + + NONE + \ No newline at end of file diff --git a/App/SERV_EMAIL/MyService.vb b/App/SERV_EMAIL/MyService.vb index 1c4e18c..425aa10 100644 --- a/App/SERV_EMAIL/MyService.vb +++ b/App/SERV_EMAIL/MyService.vb @@ -88,7 +88,7 @@ Public Class MyService Public Sub RUN_THREAD(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Try Dim notcompleted As Boolean = False - Dim _work As New clsWorker(MyLogger, My.Settings.MyConnectionString, 0, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, My.Settings.EmailAccountID, My.Settings.EmailProfilerPraefix) + Dim _work As New clsWorker(My.Settings.EML_LIMITATION_SENDER, MyLogger, My.Settings.MyConnectionString, 0, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, My.Settings.EmailAccountID, My.Settings.EmailProfilerPraefix) _work.Start_WorkingProfiles() Catch ex As Exception Logger.Error(ex) diff --git a/App/wisag_check_Att/App.config b/App/wisag_check_Att/App.config index 6bb8e25..1d320d6 100644 --- a/App/wisag_check_Att/App.config +++ b/App/wisag_check_Att/App.config @@ -1,24 +1,24 @@ - + - -
+ +
- + - + - + - + - \ No newline at end of file + diff --git a/App/wisag_check_Att/Form1.resx b/App/wisag_check_Att/Form1.resx index f9ed622..f8d231f 100644 --- a/App/wisag_check_Att/Form1.resx +++ b/App/wisag_check_Att/Form1.resx @@ -117,8 +117,8 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -136,7 +136,7 @@ NC43QzMyLjEsMTQuMywzMS44LDE0LDMxLjMsMTR6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9zdmc+Cw== - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -154,7 +154,7 @@ NC43QzMyLjEsMTQuMywzMS44LDE0LDMxLjMsMTR6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9zdmc+Cw== - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -174,7 +174,7 @@ MS44LDQsNGgtNGw2LDZsNi02SDI4eiIgY2xhc3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw== - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl @@ -192,7 +192,7 @@ NC43QzMyLjEsMTQuMywzMS44LDE0LDMxLjMsMTR6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9zdmc+Cw== - + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl diff --git a/App/wisag_check_Att/Form1.resx.bak b/App/wisag_check_Att/Form1.resx.bak new file mode 100644 index 0000000..f9ed622 --- /dev/null +++ b/App/wisag_check_Att/Form1.resx.bak @@ -0,0 +1,216 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iT3BlbiIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0 + MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cGF0aCBkPSJN + Mi4yLDI1LjJsNS41LTEyYzAuMy0wLjcsMS0xLjIsMS44LTEuMkgyNlY5YzAtMC42LTAuNC0xLTEtMUgx + MlY1YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw0LDIsNC40LDIsNXYyMCAgIGMwLDAuMiwwLDAuMywwLjEs + MC40QzIuMSwyNS4zLDIuMiwyNS4zLDIuMiwyNS4yeiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0K + ICA8cGF0aCBkPSJNMzEuMywxNEg5LjZMNCwyNmgyMS44YzAuNSwwLDEuMS0wLjMsMS4zLTAuN0wzMiwx + NC43QzMyLjEsMTQuMywzMS44LDE0LDMxLjMsMTR6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iT3BlbiIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0 + MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cGF0aCBkPSJN + Mi4yLDI1LjJsNS41LTEyYzAuMy0wLjcsMS0xLjIsMS44LTEuMkgyNlY5YzAtMC42LTAuNC0xLTEtMUgx + MlY1YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw0LDIsNC40LDIsNXYyMCAgIGMwLDAuMiwwLDAuMywwLjEs + MC40QzIuMSwyNS4zLDIuMiwyNS4zLDIuMiwyNS4yeiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0K + ICA8cGF0aCBkPSJNMzEuMywxNEg5LjZMNCwyNmgyMS44YzAuNSwwLDEuMS0wLjMsMS4zLTAuN0wzMiwx + NC43QzMyLjEsMTQuMywzMS44LDE0LDMxLjMsMTR6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAAMDAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iT3BlbjIiIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcgMCAwIDMy + IDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5HcmVlbntmaWxsOiMwMzlDMjM7fQoJLlll + bGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFz + cz0ic3QwIj4NCiAgICA8cGF0aCBkPSJNMTkuMiwxMEgxMlY3YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw2 + LDIsNi41LDIsN3YxOGMwLDAuMiwwLDAuMywwLjEsMC40YzAsMCwwLjEtMC4xLDAuMS0wLjJsNS41LTEw + ICAgQzgsMTQuNSw4LjcsMTQsOS41LDE0aDEzLjdMMTkuMiwxMHoiIGNsYXNzPSJZZWxsb3ciIC8+DQog + IDwvZz4NCiAgPHBhdGggZD0iTTI5LjMsMTZIOS42TDQsMjZoMTkuOGMwLjUsMCwxLjEtMC4yLDEuMy0w + LjZsNC45LTguOUMzMC4xLDE2LjIsMjkuOCwxNiwyOS4zLDE2eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAg + PHBhdGggZD0iTTI4LDhjMC0zLjMtMi43LTYtNi02cy02LDIuNy02LDZjMC0yLjIsMS44LTQsNC00czQs + MS44LDQsNGgtNGw2LDZsNi02SDI4eiIgY2xhc3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iT3BlbiIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0 + MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cGF0aCBkPSJN + Mi4yLDI1LjJsNS41LTEyYzAuMy0wLjcsMS0xLjIsMS44LTEuMkgyNlY5YzAtMC42LTAuNC0xLTEtMUgx + MlY1YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw0LDIsNC40LDIsNXYyMCAgIGMwLDAuMiwwLDAuMywwLjEs + MC40QzIuMSwyNS4zLDIuMiwyNS4zLDIuMiwyNS4yeiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0K + ICA8cGF0aCBkPSJNMzEuMywxNEg5LjZMNCwyNmgyMS44YzAuNSwwLDEuMS0wLjMsMS4zLTAuN0wzMiwx + NC43QzMyLjEsMTQuMywzMS44LDE0LDMxLjMsMTR6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9zdmc+Cw== + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJQCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iT3BlbiIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJLnN0 + MHtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBjbGFzcz0ic3QwIj4NCiAgICA8cGF0aCBkPSJN + Mi4yLDI1LjJsNS41LTEyYzAuMy0wLjcsMS0xLjIsMS44LTEuMkgyNlY5YzAtMC42LTAuNC0xLTEtMUgx + MlY1YzAtMC42LTAuNC0xLTEtMUgzQzIuNCw0LDIsNC40LDIsNXYyMCAgIGMwLDAuMiwwLDAuMywwLjEs + MC40QzIuMSwyNS4zLDIuMiwyNS4zLDIuMiwyNS4yeiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgPC9nPg0K + ICA8cGF0aCBkPSJNMzEuMywxNEg5LjZMNCwyNmgyMS44YzAuNSwwLDEuMS0wLjMsMS4zLTAuN0wzMiwx + NC43QzMyLjEsMTQuMywzMS44LDE0LDMxLjMsMTR6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9zdmc+Cw== + + + + 17, 17 + + \ No newline at end of file diff --git a/App/wisag_check_Att/My Project/Application.Designer.vb b/App/wisag_check_Att/My Project/Application.Designer.vb index e96e41f..cc70812 100644 --- a/App/wisag_check_Att/My Project/Application.Designer.vb +++ b/App/wisag_check_Att/My Project/Application.Designer.vb @@ -1,10 +1,10 @@ '------------------------------------------------------------------------------ ' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 ' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ @@ -13,15 +13,15 @@ Option Explicit On Namespace My - - 'NOTE: This file is auto-generated; do not modify it directly. To make changes, - ' or if you encounter build errors in this file, go to the Project Designer - ' (go to Project Properties or double-click the My Project node in - ' Solution Explorer), and make changes on the Application tab. + + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. ' Partial Friend Class MyApplication - - _ + + _ Public Sub New() MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) Me.IsSingleInstance = false @@ -29,8 +29,8 @@ Namespace My Me.SaveMySettingsOnExit = true Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses End Sub - - _ + + _ Protected Overrides Sub OnCreateMainForm() Me.MainForm = Global.wisag_check_Att.Form1 End Sub diff --git a/App/wisag_check_Att/My Project/Resources.Designer.vb b/App/wisag_check_Att/My Project/Resources.Designer.vb index 306b123..956d1c5 100644 --- a/App/wisag_check_Att/My Project/Resources.Designer.vb +++ b/App/wisag_check_Att/My Project/Resources.Designer.vb @@ -1,40 +1,41 @@ '------------------------------------------------------------------------------ ' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 ' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On +Imports System Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ + _ Friend Module Resources - + Private resourceMan As Global.System.Resources.ResourceManager - + Private resourceCulture As Global.System.Globalization.CultureInfo - + ''' - ''' Returns the cached ResourceManager instance used by this class. + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. ''' - _ + _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then @@ -44,17 +45,17 @@ Namespace My.Resources Return resourceMan End Get End Property - + ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. ''' - _ + _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) + Set resourceCulture = value End Set End Property diff --git a/App/wisag_check_Att/My Project/Settings.Designer.vb b/App/wisag_check_Att/My Project/Settings.Designer.vb index 6092cdd..6c0494b 100644 --- a/App/wisag_check_Att/My Project/Settings.Designer.vb +++ b/App/wisag_check_Att/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase diff --git a/App/wisag_check_Att/My Project/licenses.licx b/App/wisag_check_Att/My Project/licenses.licx index f751197..e69de29 100644 --- a/App/wisag_check_Att/My Project/licenses.licx +++ b/App/wisag_check_Att/My Project/licenses.licx @@ -1,2 +0,0 @@ -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/App/wisag_check_Att/My Project/licenses.licx.bak b/App/wisag_check_Att/My Project/licenses.licx.bak new file mode 100644 index 0000000..f751197 --- /dev/null +++ b/App/wisag_check_Att/My Project/licenses.licx.bak @@ -0,0 +1,2 @@ +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/App/wisag_check_Att/wisag_check_Att.vbproj b/App/wisag_check_Att/wisag_check_Att.vbproj index 4e8e003..a94f314 100644 --- a/App/wisag_check_Att/wisag_check_Att.vbproj +++ b/App/wisag_check_Att/wisag_check_Att.vbproj @@ -11,9 +11,10 @@ wisag_check_Att 512 WindowsForms - v4.7.2 + v4.6.1 true true + AnyCPU @@ -48,10 +49,11 @@ On - - - - + + + + + ..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll @@ -106,6 +108,7 @@ True Application.myapp + True True diff --git a/App/wisag_check_Att/wisag_check_Att.vbproj.bak b/App/wisag_check_Att/wisag_check_Att.vbproj.bak new file mode 100644 index 0000000..4e8e003 --- /dev/null +++ b/App/wisag_check_Att/wisag_check_Att.vbproj.bak @@ -0,0 +1,147 @@ + + + + + Debug + AnyCPU + {CD67B0B9-A7DE-447D-9982-E7AC43481DDC} + WinExe + wisag_check_Att.My.MyApplication + wisag_check_Att + wisag_check_Att + 512 + WindowsForms + v4.7.2 + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + wisag_check_Att.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + wisag_check_Att.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + ..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll + + + ..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll + + + P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Email .NET\Bin\Independentsoft.Email.dll + + + + ..\packages\NLog.4.7.10\lib\net45\NLog.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + Form1.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + Form1.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + \ No newline at end of file