div. Änderungen

2024-05-14 10:44:36 +02:00
parent 5e3b74a19f
commit 1c51d948a9
10 changed files with 247 additions and 165 deletions
--- a/SDL/frmdynMailvorlage.Designer.vb
+++ b/SDL/frmdynMailvorlage.Designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmdynMailvorlage
    Inherits System.Windows.Forms.Form

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
@@ -20,10 +20,15 @@ Partial Class frmdynMailvorlage
    '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.mainPanel = New System.Windows.Forms.Panel()
+        Me.cbxSendungsvermerk = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.txtSendungsvermerk = New System.Windows.Forms.TextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.cbSendungsvermerk = New System.Windows.Forms.CheckBox()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.btn = New System.Windows.Forms.Button()
        Me.lblWordcount = New System.Windows.Forms.Label()
@@ -54,11 +59,8 @@ Partial Class frmdynMailvorlage
        Me.Label3 = New System.Windows.Forms.Label()
        Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.dgvMailvorlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.cbSendungsvermerk = New System.Windows.Forms.CheckBox()
-        Me.txtSendungsvermerk = New System.Windows.Forms.TextBox()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.cbxSendungsvermerk = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.rtb_txthtml = New System.Windows.Forms.RichTextBox()
        Me.mainPanel.SuspendLayout()
        Me.pnlTop.SuspendLayout()
        CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -69,6 +71,8 @@ Partial Class frmdynMailvorlage
        Me.mainPanel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.mainPanel.Controls.Add(Me.Label11)
+        Me.mainPanel.Controls.Add(Me.rtb_txthtml)
        Me.mainPanel.Controls.Add(Me.cbxSendungsvermerk)
        Me.mainPanel.Controls.Add(Me.Label10)
        Me.mainPanel.Controls.Add(Me.txtSendungsvermerk)
@@ -97,6 +101,57 @@ Partial Class frmdynMailvorlage
        Me.mainPanel.Size = New System.Drawing.Size(1283, 457)
        Me.mainPanel.TabIndex = 101
        '
+        'cbxSendungsvermerk
+        '
+        Me.cbxSendungsvermerk._allowedValuesFreiText = Nothing
+        Me.cbxSendungsvermerk._allowFreiText = False
+        Me.cbxSendungsvermerk._value = ""
+        Me.cbxSendungsvermerk.DropDownWidth = 250
+        Me.cbxSendungsvermerk.FormattingEnabled = True
+        Me.cbxSendungsvermerk.Location = New System.Drawing.Point(678, 435)
+        Me.cbxSendungsvermerk.Name = "cbxSendungsvermerk"
+        Me.cbxSendungsvermerk.Size = New System.Drawing.Size(100, 21)
+        Me.cbxSendungsvermerk.TabIndex = 39
+        Me.cbxSendungsvermerk.Visible = False
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(675, 419)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(107, 13)
+        Me.Label10.TabIndex = 38
+        Me.Label10.Text = "Sendungsvermerk-ID"
+        Me.Label10.Visible = False
+        '
+        'txtSendungsvermerk
+        '
+        Me.txtSendungsvermerk.Location = New System.Drawing.Point(791, 436)
+        Me.txtSendungsvermerk.Name = "txtSendungsvermerk"
+        Me.txtSendungsvermerk.Size = New System.Drawing.Size(290, 20)
+        Me.txtSendungsvermerk.TabIndex = 37
+        Me.txtSendungsvermerk.Visible = False
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(788, 419)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(93, 13)
+        Me.Label9.TabIndex = 36
+        Me.Label9.Text = "Sendungsvermerk"
+        Me.Label9.Visible = False
+        '
+        'cbSendungsvermerk
+        '
+        Me.cbSendungsvermerk.AutoSize = True
+        Me.cbSendungsvermerk.Location = New System.Drawing.Point(678, 394)
+        Me.cbSendungsvermerk.Name = "cbSendungsvermerk"
+        Me.cbSendungsvermerk.Size = New System.Drawing.Size(211, 17)
+        Me.cbSendungsvermerk.TabIndex = 35
+        Me.cbSendungsvermerk.Text = "Sendungsvermerk beim Senden setzen"
+        Me.cbSendungsvermerk.UseVisualStyleBackColor = True
+        '
        'TextBox2
        '
        Me.TextBox2.BackColor = System.Drawing.SystemColors.Control
@@ -217,9 +272,11 @@ Partial Class frmdynMailvorlage
        '
        'rtb_Emailtext
        '
-        Me.rtb_Emailtext.Location = New System.Drawing.Point(15, 72)
+        Me.rtb_Emailtext.AcceptsTab = True
+        Me.rtb_Emailtext.BackColor = System.Drawing.SystemColors.Window
+        Me.rtb_Emailtext.Location = New System.Drawing.Point(10, 72)
        Me.rtb_Emailtext.Name = "rtb_Emailtext"
-        Me.rtb_Emailtext.Size = New System.Drawing.Size(1245, 322)
+        Me.rtb_Emailtext.Size = New System.Drawing.Size(625, 322)
        Me.rtb_Emailtext.TabIndex = 22
        Me.rtb_Emailtext.Text = ""
        '
@@ -426,56 +483,25 @@ Partial Class frmdynMailvorlage
        Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365)
        Me.dgvMailvorlagen.TabIndex = 104
        '
-        'cbSendungsvermerk
+        'Label11
        '
-        Me.cbSendungsvermerk.AutoSize = True
-        Me.cbSendungsvermerk.Location = New System.Drawing.Point(678, 394)
-        Me.cbSendungsvermerk.Name = "cbSendungsvermerk"
-        Me.cbSendungsvermerk.Size = New System.Drawing.Size(211, 17)
-        Me.cbSendungsvermerk.TabIndex = 35
-        Me.cbSendungsvermerk.Text = "Sendungsvermerk beim Senden setzen"
-        Me.cbSendungsvermerk.UseVisualStyleBackColor = True
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(647, 56)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(89, 13)
+        Me.Label11.TabIndex = 41
+        Me.Label11.Text = "Email-Text-HTML"
        '
-        'txtSendungsvermerk
+        'rtb_txthtml
        '
-        Me.txtSendungsvermerk.Location = New System.Drawing.Point(791, 436)
-        Me.txtSendungsvermerk.Name = "txtSendungsvermerk"
-        Me.txtSendungsvermerk.Size = New System.Drawing.Size(290, 20)
-        Me.txtSendungsvermerk.TabIndex = 37
-        Me.txtSendungsvermerk.Visible = False
-        '
-        'Label9
-        '
-        Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(788, 419)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(93, 13)
-        Me.Label9.TabIndex = 36
-        Me.Label9.Text = "Sendungsvermerk"
-        Me.Label9.Visible = False
-        '
-        'cbxSendungsvermerk
-        '
-        Me.cbxSendungsvermerk._allowedValuesFreiText = Nothing
-        Me.cbxSendungsvermerk._allowFreiText = False
-        Me.cbxSendungsvermerk._value = ""
-        Me.cbxSendungsvermerk.DropDownWidth = 250
-        Me.cbxSendungsvermerk.FormattingEnabled = True
-        Me.cbxSendungsvermerk.Location = New System.Drawing.Point(678, 435)
-        Me.cbxSendungsvermerk.Name = "cbxSendungsvermerk"
-        Me.cbxSendungsvermerk.Size = New System.Drawing.Size(100, 21)
-        Me.cbxSendungsvermerk.TabIndex = 39
-        Me.cbxSendungsvermerk.Visible = False
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(675, 419)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(107, 13)
-        Me.Label10.TabIndex = 38
-        Me.Label10.Text = "Sendungsvermerk-ID"
-        Me.Label10.Visible = False
+        Me.rtb_txthtml.AcceptsTab = True
+        Me.rtb_txthtml.BackColor = System.Drawing.SystemColors.Window
+        Me.rtb_txthtml.Location = New System.Drawing.Point(641, 72)
+        Me.rtb_txthtml.Name = "rtb_txthtml"
+        Me.rtb_txthtml.ReadOnly = True
+        Me.rtb_txthtml.Size = New System.Drawing.Size(625, 322)
+        Me.rtb_txthtml.TabIndex = 40
+        Me.rtb_txthtml.Text = ""
        '
        'frmdynMailvorlage
        '
@@ -534,4 +560,6 @@ Partial Class frmdynMailvorlage
    Friend WithEvents txtSendungsvermerk As TextBox
    Friend WithEvents Label9 As Label
    Friend WithEvents cbSendungsvermerk As CheckBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents rtb_txthtml As RichTextBox
 End Class