From f0d152028626bee9625d9a78da42fc227ed63aea Mon Sep 17 00:00:00 2001 From: Developer01 Date: Tue, 24 Jun 2025 14:49:07 +0200 Subject: [PATCH] Form logging und methode wie im Service benutzen --- .../EmailProfiler.Common.vbproj | 32 +-- App/EmailProfiler.Form/App.config | 9 +- .../EmailProfiler.Form.vbproj | 46 ++-- App/EmailProfiler.Form/MailLicense.xml | 23 -- .../My Project/AssemblyInfo.vb | 4 +- .../My Project/Settings.Designer.vb | 31 +-- .../My Project/Settings.settings | 5 +- App/EmailProfiler.Form/Settings.vb | 11 + App/EmailProfiler.Form/frmMain.Designer.vb | 221 +++++++++--------- App/EmailProfiler.Form/frmMain.resx | 15 ++ App/EmailProfiler.Form/frmMain.vb | 47 +++- App/EmailProfiler.Form/packages.config | 3 + 12 files changed, 241 insertions(+), 206 deletions(-) delete mode 100644 App/EmailProfiler.Form/MailLicense.xml create mode 100644 App/EmailProfiler.Form/Settings.vb diff --git a/App/EmailProfiler.Common/EmailProfiler.Common.vbproj b/App/EmailProfiler.Common/EmailProfiler.Common.vbproj index d5a646a..b9257cd 100644 --- a/App/EmailProfiler.Common/EmailProfiler.Common.vbproj +++ b/App/EmailProfiler.Common/EmailProfiler.Common.vbproj @@ -49,26 +49,32 @@ ..\packages\AE.Net.Mail.1.7.10.0\lib\net45\AE.Net.Mail.dll - - ..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll + + False + ..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll - ..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll + ..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll - - ..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll + + False + ..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll - - ..\..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll + + False + ..\..\..\2_DLL Projekte\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll - - ..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll + + False + ..\..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll - - ..\..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll + + False + ..\..\..\2_DLL Projekte\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll - - ..\..\..\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll + + False + ..\..\..\2_DLL Projekte\DDModules\Patterns\bin\Debug\DigitalData.Modules.Patterns.dll ..\packages\GdPicture.14.2.90\lib\net462\GdPicture.NET.14.dll diff --git a/App/EmailProfiler.Form/App.config b/App/EmailProfiler.Form/App.config index af2132c..7ace168 100644 --- a/App/EmailProfiler.Form/App.config +++ b/App/EmailProfiler.Form/App.config @@ -26,12 +26,6 @@ - - Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd - - - - @@ -45,6 +39,9 @@ + + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd + diff --git a/App/EmailProfiler.Form/EmailProfiler.Form.vbproj b/App/EmailProfiler.Form/EmailProfiler.Form.vbproj index 21c6ea3..b85ffbc 100644 --- a/App/EmailProfiler.Form/EmailProfiler.Form.vbproj +++ b/App/EmailProfiler.Form/EmailProfiler.Form.vbproj @@ -64,35 +64,45 @@ False ..\..\..\DDMonorepo\GUIs.Common\bin\Debug\DigitalData.GUIs.Common.dll - - False - ..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll + + ..\..\..\2_DLL Projekte\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll - - False - ..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll + + ..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll - - False - ..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll + + ..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll - + + ..\..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll + + False - ..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll + ..\..\..\2_DLL Projekte\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll - + False - ..\..\..\DDModules\Messaging\bin\Debug\DigitalData.Modules.Messaging.dll + ..\EmailProfiler.Common\bin\Debug\EmailProfiler.Common.dll + + ..\packages\Microsoft.Identity.Client.4.55.0\lib\net461\Microsoft.Identity.Client.dll + + + ..\packages\Microsoft.IdentityModel.Abstractions.6.22.0\lib\net461\Microsoft.IdentityModel.Abstractions.dll + ..\packages\NLog.5.0.5\lib\net46\NLog.dll + + ..\packages\S22.Imap.3.6.0.0\lib\net40\S22.Imap.dll + + @@ -150,6 +160,7 @@ MyDataset.xsd + @@ -205,19 +216,10 @@ - - PreserveNewest - - - - {9f748dcd-952e-40a0-9dad-65bf8a39b231} - EmailProfiler.Common - - \ No newline at end of file diff --git a/App/EmailProfiler.Form/MailLicense.xml b/App/EmailProfiler.Form/MailLicense.xml deleted file mode 100644 index 0510526..0000000 --- a/App/EmailProfiler.Form/MailLicense.xml +++ /dev/null @@ -1,23 +0,0 @@ - - - 4dc5ef40-f1a9-468b-994c-b7ed600ad878 - Mail.dll - 2022-07-29 - Digital Data GmbH - single developer - Digital Data GmbH - - - - - - - - - - 75MRtl4ipYelIZYlpT8O7QDX9Zc= - - - Raxfkz6DfQVs/sMvH+F2nH0eHXD8FoUFSdP3t7AgBUdpABJQx86srlyuMSEhXPlc1THCqPouEVob4RsWnd9OXvTiPPSOUSK9zuNG6uz93KLAhpSD5PraAgBCF4jwZArlAp7aCNfZpHqQ3w6TRHS+CfravUU0AHHG3MZ1ZcRkGuo= - - \ No newline at end of file diff --git a/App/EmailProfiler.Form/My Project/AssemblyInfo.vb b/App/EmailProfiler.Form/My Project/AssemblyInfo.vb index 3c1c0be..cefcfae 100644 --- a/App/EmailProfiler.Form/My Project/AssemblyInfo.vb +++ b/App/EmailProfiler.Form/My Project/AssemblyInfo.vb @@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices - + @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/App/EmailProfiler.Form/My Project/Settings.Designer.vb b/App/EmailProfiler.Form/My Project/Settings.Designer.vb index a85007a..41bbd9a 100644 --- a/App/EmailProfiler.Form/My Project/Settings.Designer.vb +++ b/App/EmailProfiler.Form/My Project/Settings.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. ' '------------------------------------------------------------------------------ @@ -15,14 +15,14 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) -#Region "My.Settings Auto-Save Functionality" +#Region "Automatische My.Settings-Speicherfunktion" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean @@ -54,29 +54,14 @@ Namespace My End Get End Property - _ - Public Property MyConnectionString() As String + Public ReadOnly Property MyConnectionString() As String Get Return CType(Me("MyConnectionString"),String) End Get - Set - Me("MyConnectionString") = value - End Set - End Property - - _ - Public Property MyServer() As String - Get - Return CType(Me("MyServer"),String) - End Get - Set - Me("MyServer") = value - End Set End Property - + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd - - - diff --git a/App/EmailProfiler.Form/Settings.vb b/App/EmailProfiler.Form/Settings.vb new file mode 100644 index 0000000..6f46e04 --- /dev/null +++ b/App/EmailProfiler.Form/Settings.vb @@ -0,0 +1,11 @@ + +Namespace My + + 'Diese Klasse ermöglicht die Behandlung bestimmter Ereignisse der Einstellungsklasse: + ' Das SettingChanging-Ereignis wird ausgelöst, bevor der Wert einer Einstellung geändert wird. + ' Das PropertyChanged-Ereignis wird ausgelöst, nachdem der Wert einer Einstellung geändert wurde. + ' Das SettingsLoaded-Ereignis wird ausgelöst, nachdem die Einstellungswerte geladen wurden. + ' Das SettingsSaving-Ereignis wird ausgelöst, bevor die Einstellungswerte gespeichert werden. + Partial Friend NotInheritable Class MySettings + End Class +End Namespace diff --git a/App/EmailProfiler.Form/frmMain.Designer.vb b/App/EmailProfiler.Form/frmMain.Designer.vb index d49c739..61935bc 100644 --- a/App/EmailProfiler.Form/frmMain.Designer.vb +++ b/App/EmailProfiler.Form/frmMain.Designer.vb @@ -1369,9 +1369,9 @@ Partial Class frmMain 'cbAllowXMLReceipt ' Me.cbAllowXMLReceipt.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_PROCESSBindingSource, "ALLOW_XML_RECEIPTS", True)) - Me.cbAllowXMLReceipt.Location = New System.Drawing.Point(319, 310) + Me.cbAllowXMLReceipt.Location = New System.Drawing.Point(717, 698) Me.cbAllowXMLReceipt.Name = "cbAllowXMLReceipt" - Me.cbAllowXMLReceipt.Size = New System.Drawing.Size(182, 24) + Me.cbAllowXMLReceipt.Size = New System.Drawing.Size(410, 54) Me.cbAllowXMLReceipt.TabIndex = 93 Me.cbAllowXMLReceipt.Text = "Erlaube XML Belege (1. Anhang)" Me.cbAllowXMLReceipt.UseVisualStyleBackColor = True @@ -1388,41 +1388,41 @@ Partial Class frmMain Me.lblDownloadPath.AutoSize = True Me.lblDownloadPath.Location = New System.Drawing.Point(316, 188) Me.lblDownloadPath.Name = "lblDownloadPath" - Me.lblDownloadPath.Size = New System.Drawing.Size(44, 13) + Me.lblDownloadPath.Size = New System.Drawing.Size(44, 14) Me.lblDownloadPath.TabIndex = 92 Me.lblDownloadPath.Text = "Label15" ' 'PATH_ORIGINALTextBox ' Me.PATH_ORIGINALTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "PATH_ORIGINAL", True)) - Me.PATH_ORIGINALTextBox.Location = New System.Drawing.Point(319, 164) + Me.PATH_ORIGINALTextBox.Location = New System.Drawing.Point(717, 369) Me.PATH_ORIGINALTextBox.Name = "PATH_ORIGINALTextBox" - Me.PATH_ORIGINALTextBox.Size = New System.Drawing.Size(462, 21) + Me.PATH_ORIGINALTextBox.Size = New System.Drawing.Size(1040, 32) Me.PATH_ORIGINALTextBox.TabIndex = 91 ' 'btnFBD_ErrorPath ' - Me.btnFBD_ErrorPath.Location = New System.Drawing.Point(787, 243) + Me.btnFBD_ErrorPath.Location = New System.Drawing.Point(1770, 548) Me.btnFBD_ErrorPath.Name = "btnFBD_ErrorPath" - Me.btnFBD_ErrorPath.Size = New System.Drawing.Size(27, 21) + Me.btnFBD_ErrorPath.Size = New System.Drawing.Size(62, 48) Me.btnFBD_ErrorPath.TabIndex = 90 Me.btnFBD_ErrorPath.Text = "..." Me.btnFBD_ErrorPath.UseVisualStyleBackColor = True ' 'Button1 ' - Me.Button1.Location = New System.Drawing.Point(787, 164) + Me.Button1.Location = New System.Drawing.Point(1770, 369) Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(27, 21) + Me.Button1.Size = New System.Drawing.Size(62, 48) Me.Button1.TabIndex = 89 Me.Button1.Text = "..." Me.Button1.UseVisualStyleBackColor = True ' 'btnFBD_DonwloadPath ' - Me.btnFBD_DonwloadPath.Location = New System.Drawing.Point(787, 204) + Me.btnFBD_DonwloadPath.Location = New System.Drawing.Point(1770, 459) Me.btnFBD_DonwloadPath.Name = "btnFBD_DonwloadPath" - Me.btnFBD_DonwloadPath.Size = New System.Drawing.Size(27, 21) + Me.btnFBD_DonwloadPath.Size = New System.Drawing.Size(62, 48) Me.btnFBD_DonwloadPath.TabIndex = 89 Me.btnFBD_DonwloadPath.Text = "..." Me.btnFBD_DonwloadPath.UseVisualStyleBackColor = True @@ -1432,10 +1432,10 @@ Partial Class frmMain Me.txtSubjectExample.BackColor = System.Drawing.SystemColors.Window Me.txtSubjectExample.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.txtSubjectExample.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.txtSubjectExample.Location = New System.Drawing.Point(319, 121) + Me.txtSubjectExample.Location = New System.Drawing.Point(717, 273) Me.txtSubjectExample.Name = "txtSubjectExample" Me.txtSubjectExample.ReadOnly = True - Me.txtSubjectExample.Size = New System.Drawing.Size(462, 21) + Me.txtSubjectExample.Size = New System.Drawing.Size(1040, 32) Me.txtSubjectExample.TabIndex = 88 ' 'Label9 @@ -1443,7 +1443,7 @@ Partial Class frmMain Me.Label9.AutoSize = True Me.Label9.Location = New System.Drawing.Point(316, 107) Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(74, 13) + Me.Label9.Size = New System.Drawing.Size(74, 14) Me.Label9.TabIndex = 87 Me.Label9.Text = "Subject Email:" ' @@ -1453,7 +1453,7 @@ Partial Class frmMain Me.NumericUpDown2.Location = New System.Drawing.Point(250, 124) Me.NumericUpDown2.Maximum = New Decimal(New Integer() {20, 0, 0, 0}) Me.NumericUpDown2.Name = "NumericUpDown2" - Me.NumericUpDown2.Size = New System.Drawing.Size(61, 21) + Me.NumericUpDown2.Size = New System.Drawing.Size(26972, 21) Me.NumericUpDown2.TabIndex = 3 ' 'CHANGED_WHENTextBox1 @@ -1461,9 +1461,9 @@ Partial Class frmMain Me.CHANGED_WHENTextBox1.BackColor = System.Drawing.SystemColors.InactiveBorder Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "CHANGED_WHEN", True)) Me.CHANGED_WHENTextBox1.Enabled = False - Me.CHANGED_WHENTextBox1.Location = New System.Drawing.Point(705, 284) + Me.CHANGED_WHENTextBox1.Location = New System.Drawing.Point(1585, 639) Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" - Me.CHANGED_WHENTextBox1.Size = New System.Drawing.Size(111, 21) + Me.CHANGED_WHENTextBox1.Size = New System.Drawing.Size(251, 32) Me.CHANGED_WHENTextBox1.TabIndex = 84 Me.CHANGED_WHENTextBox1.TabStop = False ' @@ -1472,9 +1472,9 @@ Partial Class frmMain Me.CHANGED_WHOProcessTextBox.BackColor = System.Drawing.SystemColors.InactiveBorder Me.CHANGED_WHOProcessTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "CHANGED_WHO", True)) Me.CHANGED_WHOProcessTextBox.Enabled = False - Me.CHANGED_WHOProcessTextBox.Location = New System.Drawing.Point(576, 284) + Me.CHANGED_WHOProcessTextBox.Location = New System.Drawing.Point(1296, 639) Me.CHANGED_WHOProcessTextBox.Name = "CHANGED_WHOProcessTextBox" - Me.CHANGED_WHOProcessTextBox.Size = New System.Drawing.Size(124, 21) + Me.CHANGED_WHOProcessTextBox.Size = New System.Drawing.Size(279, 32) Me.CHANGED_WHOProcessTextBox.TabIndex = 83 Me.CHANGED_WHOProcessTextBox.TabStop = False ' @@ -1483,9 +1483,9 @@ Partial Class frmMain Me.ADDED_WHENTextBox1.BackColor = System.Drawing.SystemColors.InactiveBorder Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "ADDED_WHEN", True)) Me.ADDED_WHENTextBox1.Enabled = False - Me.ADDED_WHENTextBox1.Location = New System.Drawing.Point(443, 284) + Me.ADDED_WHENTextBox1.Location = New System.Drawing.Point(996, 639) Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" - Me.ADDED_WHENTextBox1.Size = New System.Drawing.Size(124, 21) + Me.ADDED_WHENTextBox1.Size = New System.Drawing.Size(279, 32) Me.ADDED_WHENTextBox1.TabIndex = 82 Me.ADDED_WHENTextBox1.TabStop = False ' @@ -1494,18 +1494,18 @@ Partial Class frmMain Me.ADDED_WHOTextBox1.BackColor = System.Drawing.SystemColors.InactiveBorder Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "ADDED_WHO", True)) Me.ADDED_WHOTextBox1.Enabled = False - Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(319, 284) + Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(717, 639) Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" - Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(120, 21) + Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(270, 32) Me.ADDED_WHOTextBox1.TabIndex = 81 Me.ADDED_WHOTextBox1.TabStop = False ' 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(820, 244) + Me.Label5.Location = New System.Drawing.Point(820, 245) Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(65, 13) + Me.Label5.Size = New System.Drawing.Size(65, 14) Me.Label5.TabIndex = 80 Me.Label5.Text = "Kommentar:" ' @@ -1524,9 +1524,9 @@ Partial Class frmMain Me.GroupBox2.Controls.Add(Me.WM_IDX_BODY_TEXTComboBox) Me.GroupBox2.Controls.Add(Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox) Me.GroupBox2.Controls.Add(WM_IDX_BODY_SUBSTR_LENGTHLabel) - Me.GroupBox2.Location = New System.Drawing.Point(820, 39) + Me.GroupBox2.Location = New System.Drawing.Point(1845, 89) Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(329, 202) + Me.GroupBox2.Size = New System.Drawing.Size(741, 455) Me.GroupBox2.TabIndex = 79 Me.GroupBox2.TabStop = False ' @@ -1597,9 +1597,9 @@ Partial Class frmMain Me.STEP_NAMEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "STEP_NAME", True)) Me.STEP_NAMEComboBox.FormattingEnabled = True Me.STEP_NAMEComboBox.Items.AddRange(New Object() {"Easy Approval", "Download Mail", "Other"}) - Me.STEP_NAMEComboBox.Location = New System.Drawing.Point(509, 41) + Me.STEP_NAMEComboBox.Location = New System.Drawing.Point(1144, 93) Me.STEP_NAMEComboBox.Name = "STEP_NAMEComboBox" - Me.STEP_NAMEComboBox.Size = New System.Drawing.Size(121, 21) + Me.STEP_NAMEComboBox.Size = New System.Drawing.Size(273, 32) Me.STEP_NAMEComboBox.TabIndex = 1 ' 'PROCESS_NAMEComboBox @@ -1607,9 +1607,9 @@ Partial Class frmMain Me.PROCESS_NAMEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "PROCESS_NAME", True)) Me.PROCESS_NAMEComboBox.FormattingEnabled = True Me.PROCESS_NAMEComboBox.Items.AddRange(New Object() {"ProcessManager", "ADDI", "Globix", "Attachment Sniffer", "ZugFeRD-Parser", "Not defined"}) - Me.PROCESS_NAMEComboBox.Location = New System.Drawing.Point(319, 41) + Me.PROCESS_NAMEComboBox.Location = New System.Drawing.Point(717, 93) Me.PROCESS_NAMEComboBox.Name = "PROCESS_NAMEComboBox" - Me.PROCESS_NAMEComboBox.Size = New System.Drawing.Size(185, 21) + Me.PROCESS_NAMEComboBox.Size = New System.Drawing.Size(417, 32) Me.PROCESS_NAMEComboBox.TabIndex = 0 ' 'GUIDProcessTextBox @@ -1617,18 +1617,18 @@ Partial Class frmMain Me.GUIDProcessTextBox.BackColor = System.Drawing.SystemColors.InactiveBorder Me.GUIDProcessTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "GUID", True)) Me.GUIDProcessTextBox.Enabled = False - Me.GUIDProcessTextBox.Location = New System.Drawing.Point(251, 42) + Me.GUIDProcessTextBox.Location = New System.Drawing.Point(564, 95) Me.GUIDProcessTextBox.Name = "GUIDProcessTextBox" - Me.GUIDProcessTextBox.Size = New System.Drawing.Size(51, 21) + Me.GUIDProcessTextBox.Size = New System.Drawing.Size(116, 32) Me.GUIDProcessTextBox.TabIndex = 33 Me.GUIDProcessTextBox.TabStop = False ' 'COPY_2_HDDCheckBox ' Me.COPY_2_HDDCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_PROCESSBindingSource, "COPY_2_HDD", True)) - Me.COPY_2_HDDCheckBox.Location = New System.Drawing.Point(319, 148) + Me.COPY_2_HDDCheckBox.Location = New System.Drawing.Point(717, 333) Me.COPY_2_HDDCheckBox.Name = "COPY_2_HDDCheckBox" - Me.COPY_2_HDDCheckBox.Size = New System.Drawing.Size(275, 17) + Me.COPY_2_HDDCheckBox.Size = New System.Drawing.Size(620, 39) Me.COPY_2_HDDCheckBox.TabIndex = 6 Me.COPY_2_HDDCheckBox.Text = "Copy email to HDD" Me.COPY_2_HDDCheckBox.UseVisualStyleBackColor = True @@ -1636,25 +1636,25 @@ Partial Class frmMain 'PATH_EMAIL_TEMPTextBox ' Me.PATH_EMAIL_TEMPTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "PATH_EMAIL_TEMP", True)) - Me.PATH_EMAIL_TEMPTextBox.Location = New System.Drawing.Point(319, 204) + Me.PATH_EMAIL_TEMPTextBox.Location = New System.Drawing.Point(717, 459) Me.PATH_EMAIL_TEMPTextBox.Name = "PATH_EMAIL_TEMPTextBox" - Me.PATH_EMAIL_TEMPTextBox.Size = New System.Drawing.Size(462, 21) + Me.PATH_EMAIL_TEMPTextBox.Size = New System.Drawing.Size(1040, 32) Me.PATH_EMAIL_TEMPTextBox.TabIndex = 9 ' 'PATH_EMAIL_ERRORSTextBox ' Me.PATH_EMAIL_ERRORSTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "PATH_EMAIL_ERRORS", True)) - Me.PATH_EMAIL_ERRORSTextBox.Location = New System.Drawing.Point(319, 244) + Me.PATH_EMAIL_ERRORSTextBox.Location = New System.Drawing.Point(717, 549) Me.PATH_EMAIL_ERRORSTextBox.Name = "PATH_EMAIL_ERRORSTextBox" - Me.PATH_EMAIL_ERRORSTextBox.Size = New System.Drawing.Size(462, 21) + Me.PATH_EMAIL_ERRORSTextBox.Size = New System.Drawing.Size(1040, 32) Me.PATH_EMAIL_ERRORSTextBox.TabIndex = 11 ' 'DELETE_MAILCheckBox ' Me.DELETE_MAILCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_PROCESSBindingSource, "DELETE_MAIL", True)) - Me.DELETE_MAILCheckBox.Location = New System.Drawing.Point(319, 75) + Me.DELETE_MAILCheckBox.Location = New System.Drawing.Point(717, 170) Me.DELETE_MAILCheckBox.Name = "DELETE_MAILCheckBox" - Me.DELETE_MAILCheckBox.Size = New System.Drawing.Size(468, 24) + Me.DELETE_MAILCheckBox.Size = New System.Drawing.Size(1053, 54) Me.DELETE_MAILCheckBox.TabIndex = 2 Me.DELETE_MAILCheckBox.Text = "Email nach Verarbeitung löschen (Andernfalls muss ein IMAP Ordner 'Verarbeitet' e" & "xistieren)" @@ -1663,18 +1663,18 @@ Partial Class frmMain 'COMMENT_PROFILESTextBox ' Me.COMMENT_PROFILESTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "COMMENT", True)) - Me.COMMENT_PROFILESTextBox.Location = New System.Drawing.Point(822, 260) + Me.COMMENT_PROFILESTextBox.Location = New System.Drawing.Point(1849, 585) Me.COMMENT_PROFILESTextBox.Multiline = True Me.COMMENT_PROFILESTextBox.Name = "COMMENT_PROFILESTextBox" - Me.COMMENT_PROFILESTextBox.Size = New System.Drawing.Size(327, 45) + Me.COMMENT_PROFILESTextBox.Size = New System.Drawing.Size(737, 102) Me.COMMENT_PROFILESTextBox.TabIndex = 10 ' 'ACTIVECheckBox1 ' Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_PROCESSBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox1.Location = New System.Drawing.Point(251, 78) + Me.ACTIVECheckBox1.Location = New System.Drawing.Point(564, 176) Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1" - Me.ACTIVECheckBox1.Size = New System.Drawing.Size(60, 24) + Me.ACTIVECheckBox1.Size = New System.Drawing.Size(135, 54) Me.ACTIVECheckBox1.TabIndex = 3 Me.ACTIVECheckBox1.Text = "Active" Me.ACTIVECheckBox1.UseVisualStyleBackColor = True @@ -1687,14 +1687,14 @@ Partial Class frmMain Me.BindingNavigator2.CountItemFormat = "von {0} Prozessen" Me.BindingNavigator2.DeleteItem = Me.ToolStripButton3 Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripButton5, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton6, Me.ToolStripButton7, Me.ToolStripSeparator3, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton8, Me.ToolStripButton10}) - Me.BindingNavigator2.Location = New System.Drawing.Point(245, 0) + Me.BindingNavigator2.Location = New System.Drawing.Point(244, 0) Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton4 Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton7 Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton6 Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton5 Me.BindingNavigator2.Name = "BindingNavigator2" Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox1 - Me.BindingNavigator2.Size = New System.Drawing.Size(974, 25) + Me.BindingNavigator2.Size = New System.Drawing.Size(974, 26) Me.BindingNavigator2.TabIndex = 32 Me.BindingNavigator2.Text = "BindingNavigator2" ' @@ -1809,7 +1809,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(245, 337) + Me.GridControl1.Size = New System.Drawing.Size(245, 338) Me.GridControl1.TabIndex = 0 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' @@ -1890,7 +1890,7 @@ Partial Class frmMain Me.NumericUpDown1.Location = New System.Drawing.Point(914, 81) Me.NumericUpDown1.Maximum = New Decimal(New Integer() {20, 0, 0, 0}) Me.NumericUpDown1.Name = "NumericUpDown1" - Me.NumericUpDown1.Size = New System.Drawing.Size(61, 21) + Me.NumericUpDown1.Size = New System.Drawing.Size(1, 14) Me.NumericUpDown1.TabIndex = 59 ' 'TBEMLP_POLL_STEPSBindingSource @@ -1904,36 +1904,36 @@ Partial Class frmMain ' Me.CHANGED_WHENTextBox2.BackColor = System.Drawing.SystemColors.InactiveBorder Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox2.Location = New System.Drawing.Point(685, 121) + Me.CHANGED_WHENTextBox2.Location = New System.Drawing.Point(1540, 273) Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2" - Me.CHANGED_WHENTextBox2.Size = New System.Drawing.Size(120, 21) + Me.CHANGED_WHENTextBox2.Size = New System.Drawing.Size(270, 32) Me.CHANGED_WHENTextBox2.TabIndex = 37 ' 'CHANGED_WHOStepsTextBox ' Me.CHANGED_WHOStepsTextBox.BackColor = System.Drawing.SystemColors.InactiveBorder Me.CHANGED_WHOStepsTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOStepsTextBox.Location = New System.Drawing.Point(573, 121) + Me.CHANGED_WHOStepsTextBox.Location = New System.Drawing.Point(1288, 273) Me.CHANGED_WHOStepsTextBox.Name = "CHANGED_WHOStepsTextBox" - Me.CHANGED_WHOStepsTextBox.Size = New System.Drawing.Size(100, 21) + Me.CHANGED_WHOStepsTextBox.Size = New System.Drawing.Size(225, 32) Me.CHANGED_WHOStepsTextBox.TabIndex = 36 ' 'ADDED_WHENTextBox2 ' Me.ADDED_WHENTextBox2.BackColor = System.Drawing.SystemColors.InactiveBorder Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox2.Location = New System.Drawing.Point(443, 121) + Me.ADDED_WHENTextBox2.Location = New System.Drawing.Point(996, 273) Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2" - Me.ADDED_WHENTextBox2.Size = New System.Drawing.Size(124, 21) + Me.ADDED_WHENTextBox2.Size = New System.Drawing.Size(279, 32) Me.ADDED_WHENTextBox2.TabIndex = 35 ' 'ADDED_WHOTextBox2 ' Me.ADDED_WHOTextBox2.BackColor = System.Drawing.SystemColors.InactiveBorder Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox2.Location = New System.Drawing.Point(317, 121) + Me.ADDED_WHOTextBox2.Location = New System.Drawing.Point(712, 273) Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2" - Me.ADDED_WHOTextBox2.Size = New System.Drawing.Size(120, 21) + Me.ADDED_WHOTextBox2.Size = New System.Drawing.Size(270, 32) Me.ADDED_WHOTextBox2.TabIndex = 34 ' 'BindingNavigator3 @@ -2063,41 +2063,41 @@ Partial Class frmMain ' Me.GUIDPollStepsTextBox.BackColor = System.Drawing.SystemColors.InactiveBorder Me.GUIDPollStepsTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "GUID", True)) - Me.GUIDPollStepsTextBox.Location = New System.Drawing.Point(254, 41) + Me.GUIDPollStepsTextBox.Location = New System.Drawing.Point(571, 93) Me.GUIDPollStepsTextBox.Name = "GUIDPollStepsTextBox" - Me.GUIDPollStepsTextBox.Size = New System.Drawing.Size(57, 21) + Me.GUIDPollStepsTextBox.Size = New System.Drawing.Size(129, 32) Me.GUIDPollStepsTextBox.TabIndex = 2 ' 'STEP_NAMETextBox ' Me.STEP_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "STEP_NAME", True)) - Me.STEP_NAMETextBox.Location = New System.Drawing.Point(317, 41) + Me.STEP_NAMETextBox.Location = New System.Drawing.Point(712, 93) Me.STEP_NAMETextBox.Name = "STEP_NAMETextBox" - Me.STEP_NAMETextBox.Size = New System.Drawing.Size(221, 21) + Me.STEP_NAMETextBox.Size = New System.Drawing.Size(498, 32) Me.STEP_NAMETextBox.TabIndex = 6 ' 'KEYWORDS_BODYTextBox ' Me.KEYWORDS_BODYTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "KEYWORDS_BODY", True)) - Me.KEYWORDS_BODYTextBox.Location = New System.Drawing.Point(544, 41) + Me.KEYWORDS_BODYTextBox.Location = New System.Drawing.Point(1224, 93) Me.KEYWORDS_BODYTextBox.Name = "KEYWORDS_BODYTextBox" - Me.KEYWORDS_BODYTextBox.Size = New System.Drawing.Size(364, 21) + Me.KEYWORDS_BODYTextBox.Size = New System.Drawing.Size(819, 32) Me.KEYWORDS_BODYTextBox.TabIndex = 8 ' 'COMMENTTextBox1 ' Me.COMMENTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_STEPSBindingSource, "COMMENT", True)) - Me.COMMENTTextBox1.Location = New System.Drawing.Point(317, 81) + Me.COMMENTTextBox1.Location = New System.Drawing.Point(712, 183) Me.COMMENTTextBox1.Name = "COMMENTTextBox1" - Me.COMMENTTextBox1.Size = New System.Drawing.Size(591, 21) + Me.COMMENTTextBox1.Size = New System.Drawing.Size(1331, 32) Me.COMMENTTextBox1.TabIndex = 10 ' 'ACTIVECheckBox2 ' Me.ACTIVECheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_STEPSBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox2.Location = New System.Drawing.Point(254, 78) + Me.ACTIVECheckBox2.Location = New System.Drawing.Point(571, 176) Me.ACTIVECheckBox2.Name = "ACTIVECheckBox2" - Me.ACTIVECheckBox2.Size = New System.Drawing.Size(57, 24) + Me.ACTIVECheckBox2.Size = New System.Drawing.Size(129, 54) Me.ACTIVECheckBox2.TabIndex = 12 Me.ACTIVECheckBox2.Text = "Active" Me.ACTIVECheckBox2.UseVisualStyleBackColor = True @@ -2109,7 +2109,7 @@ Partial Class frmMain Me.GridControl2.Location = New System.Drawing.Point(0, 0) Me.GridControl2.MainView = Me.GridView2 Me.GridControl2.Name = "GridControl2" - Me.GridControl2.Size = New System.Drawing.Size(245, 337) + Me.GridControl2.Size = New System.Drawing.Size(245, 225) Me.GridControl2.TabIndex = 1 Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) ' @@ -2179,10 +2179,10 @@ Partial Class frmMain 'SEQUENCENumericUpDown ' Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "SEQUENCE", True)) - Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(508, 82) + Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(1143, 185) Me.SEQUENCENumericUpDown.Maximum = New Decimal(New Integer() {20, 0, 0, 0}) Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown" - Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(61, 21) + Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(2, 21) Me.SEQUENCENumericUpDown.TabIndex = 57 ' 'TBEMLP_POLL_INDEXING_STEPSBindingSource @@ -2196,34 +2196,34 @@ Partial Class frmMain ' Me.GUIDTextBox1.BackColor = System.Drawing.SystemColors.InactiveBorder Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "GUID", True)) - Me.GUIDTextBox1.Location = New System.Drawing.Point(254, 42) + Me.GUIDTextBox1.Location = New System.Drawing.Point(571, 95) Me.GUIDTextBox1.Name = "GUIDTextBox1" - Me.GUIDTextBox1.Size = New System.Drawing.Size(66, 21) + Me.GUIDTextBox1.Size = New System.Drawing.Size(149, 32) Me.GUIDTextBox1.TabIndex = 36 ' 'INDEXNAMEIndexStepsComboBox ' Me.INDEXNAMEIndexStepsComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "INDEXNAME", True)) Me.INDEXNAMEIndexStepsComboBox.FormattingEnabled = True - Me.INDEXNAMEIndexStepsComboBox.Location = New System.Drawing.Point(326, 42) + Me.INDEXNAMEIndexStepsComboBox.Location = New System.Drawing.Point(733, 95) Me.INDEXNAMEIndexStepsComboBox.Name = "INDEXNAMEIndexStepsComboBox" - Me.INDEXNAMEIndexStepsComboBox.Size = New System.Drawing.Size(173, 21) + Me.INDEXNAMEIndexStepsComboBox.Size = New System.Drawing.Size(390, 32) Me.INDEXNAMEIndexStepsComboBox.TabIndex = 40 ' 'INDEXVALUETextBox ' Me.INDEXVALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "INDEXVALUE", True)) - Me.INDEXVALUETextBox.Location = New System.Drawing.Point(508, 42) + Me.INDEXVALUETextBox.Location = New System.Drawing.Point(1143, 95) Me.INDEXVALUETextBox.Name = "INDEXVALUETextBox" - Me.INDEXVALUETextBox.Size = New System.Drawing.Size(200, 21) + Me.INDEXVALUETextBox.Size = New System.Drawing.Size(450, 32) Me.INDEXVALUETextBox.TabIndex = 42 ' 'ACTIVECheckBox3 ' Me.ACTIVECheckBox3.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "ACTIVE", True)) - Me.ACTIVECheckBox3.Location = New System.Drawing.Point(254, 69) + Me.ACTIVECheckBox3.Location = New System.Drawing.Point(571, 156) Me.ACTIVECheckBox3.Name = "ACTIVECheckBox3" - Me.ACTIVECheckBox3.Size = New System.Drawing.Size(66, 24) + Me.ACTIVECheckBox3.Size = New System.Drawing.Size(149, 54) Me.ACTIVECheckBox3.TabIndex = 44 Me.ACTIVECheckBox3.Text = "Active" Me.ACTIVECheckBox3.UseVisualStyleBackColor = True @@ -2231,9 +2231,9 @@ Partial Class frmMain 'USE_FOR_DIRECT_ANSWERCheckBox ' Me.USE_FOR_DIRECT_ANSWERCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "USE_FOR_DIRECT_ANSWER", True)) - Me.USE_FOR_DIRECT_ANSWERCheckBox.Location = New System.Drawing.Point(326, 72) + Me.USE_FOR_DIRECT_ANSWERCheckBox.Location = New System.Drawing.Point(733, 162) Me.USE_FOR_DIRECT_ANSWERCheckBox.Name = "USE_FOR_DIRECT_ANSWERCheckBox" - Me.USE_FOR_DIRECT_ANSWERCheckBox.Size = New System.Drawing.Size(179, 24) + Me.USE_FOR_DIRECT_ANSWERCheckBox.Size = New System.Drawing.Size(404, 54) Me.USE_FOR_DIRECT_ANSWERCheckBox.TabIndex = 46 Me.USE_FOR_DIRECT_ANSWERCheckBox.Text = "Index in case of direct answer" Me.USE_FOR_DIRECT_ANSWERCheckBox.UseVisualStyleBackColor = True @@ -2242,36 +2242,36 @@ Partial Class frmMain ' Me.ADDED_WHOTextBox3.BackColor = System.Drawing.SystemColors.InactiveBorder Me.ADDED_WHOTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "ADDED_WHO", True)) - Me.ADDED_WHOTextBox3.Location = New System.Drawing.Point(324, 125) + Me.ADDED_WHOTextBox3.Location = New System.Drawing.Point(729, 282) Me.ADDED_WHOTextBox3.Name = "ADDED_WHOTextBox3" - Me.ADDED_WHOTextBox3.Size = New System.Drawing.Size(121, 21) + Me.ADDED_WHOTextBox3.Size = New System.Drawing.Size(273, 32) Me.ADDED_WHOTextBox3.TabIndex = 50 ' 'ADDED_WHENTextBox3 ' Me.ADDED_WHENTextBox3.BackColor = System.Drawing.SystemColors.InactiveBorder Me.ADDED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox3.Location = New System.Drawing.Point(454, 125) + Me.ADDED_WHENTextBox3.Location = New System.Drawing.Point(1021, 282) Me.ADDED_WHENTextBox3.Name = "ADDED_WHENTextBox3" - Me.ADDED_WHENTextBox3.Size = New System.Drawing.Size(121, 21) + Me.ADDED_WHENTextBox3.Size = New System.Drawing.Size(273, 32) Me.ADDED_WHENTextBox3.TabIndex = 52 ' 'CHANGED_WHOIndexingStepsTextBox ' Me.CHANGED_WHOIndexingStepsTextBox.BackColor = System.Drawing.SystemColors.InactiveBorder Me.CHANGED_WHOIndexingStepsTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOIndexingStepsTextBox.Location = New System.Drawing.Point(584, 125) + Me.CHANGED_WHOIndexingStepsTextBox.Location = New System.Drawing.Point(1314, 282) Me.CHANGED_WHOIndexingStepsTextBox.Name = "CHANGED_WHOIndexingStepsTextBox" - Me.CHANGED_WHOIndexingStepsTextBox.Size = New System.Drawing.Size(122, 21) + Me.CHANGED_WHOIndexingStepsTextBox.Size = New System.Drawing.Size(275, 32) Me.CHANGED_WHOIndexingStepsTextBox.TabIndex = 54 ' 'CHANGED_WHENTextBox3 ' Me.CHANGED_WHENTextBox3.BackColor = System.Drawing.SystemColors.InactiveBorder Me.CHANGED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_INDEXING_STEPSBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox3.Location = New System.Drawing.Point(714, 125) + Me.CHANGED_WHENTextBox3.Location = New System.Drawing.Point(1606, 282) Me.CHANGED_WHENTextBox3.Name = "CHANGED_WHENTextBox3" - Me.CHANGED_WHENTextBox3.Size = New System.Drawing.Size(121, 21) + Me.CHANGED_WHENTextBox3.Size = New System.Drawing.Size(273, 32) Me.CHANGED_WHENTextBox3.TabIndex = 56 ' 'BindingNavigator4 @@ -2404,7 +2404,7 @@ Partial Class frmMain Me.GridControl3.Location = New System.Drawing.Point(0, 0) Me.GridControl3.MainView = Me.GridView3 Me.GridControl3.Name = "GridControl3" - Me.GridControl3.Size = New System.Drawing.Size(245, 337) + Me.GridControl3.Size = New System.Drawing.Size(245, 338) Me.GridControl3.TabIndex = 34 Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) ' @@ -2575,6 +2575,7 @@ Partial Class frmMain Me.btnCheckIMAPObjects.Name = "btnCheckIMAPObjects" Me.btnCheckIMAPObjects.Size = New System.Drawing.Size(189, 35) Me.btnCheckIMAPObjects.TabIndex = 80 + Me.btnCheckIMAPObjects.TabStop = False Me.btnCheckIMAPObjects.Text = "Check Unseen IMAP Objects" Me.btnCheckIMAPObjects.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnCheckIMAPObjects.UseVisualStyleBackColor = True @@ -2588,7 +2589,7 @@ Partial Class frmMain Me.AUTH_TYPEComboBox.Location = New System.Drawing.Point(701, 164) Me.AUTH_TYPEComboBox.Name = "AUTH_TYPEComboBox" Me.AUTH_TYPEComboBox.Size = New System.Drawing.Size(121, 21) - Me.AUTH_TYPEComboBox.TabIndex = 79 + Me.AUTH_TYPEComboBox.TabIndex = 8 ' 'btntestImap ' @@ -2598,6 +2599,7 @@ Partial Class frmMain Me.btntestImap.Name = "btntestImap" Me.btntestImap.Size = New System.Drawing.Size(117, 35) Me.btntestImap.TabIndex = 68 + Me.btntestImap.TabStop = False Me.btntestImap.Text = "Test IMAP" Me.btntestImap.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btntestImap.UseVisualStyleBackColor = True @@ -2608,7 +2610,7 @@ Partial Class frmMain Me.ARCHIVE_FOLDERTextBox.Location = New System.Drawing.Point(831, 164) Me.ARCHIVE_FOLDERTextBox.Name = "ARCHIVE_FOLDERTextBox" Me.ARCHIVE_FOLDERTextBox.Size = New System.Drawing.Size(227, 21) - Me.ARCHIVE_FOLDERTextBox.TabIndex = 77 + Me.ARCHIVE_FOLDERTextBox.TabIndex = 9 ' 'PORT_INTextBox ' @@ -2616,7 +2618,7 @@ Partial Class frmMain Me.PORT_INTextBox.Location = New System.Drawing.Point(496, 164) Me.PORT_INTextBox.Name = "PORT_INTextBox" Me.PORT_INTextBox.Size = New System.Drawing.Size(100, 21) - Me.PORT_INTextBox.TabIndex = 71 + Me.PORT_INTextBox.TabIndex = 7 ' 'txtTestmail ' @@ -2625,7 +2627,7 @@ Partial Class frmMain Me.txtTestmail.Location = New System.Drawing.Point(373, 258) Me.txtTestmail.Name = "txtTestmail" Me.txtTestmail.Size = New System.Drawing.Size(311, 21) - Me.txtTestmail.TabIndex = 67 + Me.txtTestmail.TabIndex = 10 Me.txtTestmail.Text = Global.EmailProfiler.Form.My.MySettings.Default.EmailTest_Receipiant ' 'Label12 @@ -2645,6 +2647,7 @@ Partial Class frmMain Me.btnsendtestmail.Name = "btnsendtestmail" Me.btnsendtestmail.Size = New System.Drawing.Size(117, 35) Me.btnsendtestmail.TabIndex = 65 + Me.btnsendtestmail.TabStop = False Me.btnsendtestmail.Text = "Send testmail" Me.btnsendtestmail.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnsendtestmail.UseVisualStyleBackColor = True @@ -2655,7 +2658,7 @@ Partial Class frmMain Me.txtnewpasswort.Location = New System.Drawing.Point(738, 124) Me.txtnewpasswort.Name = "txtnewpasswort" Me.txtnewpasswort.Size = New System.Drawing.Size(186, 21) - Me.txtnewpasswort.TabIndex = 63 + Me.txtnewpasswort.TabIndex = 4 Me.txtnewpasswort.UseSystemPasswordChar = True ' 'ContextMenuStrip2 @@ -2677,7 +2680,7 @@ Partial Class frmMain Me.Button4.Location = New System.Drawing.Point(930, 122) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(128, 23) - Me.Button4.TabIndex = 62 + Me.Button4.TabIndex = 5 Me.Button4.Text = "Encrypt passwort" Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button4.UseVisualStyleBackColor = True @@ -2689,6 +2692,7 @@ Partial Class frmMain Me.EMAILIDTextBox.Name = "EMAILIDTextBox" Me.EMAILIDTextBox.Size = New System.Drawing.Size(50, 21) Me.EMAILIDTextBox.TabIndex = 35 + Me.EMAILIDTextBox.TabStop = False ' 'NAMETextBox ' @@ -2696,7 +2700,7 @@ Partial Class frmMain Me.NAMETextBox.Location = New System.Drawing.Point(373, 44) Me.NAMETextBox.Name = "NAMETextBox" Me.NAMETextBox.Size = New System.Drawing.Size(323, 21) - Me.NAMETextBox.TabIndex = 37 + Me.NAMETextBox.TabIndex = 0 ' 'EMAIL_FROMTextBox ' @@ -2704,7 +2708,7 @@ Partial Class frmMain Me.EMAIL_FROMTextBox.Location = New System.Drawing.Point(373, 84) Me.EMAIL_FROMTextBox.Name = "EMAIL_FROMTextBox" Me.EMAIL_FROMTextBox.Size = New System.Drawing.Size(323, 21) - Me.EMAIL_FROMTextBox.TabIndex = 39 + Me.EMAIL_FROMTextBox.TabIndex = 1 ' 'EMAIL_SMTPTextBox ' @@ -2712,7 +2716,7 @@ Partial Class frmMain Me.EMAIL_SMTPTextBox.Location = New System.Drawing.Point(701, 84) Me.EMAIL_SMTPTextBox.Name = "EMAIL_SMTPTextBox" Me.EMAIL_SMTPTextBox.Size = New System.Drawing.Size(357, 21) - Me.EMAIL_SMTPTextBox.TabIndex = 41 + Me.EMAIL_SMTPTextBox.TabIndex = 2 ' 'EMAIL_USERTextBox ' @@ -2720,7 +2724,7 @@ Partial Class frmMain Me.EMAIL_USERTextBox.Location = New System.Drawing.Point(373, 124) Me.EMAIL_USERTextBox.Name = "EMAIL_USERTextBox" Me.EMAIL_USERTextBox.Size = New System.Drawing.Size(323, 21) - Me.EMAIL_USERTextBox.TabIndex = 43 + Me.EMAIL_USERTextBox.TabIndex = 3 ' 'EMAIL_PWTextBox ' @@ -2739,7 +2743,7 @@ Partial Class frmMain Me.PORTTextBox.Location = New System.Drawing.Point(373, 164) Me.PORTTextBox.Name = "PORTTextBox" Me.PORTTextBox.Size = New System.Drawing.Size(121, 21) - Me.PORTTextBox.TabIndex = 47 + Me.PORTTextBox.TabIndex = 6 ' 'ACTIVECheckBox4 ' @@ -2748,6 +2752,7 @@ Partial Class frmMain Me.ACTIVECheckBox4.Name = "ACTIVECheckBox4" Me.ACTIVECheckBox4.Size = New System.Drawing.Size(59, 24) Me.ACTIVECheckBox4.TabIndex = 49 + Me.ACTIVECheckBox4.TabStop = False Me.ACTIVECheckBox4.Text = "Aktiv" Me.ACTIVECheckBox4.UseVisualStyleBackColor = True ' @@ -2757,7 +2762,8 @@ Partial Class frmMain Me.ADDED_WHOTextBox4.Location = New System.Drawing.Point(373, 313) Me.ADDED_WHOTextBox4.Name = "ADDED_WHOTextBox4" Me.ADDED_WHOTextBox4.Size = New System.Drawing.Size(166, 21) - Me.ADDED_WHOTextBox4.TabIndex = 51 + Me.ADDED_WHOTextBox4.TabIndex = 11 + Me.ADDED_WHOTextBox4.TabStop = False ' 'ADDED_WHENTextBox4 ' @@ -2765,7 +2771,8 @@ Partial Class frmMain Me.ADDED_WHENTextBox4.Location = New System.Drawing.Point(545, 313) Me.ADDED_WHENTextBox4.Name = "ADDED_WHENTextBox4" Me.ADDED_WHENTextBox4.Size = New System.Drawing.Size(151, 21) - Me.ADDED_WHENTextBox4.TabIndex = 53 + Me.ADDED_WHENTextBox4.TabIndex = 12 + Me.ADDED_WHENTextBox4.TabStop = False ' 'CHANGED_WHOTextBox1 ' @@ -2773,7 +2780,8 @@ Partial Class frmMain Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(373, 353) Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(166, 21) - Me.CHANGED_WHOTextBox1.TabIndex = 55 + Me.CHANGED_WHOTextBox1.TabIndex = 13 + Me.CHANGED_WHOTextBox1.TabStop = False ' 'CHANGED_WHENTextBox5 ' @@ -2781,7 +2789,8 @@ Partial Class frmMain Me.CHANGED_WHENTextBox5.Location = New System.Drawing.Point(545, 353) Me.CHANGED_WHENTextBox5.Name = "CHANGED_WHENTextBox5" Me.CHANGED_WHENTextBox5.Size = New System.Drawing.Size(151, 21) - Me.CHANGED_WHENTextBox5.TabIndex = 57 + Me.CHANGED_WHENTextBox5.TabIndex = 14 + Me.CHANGED_WHENTextBox5.TabStop = False ' 'GridControl6 ' @@ -2866,8 +2875,8 @@ Partial Class frmMain 'BindingNavigatorCountItem1 ' Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" - Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(35, 22) - Me.BindingNavigatorCountItem1.Text = "of {0}" + Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem1.Text = "von {0}" Me.BindingNavigatorCountItem1.ToolTipText = "Die Gesamtanzahl der Elemente." ' 'BindingNavigatorDeleteItem1 diff --git a/App/EmailProfiler.Form/frmMain.resx b/App/EmailProfiler.Form/frmMain.resx index 3eb1a6a..50b40b5 100644 --- a/App/EmailProfiler.Form/frmMain.resx +++ b/App/EmailProfiler.Form/frmMain.resx @@ -460,6 +460,9 @@ 537, 95 + + 537, 95 + 1021, 95 @@ -643,6 +646,15 @@ TDI0LDIzLjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + 851, 173 + + + 180, 56 + + + 623, 134 + 1162, 173 @@ -716,6 +728,9 @@ 239, 173 + + 239, 173 + 1297, 134 diff --git a/App/EmailProfiler.Form/frmMain.vb b/App/EmailProfiler.Form/frmMain.vb index 8e5aaef..280942e 100644 --- a/App/EmailProfiler.Form/frmMain.vb +++ b/App/EmailProfiler.Form/frmMain.vb @@ -1,12 +1,15 @@ Imports System.ComponentModel Imports System.IO +Imports System.Net.Mail Imports System.Text.RegularExpressions +Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Tab +Imports DevExpress.XtraPrinting.Export +Imports DigitalData.GUIs.Common +Imports DigitalData.Modules.Config Imports DigitalData.Modules.Database Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Messaging -Imports DigitalData.Modules.Config Imports DigitalData.Modules.Messaging.Mail -Imports DigitalData.GUIs.Common Imports EmailProfiler.Common Public Class frmMain @@ -24,6 +27,8 @@ Public Class frmMain Private _DBConfig As ClassDBConfig.Config Private MyConnectionString As String + Private _MailSender As Mail.MailSender + Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load Try LogConfig = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, My.Application.Info.CompanyName, My.Application.Info.ProductName) @@ -728,16 +733,44 @@ Public Class frmMain Private Sub btnsendtestmail_Click(sender As Object, e As EventArgs) Handles btnsendtestmail.Click If txtTestmail.Text <> String.Empty Then ConfigManager.Save() + My.Settings.Save() + Cursor = Cursors.WaitCursor Dim PWPlain = _Encryption.DecryptData(EMAIL_PWTextBox.Text) - - If _limilab.NewSMTPEmail(txtTestmail.Text, "Testmail", "This is the body (text will be replaced within profile)", EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, - EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "frmMain-Test", "", "", True) = True Then - - + 'NEW + _MailSender = New Mail.MailSender(LogConfig) + Dim oOptions As New Mail.MailSession.MailSessionOptions() With { + .EnableTls1_1 = False, + .EnableTls1_2 = False, + .EnableDefault = True + } + Dim oResult As Mail.MailSession.SessionInfo = _MailSender.Connect(EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, oOptions) + + If oResult.Connected = False Then + Cursor = Cursors.Default + MsgBox("Could not create a MailSession / connect to server. Please check the log.", MsgBoxStyle.Exclamation) + Exit Sub + End If + Dim oAddresses As List(Of String) = txtTestmail.Text.Split(";").ToList() + Dim oAddedWhen = Now + Dim oAttachments As New List(Of String) + Dim oBody As String = $"This is just a template body (text will be replaced within the run) - ProfileID: {EMAILIDTextBox.Text}" + Dim oMessageSent = _MailSender.SendMail(oAddresses, EMAIL_FROMTextBox.Text, "Testmail from EmailProfilerConfig", oBody, oAddedWhen, oAttachments, False) + Cursor = Cursors.Default + If oMessageSent = True Then MsgBox("Email has been send successfully.", MsgBoxStyle.Information) Else MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation) End If + 'NEW END + + 'If _limilab.NewSMTPEmail(txtTestmail.Text, "Testmail", "This is the body (text will be replaced within profile)", EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, + ' EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "frmMain-Test", "", "", True) = True Then + + + ' MsgBox("Email has been send successfully.", MsgBoxStyle.Information) + 'Else + ' MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation) + 'End If End If End Sub diff --git a/App/EmailProfiler.Form/packages.config b/App/EmailProfiler.Form/packages.config index 37cb921..4a4c91e 100644 --- a/App/EmailProfiler.Form/packages.config +++ b/App/EmailProfiler.Form/packages.config @@ -1,4 +1,7 @@  + + + \ No newline at end of file