ms

2020-08-10 17:28:32 +02:00
parent fbb4d8ad2e
commit d49e627f5d
89 changed files with 1832 additions and 1250 deletions
--- a/App/CONFIG_APP/frmMain.Designer.vb
+++ b/App/CONFIG_APP/frmMain.Designer.vb
@@ -80,6 +80,7 @@ Partial Class frmMain
        Dim AUTH_TYPELabel As System.Windows.Forms.Label
        Dim Label11 As System.Windows.Forms.Label
        Dim PORT_INLabel As System.Windows.Forms.Label
+        Dim ARCHIVE_FOLDERLabel As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
        Me.tslblstatus = New System.Windows.Forms.ToolStripStatusLabel()
@@ -90,6 +91,7 @@ Partial Class frmMain
        Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.Profilkonfiguration = New System.Windows.Forms.TabPage()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.GridControl4 = New DevExpress.XtraGrid.GridControl()
        Me.TBEMLP_POLL_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.MyDataset = New CONFIG_APP.MyDataset()
@@ -278,13 +280,13 @@ Partial Class frmMain
        Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
        Me.ToolStripButton34 = New System.Windows.Forms.ToolStripButton()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.ARCHIVE_FOLDERTextBox = New System.Windows.Forms.TextBox()
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
+        Me.Button7 = New System.Windows.Forms.Button()
        Me.chkS22 = New System.Windows.Forms.CheckBox()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.chkDeleteMail = New System.Windows.Forms.CheckBox()
-        Me.txtMoveTo = New System.Windows.Forms.TextBox()
-        Me.Label15 = New System.Windows.Forms.Label()
        Me.txtInboxname = New System.Windows.Forms.TextBox()
        Me.Button6 = New System.Windows.Forms.Button()
        Me.PORT_INTextBox = New System.Windows.Forms.TextBox()
@@ -348,7 +350,7 @@ Partial Class frmMain
        Me.TBEMLP_HISTORYTableAdapter = New CONFIG_APP.MyDatasetTableAdapters.TBEMLP_HISTORYTableAdapter()
        Me.TBEMLP_CONFIGTableAdapter = New CONFIG_APP.MyDatasetTableAdapters.TBEMLP_CONFIGTableAdapter()
        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
-        Me.Button7 = New System.Windows.Forms.Button()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        GUIDLabel = New System.Windows.Forms.Label()
        PROFILE_NAMELabel = New System.Windows.Forms.Label()
        POLL_TYPELabel = New System.Windows.Forms.Label()
@@ -406,6 +408,7 @@ Partial Class frmMain
        AUTH_TYPELabel = New System.Windows.Forms.Label()
        Label11 = New System.Windows.Forms.Label()
        PORT_INLabel = New System.Windows.Forms.Label()
+        ARCHIVE_FOLDERLabel = New System.Windows.Forms.Label()
        Me.StatusStrip1.SuspendLayout()
        Me.ToolStrip1.SuspendLayout()
        Me.TabControl1.SuspendLayout()
@@ -975,6 +978,15 @@ Partial Class frmMain
        PORT_INLabel.TabIndex = 70
        PORT_INLabel.Text = "Port in:"
        '
+        'ARCHIVE_FOLDERLabel
+        '
+        ARCHIVE_FOLDERLabel.AutoSize = True
+        ARCHIVE_FOLDERLabel.Location = New System.Drawing.Point(828, 148)
+        ARCHIVE_FOLDERLabel.Name = "ARCHIVE_FOLDERLabel"
+        ARCHIVE_FOLDERLabel.Size = New System.Drawing.Size(80, 13)
+        ARCHIVE_FOLDERLabel.TabIndex = 76
+        ARCHIVE_FOLDERLabel.Text = "Archive Folder:"
+        '
        'StatusStrip1
        '
        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblstatus, Me.tslblRefresh})
@@ -1044,6 +1056,7 @@ Partial Class frmMain
        'Profilkonfiguration
        '
        Me.Profilkonfiguration.AutoScroll = True
+        Me.Profilkonfiguration.Controls.Add(Me.TextBox1)
        Me.Profilkonfiguration.Controls.Add(Me.GridControl4)
        Me.Profilkonfiguration.Controls.Add(Me.ComboBox1)
        Me.Profilkonfiguration.Controls.Add(Me.BindingNavigator1)
@@ -1074,6 +1087,13 @@ Partial Class frmMain
        Me.Profilkonfiguration.Text = "Profilkonfiguration"
        Me.Profilkonfiguration.UseVisualStyleBackColor = True
        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(267, 111)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(100, 21)
+        Me.TextBox1.TabIndex = 34
+        '
        'GridControl4
        '
        Me.GridControl4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -1218,6 +1238,7 @@ Partial Class frmMain
        '
        Me.BindingNavigatorPositionItem.AccessibleName = "Position"
        Me.BindingNavigatorPositionItem.AutoSize = False
+        Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
        Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
        Me.BindingNavigatorPositionItem.Text = "0"
@@ -1644,7 +1665,7 @@ Partial Class frmMain
        Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton5
        Me.BindingNavigator2.Name = "BindingNavigator2"
        Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox1
-        Me.BindingNavigator2.Size = New System.Drawing.Size(964, 25)
+        Me.BindingNavigator2.Size = New System.Drawing.Size(1177, 25)
        Me.BindingNavigator2.TabIndex = 32
        Me.BindingNavigator2.Text = "BindingNavigator2"
        '
@@ -1700,6 +1721,7 @@ Partial Class frmMain
        '
        Me.ToolStripTextBox1.AccessibleName = "Position"
        Me.ToolStripTextBox1.AutoSize = False
+        Me.ToolStripTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
        Me.ToolStripTextBox1.Size = New System.Drawing.Size(50, 23)
        Me.ToolStripTextBox1.Text = "0"
@@ -1758,7 +1780,7 @@ Partial Class frmMain
        Me.GridControl1.Location = New System.Drawing.Point(0, 0)
        Me.GridControl1.MainView = Me.GridView1
        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(241, 328)
+        Me.GridControl1.Size = New System.Drawing.Size(241, 311)
        Me.GridControl1.TabIndex = 0
        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
        '
@@ -1955,6 +1977,7 @@ Partial Class frmMain
        '
        Me.ToolStripTextBox2.AccessibleName = "Position"
        Me.ToolStripTextBox2.AutoSize = False
+        Me.ToolStripTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripTextBox2.Name = "ToolStripTextBox2"
        Me.ToolStripTextBox2.Size = New System.Drawing.Size(50, 23)
        Me.ToolStripTextBox2.Text = "0"
@@ -2291,6 +2314,7 @@ Partial Class frmMain
        '
        Me.ToolStripTextBox3.AccessibleName = "Position"
        Me.ToolStripTextBox3.AutoSize = False
+        Me.ToolStripTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripTextBox3.Name = "ToolStripTextBox3"
        Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 23)
        Me.ToolStripTextBox3.Text = "0"
@@ -2860,6 +2884,7 @@ Partial Class frmMain
        '
        Me.ToolStripTextBox4.AccessibleName = "Position"
        Me.ToolStripTextBox4.AutoSize = False
+        Me.ToolStripTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripTextBox4.Name = "ToolStripTextBox4"
        Me.ToolStripTextBox4.Size = New System.Drawing.Size(50, 23)
        Me.ToolStripTextBox4.Text = "0"
@@ -2904,6 +2929,8 @@ Partial Class frmMain
        '
        'TabPage3
        '
+        Me.TabPage3.Controls.Add(ARCHIVE_FOLDERLabel)
+        Me.TabPage3.Controls.Add(Me.ARCHIVE_FOLDERTextBox)
        Me.TabPage3.Controls.Add(Me.GroupBox5)
        Me.TabPage3.Controls.Add(Me.Button6)
        Me.TabPage3.Controls.Add(PORT_INLabel)
@@ -2949,6 +2976,14 @@ Partial Class frmMain
        Me.TabPage3.Text = "EMail-Konto Konfiguration"
        Me.TabPage3.UseVisualStyleBackColor = True
        '
+        'ARCHIVE_FOLDERTextBox
+        '
+        Me.ARCHIVE_FOLDERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_ACCOUNTBindingSource, "ARCHIVE_FOLDER", True))
+        Me.ARCHIVE_FOLDERTextBox.Location = New System.Drawing.Point(831, 164)
+        Me.ARCHIVE_FOLDERTextBox.Name = "ARCHIVE_FOLDERTextBox"
+        Me.ARCHIVE_FOLDERTextBox.Size = New System.Drawing.Size(189, 21)
+        Me.ARCHIVE_FOLDERTextBox.TabIndex = 77
+        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.Button7)
@@ -2956,8 +2991,6 @@ Partial Class frmMain
        Me.GroupBox5.Controls.Add(Me.Label16)
        Me.GroupBox5.Controls.Add(Me.Button1)
        Me.GroupBox5.Controls.Add(Me.chkDeleteMail)
-        Me.GroupBox5.Controls.Add(Me.txtMoveTo)
-        Me.GroupBox5.Controls.Add(Me.Label15)
        Me.GroupBox5.Controls.Add(Me.txtInboxname)
        Me.GroupBox5.Location = New System.Drawing.Point(374, 319)
        Me.GroupBox5.Name = "GroupBox5"
@@ -2966,6 +2999,15 @@ Partial Class frmMain
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "IMAP Test"
        '
+        'Button7
+        '
+        Me.Button7.Location = New System.Drawing.Point(416, 20)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(140, 59)
+        Me.Button7.TabIndex = 77
+        Me.Button7.Text = "Set to SEEN (Email must contain ""seen"" in Subject"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
        'chkS22
        '
        Me.chkS22.AutoSize = True
@@ -3007,22 +3049,6 @@ Partial Class frmMain
        Me.chkDeleteMail.Text = "Lösche Mail"
        Me.chkDeleteMail.UseVisualStyleBackColor = True
        '
-        'txtMoveTo
-        '
-        Me.txtMoveTo.Location = New System.Drawing.Point(203, 58)
-        Me.txtMoveTo.Name = "txtMoveTo"
-        Me.txtMoveTo.Size = New System.Drawing.Size(200, 21)
-        Me.txtMoveTo.TabIndex = 73
-        '
-        'Label15
-        '
-        Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(152, 61)
-        Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(49, 13)
-        Me.Label15.TabIndex = 74
-        Me.Label15.Text = "MoveTo:"
-        '
        'txtInboxname
        '
        Me.txtInboxname.Location = New System.Drawing.Point(203, 31)
@@ -3347,6 +3373,7 @@ Partial Class frmMain
        '
        Me.BindingNavigatorPositionItem1.AccessibleName = "Position"
        Me.BindingNavigatorPositionItem1.AutoSize = False
+        Me.BindingNavigatorPositionItem1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1"
        Me.BindingNavigatorPositionItem1.Size = New System.Drawing.Size(50, 23)
        Me.BindingNavigatorPositionItem1.Text = "0"
@@ -3578,14 +3605,10 @@ Partial Class frmMain
        '
        Me.TBEMLP_CONFIGTableAdapter.ClearBeforeFill = True
        '
-        'Button7
+        'ContextMenuStrip1
        '
-        Me.Button7.Location = New System.Drawing.Point(416, 20)
-        Me.Button7.Name = "Button7"
-        Me.Button7.Size = New System.Drawing.Size(140, 59)
-        Me.Button7.TabIndex = 77
-        Me.Button7.Text = "Set to SEEN (Email must contain ""seen"" in Subject"
-        Me.Button7.UseVisualStyleBackColor = True
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
        '
        'frmMain
        '
@@ -3939,11 +3962,12 @@ Partial Class frmMain
    Friend WithEvents PORT_INTextBox As TextBox
    Friend WithEvents lblDownloadPath As Label
    Friend WithEvents Button6 As Button
-    Friend WithEvents Label15 As Label
-    Friend WithEvents txtMoveTo As TextBox
    Friend WithEvents GroupBox5 As GroupBox
    Friend WithEvents Label16 As Label
    Friend WithEvents chkDeleteMail As CheckBox
    Friend WithEvents chkS22 As CheckBox
    Friend WithEvents Button7 As Button
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents ARCHIVE_FOLDERTextBox As TextBox
 End Class