diff --git a/App/EmailProfiler.Common/clsWorker.vb b/App/EmailProfiler.Common/clsWorker.vb index 7c1d3e1..0a2947c 100644 --- a/App/EmailProfiler.Common/clsWorker.vb +++ b/App/EmailProfiler.Common/clsWorker.vb @@ -5,6 +5,7 @@ Imports DigitalData.Modules.Base Imports DigitalData.Modules.Messaging.Mail Imports Limilabs.Mail Imports Limilabs.Mail.Headers +Imports System.Reflection.Emit Public Class clsWorker Private ReadOnly Logger As Logger @@ -19,6 +20,8 @@ Public Class clsWorker Private ReadOnly EmailLimitationSender As String = "" Private ReadOnly EmailLimitationEnabled As Boolean = False + Private Const SUCCESS_IMAP_FOLDER = "Verarbeitet" + Private ReadOnly LocalEmlFile As String = "" Sub New(pLogConfig As LogConfig, pConnectionString As String, pWindreamConnectionString As String, pPollProfileId As Integer, pUseWindream As Boolean, pEmailAccountID As Integer, pEmailPrefix As String, pEmailLimitationSender As String, Optional pLocalEML As String = "") @@ -215,7 +218,7 @@ Public Class clsWorker End If If ClassWorkMail.WorkEmailMessage(oEmail, oMailId, oValidationSql) = True Then If LocalEmlFile = "" Then - DeleteEmailFile(oMailId) + DeleteOrMoveEmailFile(oMailId) End If End If @@ -308,22 +311,45 @@ Public Class clsWorker End Try End Function - Private Sub DeleteEmailFile(pMailId As Integer) + Private Sub DeleteOrMoveEmailFile(pMailId As Integer) Try - If DeleteMail = True And MESSAGE_ERROR = False Then - If IsNothing(Fetcher.Client) Then - Logger.Warn("EMAIL_DELETE - CURRENT_ImapObject is nothing") - End If + If MESSAGE_ERROR = True Then + Logger.Warn("Did not delete or move Message with UID [{0}] as there was an MessageError!", pMailId) + Return + End If + If IsNothing(Fetcher.Client) Then + Logger.Warn("Did not delete or move Message with UID [{0}] as ImapClient is null", pMailId) + Return + End If + + If DeleteMail = True Then Fetcher.Client.DeleteMessageByUID(pMailId) Logger.Info("Email with Id [{0}] was deleted.", pMailId) Else - If MESSAGE_ERROR = True Then - Logger.Warn("Did not delete Message with UID [{0}] as there was an MessageError!", pMailId) + If TestImapFolderExists(SUCCESS_IMAP_FOLDER) Then + If Fetcher.Client.MoveByUID(pMailId, SUCCESS_IMAP_FOLDER) IsNot Nothing Then + Logger.Info("Email with UID [{0}] was moved", pMailId) + End If + Else + Logger.Warn("IMAP Folder [{0}] does not exist. Emails could not be moved!", SUCCESS_IMAP_FOLDER) End If End If Catch ex As Exception Logger.Error(ex) End Try End Sub + + Private Function TestImapFolderExists(pFolderName As String) As Boolean + Try + Return Fetcher.Client. + GetFolders(). + Where(Function(f) f.Name = pFolderName). + Any() + Catch ex As Exception + Logger.Warn("Could not get IMAP folders. Returning False.") + Logger.Error(ex) + Return False + End Try + End Function End Class diff --git a/App/EmailProfiler.Form/frmMain.Designer.vb b/App/EmailProfiler.Form/frmMain.Designer.vb index 8e68bd6..88fb098 100644 --- a/App/EmailProfiler.Form/frmMain.Designer.vb +++ b/App/EmailProfiler.Form/frmMain.Designer.vb @@ -126,6 +126,7 @@ Partial Class frmMain Me.PATH_ORIGINALTextBox = New System.Windows.Forms.TextBox() Me.TBEMLP_POLL_PROCESSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.btnFBD_ErrorPath = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() Me.btnFBD_DonwloadPath = New System.Windows.Forms.Button() Me.txtSubjectExample = New System.Windows.Forms.TextBox() Me.Label9 = New System.Windows.Forms.Label() @@ -139,19 +140,19 @@ Partial Class frmMain Me.WM_PATHTextBox = New System.Windows.Forms.TextBox() Me.WM_FILE_NAMETextBox = New System.Windows.Forms.TextBox() Me.WM_IMPORTCheckBox = New System.Windows.Forms.CheckBox() + Me.WM_OBJEKTTYPEComboBox = New System.Windows.Forms.ComboBox() + Me.WM_VECTOR_LOGComboBox = New System.Windows.Forms.ComboBox() + Me.WM_IDX_BODY_TEXTComboBox = New System.Windows.Forms.ComboBox() + Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox = New System.Windows.Forms.TextBox() Me.STEP_NAMEComboBox = New System.Windows.Forms.ComboBox() Me.PROCESS_NAMEComboBox = New System.Windows.Forms.ComboBox() Me.GUIDProcessTextBox = New System.Windows.Forms.TextBox() Me.COPY_2_HDDCheckBox = New System.Windows.Forms.CheckBox() - Me.WM_OBJEKTTYPEComboBox = New System.Windows.Forms.ComboBox() - Me.WM_VECTOR_LOGComboBox = New System.Windows.Forms.ComboBox() Me.PATH_EMAIL_TEMPTextBox = New System.Windows.Forms.TextBox() Me.PATH_EMAIL_ERRORSTextBox = New System.Windows.Forms.TextBox() Me.DELETE_MAILCheckBox = New System.Windows.Forms.CheckBox() Me.COMMENT_PROFILESTextBox = New System.Windows.Forms.TextBox() Me.ACTIVECheckBox1 = New System.Windows.Forms.CheckBox() - Me.WM_IDX_BODY_TEXTComboBox = New System.Windows.Forms.ComboBox() - Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox = New System.Windows.Forms.TextBox() Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() @@ -528,7 +529,7 @@ Partial Class frmMain 'WM_OBJEKTTYPELabel ' WM_OBJEKTTYPELabel.AutoSize = True - WM_OBJEKTTYPELabel.Location = New System.Drawing.Point(316, 65) + WM_OBJEKTTYPELabel.Location = New System.Drawing.Point(6, 22) WM_OBJEKTTYPELabel.Name = "WM_OBJEKTTYPELabel" WM_OBJEKTTYPELabel.Size = New System.Drawing.Size(59, 13) WM_OBJEKTTYPELabel.TabIndex = 44 @@ -537,7 +538,7 @@ Partial Class frmMain 'WM_VECTOR_LOGLabel ' WM_VECTOR_LOGLabel.AutoSize = True - WM_VECTOR_LOGLabel.Location = New System.Drawing.Point(316, 108) + WM_VECTOR_LOGLabel.Location = New System.Drawing.Point(7, 149) WM_VECTOR_LOGLabel.Name = "WM_VECTOR_LOGLabel" WM_VECTOR_LOGLabel.Size = New System.Drawing.Size(75, 13) WM_VECTOR_LOGLabel.TabIndex = 46 @@ -546,7 +547,7 @@ Partial Class frmMain 'WM_PATHLabel ' WM_PATHLabel.AutoSize = True - WM_PATHLabel.Location = New System.Drawing.Point(6, 21) + WM_PATHLabel.Location = New System.Drawing.Point(7, 68) WM_PATHLabel.Name = "WM_PATHLabel" WM_PATHLabel.Size = New System.Drawing.Size(69, 13) WM_PATHLabel.TabIndex = 48 @@ -555,7 +556,7 @@ Partial Class frmMain 'WM_FILE_NAMELabel ' WM_FILE_NAMELabel.AutoSize = True - WM_FILE_NAMELabel.Location = New System.Drawing.Point(6, 61) + WM_FILE_NAMELabel.Location = New System.Drawing.Point(7, 108) WM_FILE_NAMELabel.Name = "WM_FILE_NAMELabel" WM_FILE_NAMELabel.Size = New System.Drawing.Size(97, 13) WM_FILE_NAMELabel.TabIndex = 8 @@ -573,7 +574,7 @@ Partial Class frmMain 'WM_IDX_BODY_TEXTLabel ' WM_IDX_BODY_TEXTLabel.AutoSize = True - WM_IDX_BODY_TEXTLabel.Location = New System.Drawing.Point(316, 148) + WM_IDX_BODY_TEXTLabel.Location = New System.Drawing.Point(150, 149) WM_IDX_BODY_TEXTLabel.Name = "WM_IDX_BODY_TEXTLabel" WM_IDX_BODY_TEXTLabel.Size = New System.Drawing.Size(86, 13) WM_IDX_BODY_TEXTLabel.TabIndex = 74 @@ -582,11 +583,11 @@ Partial Class frmMain 'WM_IDX_BODY_SUBSTR_LENGTHLabel ' WM_IDX_BODY_SUBSTR_LENGTHLabel.AutoSize = True - WM_IDX_BODY_SUBSTR_LENGTHLabel.Location = New System.Drawing.Point(462, 148) + WM_IDX_BODY_SUBSTR_LENGTHLabel.Location = New System.Drawing.Point(274, 148) WM_IDX_BODY_SUBSTR_LENGTHLabel.Name = "WM_IDX_BODY_SUBSTR_LENGTHLabel" - WM_IDX_BODY_SUBSTR_LENGTHLabel.Size = New System.Drawing.Size(105, 13) + WM_IDX_BODY_SUBSTR_LENGTHLabel.Size = New System.Drawing.Size(40, 13) WM_IDX_BODY_SUBSTR_LENGTHLabel.TabIndex = 76 - WM_IDX_BODY_SUBSTR_LENGTHLabel.Text = "Auswertbare Länge:" + WM_IDX_BODY_SUBSTR_LENGTHLabel.Text = "Länge:" ' 'PROCESS_NAMELabel ' @@ -798,7 +799,7 @@ Partial Class frmMain 'Label7 ' Label7.AutoSize = True - Label7.Location = New System.Drawing.Point(817, 65) + Label7.Location = New System.Drawing.Point(247, 107) Label7.Name = "Label7" Label7.Size = New System.Drawing.Size(68, 13) Label7.TabIndex = 85 @@ -1325,6 +1326,7 @@ Partial Class frmMain Me.XtraTabPage1.Controls.Add(Me.lblDownloadPath) Me.XtraTabPage1.Controls.Add(Me.PATH_ORIGINALTextBox) Me.XtraTabPage1.Controls.Add(Me.btnFBD_ErrorPath) + Me.XtraTabPage1.Controls.Add(Me.Button1) Me.XtraTabPage1.Controls.Add(Me.btnFBD_DonwloadPath) Me.XtraTabPage1.Controls.Add(Me.txtSubjectExample) Me.XtraTabPage1.Controls.Add(Me.Label9) @@ -1347,20 +1349,12 @@ Partial Class frmMain Me.XtraTabPage1.Controls.Add(GUIDLabel1) Me.XtraTabPage1.Controls.Add(Me.GUIDProcessTextBox) Me.XtraTabPage1.Controls.Add(Me.COPY_2_HDDCheckBox) - Me.XtraTabPage1.Controls.Add(WM_OBJEKTTYPELabel) - Me.XtraTabPage1.Controls.Add(Me.WM_OBJEKTTYPEComboBox) - Me.XtraTabPage1.Controls.Add(WM_VECTOR_LOGLabel) - Me.XtraTabPage1.Controls.Add(Me.WM_VECTOR_LOGComboBox) Me.XtraTabPage1.Controls.Add(Me.PATH_EMAIL_TEMPTextBox) Me.XtraTabPage1.Controls.Add(PATH_EMAIL_ERRORSLabel) Me.XtraTabPage1.Controls.Add(Me.PATH_EMAIL_ERRORSTextBox) Me.XtraTabPage1.Controls.Add(Me.DELETE_MAILCheckBox) Me.XtraTabPage1.Controls.Add(Me.COMMENT_PROFILESTextBox) Me.XtraTabPage1.Controls.Add(Me.ACTIVECheckBox1) - Me.XtraTabPage1.Controls.Add(WM_IDX_BODY_TEXTLabel) - Me.XtraTabPage1.Controls.Add(Me.WM_IDX_BODY_TEXTComboBox) - Me.XtraTabPage1.Controls.Add(WM_IDX_BODY_SUBSTR_LENGTHLabel) - Me.XtraTabPage1.Controls.Add(Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox) Me.XtraTabPage1.Controls.Add(Me.BindingNavigator2) Me.XtraTabPage1.Controls.Add(Me.GridControl1) Me.XtraTabPage1.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[False] @@ -1382,9 +1376,9 @@ Partial Class frmMain '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(509, 124) + Me.PATH_ORIGINALTextBox.Location = New System.Drawing.Point(319, 164) Me.PATH_ORIGINALTextBox.Name = "PATH_ORIGINALTextBox" - Me.PATH_ORIGINALTextBox.Size = New System.Drawing.Size(305, 21) + Me.PATH_ORIGINALTextBox.Size = New System.Drawing.Size(462, 21) Me.PATH_ORIGINALTextBox.TabIndex = 91 ' 'TBEMLP_POLL_PROCESSBindingSource @@ -1403,6 +1397,15 @@ Partial Class frmMain Me.btnFBD_ErrorPath.Text = "..." Me.btnFBD_ErrorPath.UseVisualStyleBackColor = True ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(787, 164) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(27, 21) + Me.Button1.TabIndex = 89 + Me.Button1.Text = "..." + Me.Button1.UseVisualStyleBackColor = True + ' 'btnFBD_DonwloadPath ' Me.btnFBD_DonwloadPath.Location = New System.Drawing.Point(787, 204) @@ -1417,16 +1420,16 @@ 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(820, 39) + Me.txtSubjectExample.Location = New System.Drawing.Point(319, 121) Me.txtSubjectExample.Name = "txtSubjectExample" Me.txtSubjectExample.ReadOnly = True - Me.txtSubjectExample.Size = New System.Drawing.Size(304, 21) + Me.txtSubjectExample.Size = New System.Drawing.Size(462, 21) Me.txtSubjectExample.TabIndex = 88 ' 'Label9 ' Me.Label9.AutoSize = True - Me.Label9.Location = New System.Drawing.Point(817, 25) + Me.Label9.Location = New System.Drawing.Point(316, 107) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(74, 13) Me.Label9.TabIndex = 87 @@ -1435,7 +1438,7 @@ Partial Class frmMain 'NumericUpDown2 ' Me.NumericUpDown2.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBEMLP_POLL_PROCESSBindingSource, "SEQUENCE", True)) - Me.NumericUpDown2.Location = New System.Drawing.Point(820, 82) + 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) @@ -1488,7 +1491,7 @@ Partial Class frmMain 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(824, 228) + Me.Label5.Location = New System.Drawing.Point(820, 244) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(65, 13) Me.Label5.TabIndex = 80 @@ -1501,16 +1504,24 @@ Partial Class frmMain Me.GroupBox2.Controls.Add(WM_FILE_NAMELabel) Me.GroupBox2.Controls.Add(Me.WM_FILE_NAMETextBox) Me.GroupBox2.Controls.Add(Me.WM_IMPORTCheckBox) - Me.GroupBox2.Location = New System.Drawing.Point(820, 114) + Me.GroupBox2.Controls.Add(WM_OBJEKTTYPELabel) + Me.GroupBox2.Controls.Add(Me.WM_OBJEKTTYPEComboBox) + Me.GroupBox2.Controls.Add(WM_VECTOR_LOGLabel) + Me.GroupBox2.Controls.Add(Me.WM_VECTOR_LOGComboBox) + Me.GroupBox2.Controls.Add(WM_IDX_BODY_TEXTLabel) + 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.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(329, 110) + Me.GroupBox2.Size = New System.Drawing.Size(329, 202) Me.GroupBox2.TabIndex = 79 Me.GroupBox2.TabStop = False ' 'WM_PATHTextBox ' Me.WM_PATHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_PATH", True)) - Me.WM_PATHTextBox.Location = New System.Drawing.Point(9, 37) + Me.WM_PATHTextBox.Location = New System.Drawing.Point(10, 84) Me.WM_PATHTextBox.Name = "WM_PATHTextBox" Me.WM_PATHTextBox.Size = New System.Drawing.Size(312, 21) Me.WM_PATHTextBox.TabIndex = 7 @@ -1518,7 +1529,7 @@ Partial Class frmMain 'WM_FILE_NAMETextBox ' Me.WM_FILE_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_FILE_NAME", True)) - Me.WM_FILE_NAMETextBox.Location = New System.Drawing.Point(9, 77) + Me.WM_FILE_NAMETextBox.Location = New System.Drawing.Point(10, 124) Me.WM_FILE_NAMETextBox.Name = "WM_FILE_NAMETextBox" Me.WM_FILE_NAMETextBox.Size = New System.Drawing.Size(312, 21) Me.WM_FILE_NAMETextBox.TabIndex = 11 @@ -1534,6 +1545,41 @@ Partial Class frmMain Me.WM_IMPORTCheckBox.Text = "Windream Import" Me.WM_IMPORTCheckBox.UseVisualStyleBackColor = False ' + 'WM_OBJEKTTYPEComboBox + ' + Me.WM_OBJEKTTYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_OBJEKTTYPE", True)) + Me.WM_OBJEKTTYPEComboBox.FormattingEnabled = True + Me.WM_OBJEKTTYPEComboBox.Location = New System.Drawing.Point(9, 38) + Me.WM_OBJEKTTYPEComboBox.Name = "WM_OBJEKTTYPEComboBox" + Me.WM_OBJEKTTYPEComboBox.Size = New System.Drawing.Size(313, 21) + Me.WM_OBJEKTTYPEComboBox.TabIndex = 4 + ' + 'WM_VECTOR_LOGComboBox + ' + Me.WM_VECTOR_LOGComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_VECTOR_LOG", True)) + Me.WM_VECTOR_LOGComboBox.FormattingEnabled = True + Me.WM_VECTOR_LOGComboBox.Location = New System.Drawing.Point(10, 165) + Me.WM_VECTOR_LOGComboBox.Name = "WM_VECTOR_LOGComboBox" + Me.WM_VECTOR_LOGComboBox.Size = New System.Drawing.Size(137, 21) + Me.WM_VECTOR_LOGComboBox.TabIndex = 5 + ' + 'WM_IDX_BODY_TEXTComboBox + ' + Me.WM_IDX_BODY_TEXTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_IDX_BODY_TEXT", True)) + Me.WM_IDX_BODY_TEXTComboBox.FormattingEnabled = True + Me.WM_IDX_BODY_TEXTComboBox.Location = New System.Drawing.Point(153, 165) + Me.WM_IDX_BODY_TEXTComboBox.Name = "WM_IDX_BODY_TEXTComboBox" + Me.WM_IDX_BODY_TEXTComboBox.Size = New System.Drawing.Size(118, 21) + Me.WM_IDX_BODY_TEXTComboBox.TabIndex = 7 + ' + 'WM_IDX_BODY_SUBSTR_LENGTHTextBox + ' + Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_IDX_BODY_SUBSTR_LENGTH", True)) + Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Location = New System.Drawing.Point(277, 165) + Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Name = "WM_IDX_BODY_SUBSTR_LENGTHTextBox" + Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Size = New System.Drawing.Size(29, 21) + Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.TabIndex = 8 + ' 'STEP_NAMEComboBox ' Me.STEP_NAMEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "STEP_NAME", True)) @@ -1559,7 +1605,7 @@ 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(247, 41) + Me.GUIDProcessTextBox.Location = New System.Drawing.Point(251, 42) Me.GUIDProcessTextBox.Name = "GUIDProcessTextBox" Me.GUIDProcessTextBox.Size = New System.Drawing.Size(51, 21) Me.GUIDProcessTextBox.TabIndex = 33 @@ -1568,31 +1614,13 @@ Partial Class frmMain '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(509, 108) + Me.COPY_2_HDDCheckBox.Location = New System.Drawing.Point(319, 148) Me.COPY_2_HDDCheckBox.Name = "COPY_2_HDDCheckBox" - Me.COPY_2_HDDCheckBox.Size = New System.Drawing.Size(118, 17) + Me.COPY_2_HDDCheckBox.Size = New System.Drawing.Size(275, 17) Me.COPY_2_HDDCheckBox.TabIndex = 6 Me.COPY_2_HDDCheckBox.Text = "Copy email to HDD" Me.COPY_2_HDDCheckBox.UseVisualStyleBackColor = True ' - 'WM_OBJEKTTYPEComboBox - ' - Me.WM_OBJEKTTYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_OBJEKTTYPE", True)) - Me.WM_OBJEKTTYPEComboBox.FormattingEnabled = True - Me.WM_OBJEKTTYPEComboBox.Location = New System.Drawing.Point(319, 81) - Me.WM_OBJEKTTYPEComboBox.Name = "WM_OBJEKTTYPEComboBox" - Me.WM_OBJEKTTYPEComboBox.Size = New System.Drawing.Size(495, 21) - Me.WM_OBJEKTTYPEComboBox.TabIndex = 4 - ' - 'WM_VECTOR_LOGComboBox - ' - Me.WM_VECTOR_LOGComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_VECTOR_LOG", True)) - Me.WM_VECTOR_LOGComboBox.FormattingEnabled = True - Me.WM_VECTOR_LOGComboBox.Location = New System.Drawing.Point(319, 124) - Me.WM_VECTOR_LOGComboBox.Name = "WM_VECTOR_LOGComboBox" - Me.WM_VECTOR_LOGComboBox.Size = New System.Drawing.Size(175, 21) - Me.WM_VECTOR_LOGComboBox.TabIndex = 5 - ' 'PATH_EMAIL_TEMPTextBox ' Me.PATH_EMAIL_TEMPTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "PATH_EMAIL_TEMP", True)) @@ -1612,49 +1640,33 @@ Partial Class frmMain '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(636, 39) + Me.DELETE_MAILCheckBox.Location = New System.Drawing.Point(319, 75) Me.DELETE_MAILCheckBox.Name = "DELETE_MAILCheckBox" - Me.DELETE_MAILCheckBox.Size = New System.Drawing.Size(158, 24) + Me.DELETE_MAILCheckBox.Size = New System.Drawing.Size(468, 24) Me.DELETE_MAILCheckBox.TabIndex = 2 - Me.DELETE_MAILCheckBox.Text = "Delete Mail after success" + Me.DELETE_MAILCheckBox.Text = "Email nach Verarbeitung löschen (Andernfalls muss ein IMAP Ordner 'Verarbeitet' e" & + "xistieren)" Me.DELETE_MAILCheckBox.UseVisualStyleBackColor = True ' '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(820, 244) + Me.COMMENT_PROFILESTextBox.Location = New System.Drawing.Point(822, 260) Me.COMMENT_PROFILESTextBox.Multiline = True Me.COMMENT_PROFILESTextBox.Name = "COMMENT_PROFILESTextBox" - Me.COMMENT_PROFILESTextBox.Size = New System.Drawing.Size(329, 61) + Me.COMMENT_PROFILESTextBox.Size = New System.Drawing.Size(327, 45) 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(247, 78) + Me.ACTIVECheckBox1.Location = New System.Drawing.Point(251, 78) Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1" - Me.ACTIVECheckBox1.Size = New System.Drawing.Size(66, 24) + Me.ACTIVECheckBox1.Size = New System.Drawing.Size(60, 24) Me.ACTIVECheckBox1.TabIndex = 3 Me.ACTIVECheckBox1.Text = "Active" Me.ACTIVECheckBox1.UseVisualStyleBackColor = True ' - 'WM_IDX_BODY_TEXTComboBox - ' - Me.WM_IDX_BODY_TEXTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_IDX_BODY_TEXT", True)) - Me.WM_IDX_BODY_TEXTComboBox.FormattingEnabled = True - Me.WM_IDX_BODY_TEXTComboBox.Location = New System.Drawing.Point(319, 164) - Me.WM_IDX_BODY_TEXTComboBox.Name = "WM_IDX_BODY_TEXTComboBox" - Me.WM_IDX_BODY_TEXTComboBox.Size = New System.Drawing.Size(138, 21) - Me.WM_IDX_BODY_TEXTComboBox.TabIndex = 7 - ' - 'WM_IDX_BODY_SUBSTR_LENGTHTextBox - ' - Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBEMLP_POLL_PROCESSBindingSource, "WM_IDX_BODY_SUBSTR_LENGTH", True)) - Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Location = New System.Drawing.Point(465, 164) - Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Name = "WM_IDX_BODY_SUBSTR_LENGTHTextBox" - Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.Size = New System.Drawing.Size(29, 21) - Me.WM_IDX_BODY_SUBSTR_LENGTHTextBox.TabIndex = 8 - ' 'BindingNavigator2 ' Me.BindingNavigator2.AddNewItem = Me.ToolStripButton2 @@ -3689,4 +3701,5 @@ Partial Class frmMain Friend WithEvents ARCHIVE_FOLDERLabel As Label Friend WithEvents btnValidationSQL As DevExpress.XtraEditors.SimpleButton Friend WithEvents txtSQLValidation As DevExpress.XtraEditors.TextEdit + Friend WithEvents Button1 As Button End Class diff --git a/App/EmailProfiler.Form/frmMain.resx b/App/EmailProfiler.Form/frmMain.resx index 95dc884..0c82f7f 100644 --- a/App/EmailProfiler.Form/frmMain.resx +++ b/App/EmailProfiler.Form/frmMain.resx @@ -365,6 +365,9 @@ 17, 95 + + 17, 95 + 1139, 56 @@ -457,6 +460,70 @@ LDIwLDE2LDIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + 1021, 95 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOYCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLlll + bGxvd3tmaWxsOiNGRkIxMTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMzU7fQoJLnN0M3tv + cGFjaXR5OjAuNjU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRnVubmVsIj4NCiAgICA8cmVjdCB4PSIxMiIg + eT0iMjIiIHdpZHRoPSI2IiBoZWlnaHQ9IjgiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsdWUiIC8+DQog + ICAgPHBvbHlnb24gcG9pbnRzPSIxMiwyMCA0LDEyIDI2LDEyIDE4LDIwICAiIGNsYXNzPSJZZWxsb3ci + IC8+DQogICAgPHBvbHlnb24gcG9pbnRzPSI0LDEwIDAsMiAzMCwyIDI2LDEwICAiIGNsYXNzPSJSZWQi + IC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + 1175, 95 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGYEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJEb2N1bWVudF8xXyI+ + DQogICAgPHBhdGggZD0iTTE1LDIwbDktOWw1LDVsLTksOUwxNSwyMHogTTMxLjcsMTEuOWwtMy42LTMu + NmMtMC40LTAuNC0xLTAuNC0xLjQsMEwyNSwxMGw1LDVsMS43LTEuNyAgIEMzMi4xLDEyLjksMzIuMSwx + Mi4zLDMxLjcsMTEuOXogTTE0LDI2aDVsLTUtNVYyNnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRo + IGQ9Ik0yNCwyMy44VjI4aC00LjJIMTJINlY0aDE4djQuMmwyLTJWM2MwLTAuNS0wLjUtMS0xLTFINUM0 + LjQsMiw0LDIuNSw0LDN2MjZjMCwwLjUsMC41LDEsMSwxaDIwICAgYzAuNSwwLDEtMC41LDEtMXYtNy4y + TDI0LDIzLjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + + 851, 173 + + + 180, 56 + + + 623, 134 + + + 537, 95 + 537, 95 @@ -527,26 +594,9 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAOYCAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlJlZHtmaWxsOiNEMTFDMUM7fQoJLlll - bGxvd3tmaWxsOiNGRkIxMTU7fQoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5HcmVlbntmaWxsOiMwMzlD - MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMzU7fQoJLnN0M3tv - cGFjaXR5OjAuNjU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iRnVubmVsIj4NCiAgICA8cmVjdCB4PSIxMiIg - eT0iMjIiIHdpZHRoPSI2IiBoZWlnaHQ9IjgiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsdWUiIC8+DQog - ICAgPHBvbHlnb24gcG9pbnRzPSIxMiwyMCA0LDEyIDI2LDEyIDE4LDIwICAiIGNsYXNzPSJZZWxsb3ci - IC8+DQogICAgPHBvbHlnb24gcG9pbnRzPSI0LDEwIDAsMiAzMCwyIDI2LDEwICAiIGNsYXNzPSJSZWQi - IC8+DQogIDwvZz4NCjwvc3ZnPgs= - - + + 17, 134 + 17, 134 @@ -615,32 +665,6 @@ kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 - LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl - dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAGYEAAAC77u/ - PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi - IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv - MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh - Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg - MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z - ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD - MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh - Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk - aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp - c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 - O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 - ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp - c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJEb2N1bWVudF8xXyI+ - DQogICAgPHBhdGggZD0iTTE1LDIwbDktOWw1LDVsLTksOUwxNSwyMHogTTMxLjcsMTEuOWwtMy42LTMu - NmMtMC40LTAuNC0xLTAuNC0xLjQsMEwyNSwxMGw1LDVsMS43LTEuNyAgIEMzMi4xLDEyLjksMzIuMSwx - Mi4zLDMxLjcsMTEuOXogTTE0LDI2aDVsLTUtNVYyNnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRo - IGQ9Ik0yNCwyMy44VjI4aC00LjJIMTJINlY0aDE4djQuMmwyLTJWM2MwLTAuNS0wLjUtMS0xLTFINUM0 - LjQsMiw0LDIuNSw0LDN2MjZjMCwwLjUsMC41LDEsMSwxaDIwICAgYzAuNSwwLDEtMC41LDEtMXYtNy4y - TDI0LDIzLjh6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs= @@ -716,6 +740,9 @@ 239, 173 + + 239, 173 + 1297, 134 diff --git a/App/EmailProfiler.Form/frmMain.vb b/App/EmailProfiler.Form/frmMain.vb index 5df752c..27ed16b 100644 --- a/App/EmailProfiler.Form/frmMain.vb +++ b/App/EmailProfiler.Form/frmMain.vb @@ -951,4 +951,10 @@ Public Class frmMain End If End Sub + + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then + PATH_ORIGINALTextBox.Text = FolderBrowserDialog1.SelectedPath + End If + End Sub End Class