Mailsender, Startopt

UID/frmMain.Designer.vb

@@ -33,8 +33,8 @@ Partial Class frmMain
         Me.TableAdapterManager1 = New ADMIN.DataSetBerechtigungenTableAdapters.TableAdapterManager()
         Me.pnlMain = New System.Windows.Forms.Panel()
         Me.Panel3 = New System.Windows.Forms.Panel()
-        Me.Button3 = New System.Windows.Forms.Button()
-        Me.Button2 = New System.Windows.Forms.Button()
+        Me.btnAPIZugang = New System.Windows.Forms.Button()
+        Me.btnDatenarchiv = New System.Windows.Forms.Button()
         Me.btnFehler = New System.Windows.Forms.Button()
         Me.btnAPI = New System.Windows.Forms.Button()
         Me.btnHomepage = New System.Windows.Forms.Button()
@@ -48,6 +48,7 @@ Partial Class frmMain
         Me.btnMitarbeiter = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.btnMailroutine = New System.Windows.Forms.Button()
         Me.Panel3.SuspendLayout()
         Me.Panel2.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -110,8 +111,9 @@ Partial Class frmMain
         'Panel3
         '
         Me.Panel3.BackColor = System.Drawing.Color.White
-        Me.Panel3.Controls.Add(Me.Button3)
-        Me.Panel3.Controls.Add(Me.Button2)
+        Me.Panel3.Controls.Add(Me.btnMailroutine)
+        Me.Panel3.Controls.Add(Me.btnAPIZugang)
+        Me.Panel3.Controls.Add(Me.btnDatenarchiv)
         Me.Panel3.Controls.Add(Me.btnFehler)
         Me.Panel3.Controls.Add(Me.btnAPI)
         Me.Panel3.Controls.Add(Me.btnHomepage)
@@ -129,29 +131,29 @@ Partial Class frmMain
         Me.Panel3.Size = New System.Drawing.Size(137, 801)
         Me.Panel3.TabIndex = 32
         '
-        'Button3
+        'btnAPIZugang
         '
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button3.Location = New System.Drawing.Point(12, 437)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(94, 33)
-        Me.Button3.TabIndex = 42
-        Me.Button3.Text = "Zugänge API"
-        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button3.UseVisualStyleBackColor = True
+        Me.btnAPIZugang.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAPIZugang.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnAPIZugang.Location = New System.Drawing.Point(12, 437)
+        Me.btnAPIZugang.Name = "btnAPIZugang"
+        Me.btnAPIZugang.Size = New System.Drawing.Size(94, 33)
+        Me.btnAPIZugang.TabIndex = 42
+        Me.btnAPIZugang.Text = "Zugänge API"
+        Me.btnAPIZugang.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnAPIZugang.UseVisualStyleBackColor = True
         '
-        'Button2
+        'btnDatenarchiv
         '
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button2.Location = New System.Drawing.Point(12, 319)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(94, 33)
-        Me.Button2.TabIndex = 41
-        Me.Button2.Text = "Datenarchiv"
-        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button2.UseVisualStyleBackColor = True
+        Me.btnDatenarchiv.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDatenarchiv.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnDatenarchiv.Location = New System.Drawing.Point(12, 319)
+        Me.btnDatenarchiv.Name = "btnDatenarchiv"
+        Me.btnDatenarchiv.Size = New System.Drawing.Size(94, 33)
+        Me.btnDatenarchiv.TabIndex = 41
+        Me.btnDatenarchiv.Text = "Datenarchiv"
+        Me.btnDatenarchiv.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnDatenarchiv.UseVisualStyleBackColor = True
         '
         'btnFehler
         '
@@ -302,6 +304,18 @@ Partial Class frmMain
         Me.PictureBox1.TabIndex = 31
         Me.PictureBox1.TabStop = False
         '
+        'btnMailroutine
+        '
+        Me.btnMailroutine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMailroutine.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnMailroutine.Location = New System.Drawing.Point(12, 516)
+        Me.btnMailroutine.Name = "btnMailroutine"
+        Me.btnMailroutine.Size = New System.Drawing.Size(94, 33)
+        Me.btnMailroutine.TabIndex = 43
+        Me.btnMailroutine.Text = "Mailsender"
+        Me.btnMailroutine.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnMailroutine.UseVisualStyleBackColor = True
+        '
         'frmMain
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -344,6 +358,7 @@ Partial Class frmMain
     Friend WithEvents btnHomepage As System.Windows.Forms.Button
     Friend WithEvents btnFehler As Button
     Friend WithEvents btnAPI As Button
-    Friend WithEvents Button2 As Button
-    Friend WithEvents Button3 As Button
+    Friend WithEvents btnDatenarchiv As Button
+    Friend WithEvents btnAPIZugang As Button
+    Friend WithEvents btnMailroutine As Button
 End Class

UID/frmMain.vb

@@ -215,7 +215,7 @@ Public Class frmMain
         button_Click(sender)
     End Sub
 
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub btnDatenarchiv_Click(sender As Object, e As EventArgs) Handles btnDatenarchiv.Click
         clrPnlMain()
         Dim usrCntl As New usrCntlDatenarchiv("tblPartnersystem_Paramter", "FMZOLL")
         pnlMain.Controls.Add(usrCntl)
@@ -223,8 +223,16 @@ Public Class frmMain
         button_Click(sender)
     End Sub
 
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAPIZugang.Click
         Dim f = New frmAPIZugaenge("tblRESTAuthentication", "ADMIN")
         f.Show()
     End Sub
+
+    Private Sub btnMailroutine_Click(sender As Object, e As EventArgs) Handles btnMailroutine.Click
+        clrPnlMain()
+        Dim usrCntl As New usrCntlDatenarchiv("tblMailsender", "ADMIN")
+        pnlMain.Controls.Add(usrCntl)
+        usrCntl.Dock = DockStyle.Fill
+        button_Click(sender)
+    End Sub
 End Class

UID/usrCntlMailsender.Designer.vb

@@ -0,0 +1,346 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlMailsender
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
+        Me.pnlSearch = New System.Windows.Forms.Panel()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.cbxTestsystem = New System.Windows.Forms.CheckBox()
+        Me.cboPartnersystem = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.btnSuche = New System.Windows.Forms.Button()
+        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.pnlAnzeige = New System.Windows.Forms.Panel()
+        Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.btnSave = New System.Windows.Forms.Button()
+        Me.lblErgebnis = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Button11 = New System.Windows.Forms.Button()
+        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer.Panel1.SuspendLayout()
+        Me.SplitContainer.Panel2.SuspendLayout()
+        Me.SplitContainer.SuspendLayout()
+        Me.pnlSearch.SuspendLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        Me.pnlAnzeige.SuspendLayout()
+        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'SplitContainer
+        '
+        Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+        Me.SplitContainer.IsSplitterFixed = True
+        Me.SplitContainer.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer.Name = "SplitContainer"
+        Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer.Panel1
+        '
+        Me.SplitContainer.Panel1.Controls.Add(Me.pnlSearch)
+        '
+        'SplitContainer.Panel2
+        '
+        Me.SplitContainer.Panel2.Controls.Add(Me.pnlAnzeige)
+        Me.SplitContainer.Size = New System.Drawing.Size(1020, 687)
+        Me.SplitContainer.SplitterDistance = 80
+        Me.SplitContainer.SplitterWidth = 2
+        Me.SplitContainer.TabIndex = 3
+        '
+        'pnlSearch
+        '
+        Me.pnlSearch.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnlSearch.BackColor = System.Drawing.Color.White
+        Me.pnlSearch.Controls.Add(Me.SplitContainer1)
+        Me.pnlSearch.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnlSearch.Location = New System.Drawing.Point(0, 0)
+        Me.pnlSearch.Name = "pnlSearch"
+        Me.pnlSearch.Size = New System.Drawing.Size(1020, 80)
+        Me.pnlSearch.TabIndex = 0
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cbxTestsystem)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboPartnersystem)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label8)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.btnSuche)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.cboFirma)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.Label12)
+        Me.SplitContainer1.Panel2Collapsed = True
+        Me.SplitContainer1.Size = New System.Drawing.Size(1020, 80)
+        Me.SplitContainer1.SplitterDistance = 55
+        Me.SplitContainer1.TabIndex = 0
+        '
+        'cbxTestsystem
+        '
+        Me.cbxTestsystem.AutoSize = True
+        Me.cbxTestsystem.Location = New System.Drawing.Point(15, 3)
+        Me.cbxTestsystem.Name = "cbxTestsystem"
+        Me.cbxTestsystem.Size = New System.Drawing.Size(79, 17)
+        Me.cbxTestsystem.TabIndex = 55
+        Me.cbxTestsystem.Text = "Testsystem"
+        Me.cbxTestsystem.UseVisualStyleBackColor = True
+        '
+        'cboPartnersystem
+        '
+        Me.cboPartnersystem._allowedValuesFreiText = Nothing
+        Me.cboPartnersystem._allowFreiText = False
+        Me.cboPartnersystem._value = ""
+        Me.cboPartnersystem.DropDownWidth = 250
+        Me.cboPartnersystem.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboPartnersystem.FormattingEnabled = True
+        Me.cboPartnersystem.Location = New System.Drawing.Point(367, 28)
+        Me.cboPartnersystem.Name = "cboPartnersystem"
+        Me.cboPartnersystem.Size = New System.Drawing.Size(73, 22)
+        Me.cboPartnersystem.TabIndex = 54
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.Location = New System.Drawing.Point(364, 13)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(90, 13)
+        Me.Label8.TabIndex = 45
+        Me.Label8.Text = "Partnersystem:"
+        '
+        'btnSuche
+        '
+        Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSuche.Location = New System.Drawing.Point(850, 9)
+        Me.btnSuche.Name = "btnSuche"
+        Me.btnSuche.Size = New System.Drawing.Size(162, 52)
+        Me.btnSuche.TabIndex = 28
+        Me.btnSuche.Text = "Ergebnisse laden"
+        Me.btnSuche.UseVisualStyleBackColor = True
+        '
+        'cboFirma
+        '
+        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.cboFirma._allowFreiText = False
+        Me.cboFirma._value = ""
+        Me.cboFirma.DropDownWidth = 250
+        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Location = New System.Drawing.Point(15, 41)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(104, 22)
+        Me.cboFirma.TabIndex = 20
+        Me.cboFirma.Visible = False
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label12.Location = New System.Drawing.Point(12, 23)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(37, 13)
+        Me.Label12.TabIndex = 6
+        Me.Label12.Text = "Firma"
+        Me.Label12.Visible = False
+        '
+        'pnlAnzeige
+        '
+        Me.pnlAnzeige.BackColor = System.Drawing.Color.White
+        Me.pnlAnzeige.Controls.Add(Me.DataGridView)
+        Me.pnlAnzeige.Controls.Add(Me.Panel1)
+        Me.pnlAnzeige.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnlAnzeige.Location = New System.Drawing.Point(0, 0)
+        Me.pnlAnzeige.Name = "pnlAnzeige"
+        Me.pnlAnzeige.Size = New System.Drawing.Size(1020, 605)
+        Me.pnlAnzeige.TabIndex = 0
+        '
+        'DataGridView
+        '
+        Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1
+        Me.DataGridView.AllowUserToAddRows = False
+        Me.DataGridView.AllowUserToDeleteRows = False
+        Me.DataGridView.AllowUserToOrderColumns = True
+        Me.DataGridView.AllowUserToResizeRows = False
+        Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DataGridView.Location = New System.Drawing.Point(0, 0)
+        Me.DataGridView.Name = "DataGridView"
+        Me.DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect
+        Me.DataGridView.Size = New System.Drawing.Size(1020, 561)
+        Me.DataGridView.TabIndex = 0
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.btnSave)
+        Me.Panel1.Controls.Add(Me.lblErgebnis)
+        Me.Panel1.Controls.Add(Me.Label4)
+        Me.Panel1.Controls.Add(Me.txtMaxSrch)
+        Me.Panel1.Controls.Add(Me.Button10)
+        Me.Panel1.Controls.Add(Me.Button11)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel1.Location = New System.Drawing.Point(0, 561)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1020, 44)
+        Me.Panel1.TabIndex = 1
+        '
+        'btnSave
+        '
+        Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSave.Location = New System.Drawing.Point(789, 5)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(118, 26)
+        Me.btnSave.TabIndex = 56
+        Me.btnSave.Text = "speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        '
+        'lblErgebnis
+        '
+        Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblErgebnis.Location = New System.Drawing.Point(864, 25)
+        Me.lblErgebnis.Name = "lblErgebnis"
+        Me.lblErgebnis.Size = New System.Drawing.Size(152, 13)
+        Me.lblErgebnis.TabIndex = 45
+        Me.lblErgebnis.Text = "Max:"
+        Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(930, 5)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(30, 13)
+        Me.Label4.TabIndex = 43
+        Me.Label4.Text = "Max:"
+        '
+        'txtMaxSrch
+        '
+        Me.txtMaxSrch._DateTimeOnly = False
+        Me.txtMaxSrch._numbersOnly = True
+        Me.txtMaxSrch._numbersOnlyKommastellen = ""
+        Me.txtMaxSrch._numbersOnlyTrennzeichen = True
+        Me.txtMaxSrch._Prozent = False
+        Me.txtMaxSrch._ShortDateNew = False
+        Me.txtMaxSrch._ShortDateOnly = False
+        Me.txtMaxSrch._TimeOnly = False
+        Me.txtMaxSrch._TimeOnly_Seconds = False
+        Me.txtMaxSrch._value = ""
+        Me.txtMaxSrch._Waehrung = False
+        Me.txtMaxSrch._WaehrungZeichen = True
+        Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
+        Me.txtMaxSrch.Location = New System.Drawing.Point(966, 2)
+        Me.txtMaxSrch.MaxLineLength = -1
+        Me.txtMaxSrch.MaxLines_Warning = ""
+        Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
+        Me.txtMaxSrch.Name = "txtMaxSrch"
+        Me.txtMaxSrch.Size = New System.Drawing.Size(51, 20)
+        Me.txtMaxSrch.TabIndex = 44
+        Me.txtMaxSrch.Text = "1000"
+        Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Button10
+        '
+        Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button10.Location = New System.Drawing.Point(1117, 1)
+        Me.Button10.Name = "Button10"
+        Me.Button10.Size = New System.Drawing.Size(41, 34)
+        Me.Button10.TabIndex = 3
+        Me.Button10.UseVisualStyleBackColor = True
+        '
+        'Button11
+        '
+        Me.Button11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button11.ForeColor = System.Drawing.Color.Black
+        Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button11.Location = New System.Drawing.Point(1164, 1)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(41, 34)
+        Me.Button11.TabIndex = 4
+        Me.Button11.UseVisualStyleBackColor = True
+        '
+        'usrCntlMailsender
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.SplitContainer)
+        Me.Name = "usrCntlMailsender"
+        Me.Size = New System.Drawing.Size(1020, 687)
+        Me.SplitContainer.Panel1.ResumeLayout(False)
+        Me.SplitContainer.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer.ResumeLayout(False)
+        Me.pnlSearch.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.PerformLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer1.ResumeLayout(False)
+        Me.pnlAnzeige.ResumeLayout(False)
+        CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents SplitContainer As SplitContainer
+    Friend WithEvents pnlSearch As Panel
+    Friend WithEvents SplitContainer1 As SplitContainer
+    Friend WithEvents btnSuche As Button
+    Friend WithEvents pnlAnzeige As Panel
+    Friend WithEvents DataGridView As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label4 As Label
+    Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Button10 As Button
+    Friend WithEvents Button11 As Button
+    Friend WithEvents Label8 As Label
+    Friend WithEvents lblErgebnis As Label
+    Friend WithEvents cboPartnersystem As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents cbxTestsystem As CheckBox
+    Friend WithEvents btnSave As Button
+End Class

UID/usrCntlMailsender.resx

@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="pnlAnzeige.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+</root>

UID/usrCntlMailsender.vb

@@ -0,0 +1,181 @@
+Imports System.ComponentModel
+Imports System.IO
+Imports System.Windows.Documents
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrCntlMailsender
+
+
+    Dim DatenarchivBind As cEasyBinding
+    Public table
+    Public BIND_DB
+    Private EditRow As Integer = -1
+    Sub New(table, BIND_DB)
+        Me.table = table
+        Me.BIND_DB = BIND_DB
+        InitializeComponent()
+    End Sub
+
+
+    Private Sub usrCntlDatenarchiv_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        loaddgv()
+
+
+        'Dim distinctDT As DataTable = DatenarchivBind.bindingdataTable.DefaultView.ToTable(True, "firma")
+
+        'For Each d As DataRow In distinctDT.Rows
+        '    If Not cboPartnersystem.Items.Contains(d.Item(0)) Then cboPartnersystem.Items.Add(d.Item(0))
+        'Next
+
+
+    End Sub
+
+    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
+        Me.Cursor = Cursors.WaitCursor
+
+        loaddgv()
+
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Function getAPIList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("param", cboPartnersystem._value))
+
+        Return list
+
+    End Function
+
+    Function getDatenarchivwhere() As String
+
+        Dim sqlstr = ""
+        If cboPartnersystem._value <> "" Then sqlstr &= " AND [param] = '" & cboPartnersystem._value & "'"
+
+        Return sqlstr
+    End Function
+
+
+    Private Sub DataGridView_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView.CellDoubleClick
+        Me.Cursor = Cursors.WaitCursor
+        Dim tmprowindex As Integer = e.RowIndex
+        If DataGridView.Columns(e.ColumnIndex).Name = "open" Then
+
+            If DataGridView.CurrentRow.Cells("param").Value IsNot DBNull.Value AndAlso DataGridView.CurrentRow.Cells("param").Value.ToString.StartsWith("\\") Then
+                Process.Start(DataGridView.CurrentRow.Cells("param").Value)
+            End If
+        Else
+
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
+
+        DatenarchivBind = New cEasyBinding(BIND_DB)
+
+
+        Dim sqlstr As String = ""
+        Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
+
+
+        DatenarchivBind.initBinding("SELECT " & TopMax & " *  FROM " & table & " WHERE 1 = 1 " & getDatenarchivwhere(), table)
+
+        DataGridView.DataSource = DatenarchivBind.bindingdataTable
+
+        Dim distinctDT As DataTable = DatenarchivBind.bindingdataTable.DefaultView.ToTable(True, "param")
+
+        For Each d As DataRow In distinctDT.Rows
+            If Not cboPartnersystem.Items.Contains(d.Item(0)) Then cboPartnersystem.Items.Add(d.Item(0))
+        Next
+
+        Me.usrCntlDatenarchiv_Load(sender, e)
+
+    End Sub
+
+    Private Sub cboPartnersystem_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPartnersystem.SelectedIndexChanged
+        btnSuche_Click(sender, e)
+    End Sub
+
+
+    Public Sub loaddgv()
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
+
+        Try
+            DatenarchivBind = New cEasyBinding(BIND_DB)
+
+
+            Dim sqlstr As String = ""
+            Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
+
+
+            DatenarchivBind.initBinding("SELECT " & TopMax & " *  FROM " & table & " WHERE 1 = 1 " & getDatenarchivwhere(), table)
+
+            DataGridView.DataSource = DatenarchivBind.bindingdataTable
+
+
+            With DataGridView
+
+                If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
+                .RowHeadersVisible = False
+                .ReadOnly = False
+                '.SelectionMode = DataGridViewSelectionMode.FullRowSelect
+                .MultiSelect = False
+
+
+                For Each cc As DataGridViewColumn In .Columns
+                    If cc.Name.ToLower.Contains("param_") Then
+                        cc.HeaderText = cc.Name.Replace("Param_", "")
+                        If cc.Name.ToLower.Contains("value") Then
+                            cc.AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                        Else
+                            cc.Width = 200
+                        End If
+                    End If
+                Next
+
+
+                lblErgebnis.Text = "Ergebnisse: " & .RowCount
+
+
+            End With
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+
+        If DataGridView.Columns.Count = 0 Or DataGridView.SelectedRows.Count = 0 Then 'alles gelöscht oder markierte Zeile gelöscht
+            DatenarchivBind.updateBinding()
+            Exit Sub
+        End If
+
+        If DataGridView.CurrentRow.Cells("param").ToString <> "" AndAlso DataGridView.CurrentRow.Cells("param").ToString <> "" AndAlso DataGridView.CurrentRow.Cells("param").ToString <> "" AndAlso EditRow >= 0 Then
+            DatenarchivBind.updateBinding()
+        End If
+
+    End Sub
+
+
+    Private Sub DataGridView_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView.EditingControlShowing
+        EditRow = DataGridView.CurrentRow.Index
+    End Sub
+
+    Private Sub DataGridView_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView.SelectionChanged
+        If EditRow >= 0 Then
+            Dim new_row As Integer = EditRow
+            EditRow = -1
+            DataGridView.CurrentCell = DataGridView.Rows(new_row).Cells(
+                DataGridView.CurrentCell.ColumnIndex)
+        End If
+    End Sub
+
+End Class