ErrorMeldung

2023-11-07 14:28:08 +01:00
parent 4027773db1
commit 8bb29427d0
9 changed files with 1199 additions and 649 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -432,12 +432,12 @@ Public Class cFakturierung
    End Function
    Shared Function checkAnlage_Orig(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
        If RECHNUNG IsNot Nothing Then
-            If (RECHNUNG.Anlage_1.contains("ATR") Or RECHNUNG.Anlage_1.contains("ATR") Or RECHNUNG.Anlage_1.contains("Präf")) And Not (RECHNUNG.Anlage_1.contains("Kopie") Or RECHNUNG.Anlage_1.contains("Copy")) Then Return True
-            If (RECHNUNG.Anlage_2.contains("ATR") Or RECHNUNG.Anlage_2.contains("ATR") Or RECHNUNG.Anlage_2.contains("Präf")) And Not (RECHNUNG.Anlage_2.contains("Kopie") Or RECHNUNG.Anlage_2.contains("Copy")) Then Return True
-            If (RECHNUNG.Anlage_3.contains("ATR") Or RECHNUNG.Anlage_3.contains("ATR") Or RECHNUNG.Anlage_3.contains("Präf")) And Not (RECHNUNG.Anlage_3.contains("Kopie") Or RECHNUNG.Anlage_3.contains("Copy")) Then Return True
-            If (RECHNUNG.Anlage_4.contains("ATR") Or RECHNUNG.Anlage_4.contains("ATR") Or RECHNUNG.Anlage_4.contains("Präf")) And Not (RECHNUNG.Anlage_4.contains("Kopie") Or RECHNUNG.Anlage_4.contains("Copy")) Then Return True
-            If (RECHNUNG.Anlage_5.contains("ATR") Or RECHNUNG.Anlage_5.contains("ATR") Or RECHNUNG.Anlage_5.contains("Präf")) And Not (RECHNUNG.Anlage_5.contains("Kopie") Or RECHNUNG.Anlage_5.contains("Copy")) Then Return True
-            If (RECHNUNG.Anlage_6.contains("ATR") Or RECHNUNG.Anlage_6.contains("ATR") Or RECHNUNG.Anlage_6.contains("Präf")) And Not (RECHNUNG.Anlage_6.contains("Kopie") Or RECHNUNG.Anlage_6.contains("Copy")) Then Return True
+            If RECHNUNG.Anlage_1 IsNot Nothing Then If (RECHNUNG.Anlage_1.contains("ATR") Or RECHNUNG.Anlage_1.contains("ATR") Or RECHNUNG.Anlage_1.contains("Präf")) And Not (RECHNUNG.Anlage_1.contains("Kopie") Or RECHNUNG.Anlage_1.contains("Copy")) Then Return True
+            If RECHNUNG.Anlage_2 IsNot Nothing Then If (RECHNUNG.Anlage_2.contains("ATR") Or RECHNUNG.Anlage_2.contains("ATR") Or RECHNUNG.Anlage_2.contains("Präf")) And Not (RECHNUNG.Anlage_2.contains("Kopie") Or RECHNUNG.Anlage_2.contains("Copy")) Then Return True
+            If RECHNUNG.Anlage_3 IsNot Nothing Then If (RECHNUNG.Anlage_3.contains("ATR") Or RECHNUNG.Anlage_3.contains("ATR") Or RECHNUNG.Anlage_3.contains("Präf")) And Not (RECHNUNG.Anlage_3.contains("Kopie") Or RECHNUNG.Anlage_3.contains("Copy")) Then Return True
+            If RECHNUNG.Anlage_4 IsNot Nothing Then If (RECHNUNG.Anlage_4.contains("ATR") Or RECHNUNG.Anlage_4.contains("ATR") Or RECHNUNG.Anlage_4.contains("Präf")) And Not (RECHNUNG.Anlage_4.contains("Kopie") Or RECHNUNG.Anlage_4.contains("Copy")) Then Return True
+            If RECHNUNG.Anlage_5 IsNot Nothing Then If (RECHNUNG.Anlage_5.contains("ATR") Or RECHNUNG.Anlage_5.contains("ATR") Or RECHNUNG.Anlage_5.contains("Präf")) And Not (RECHNUNG.Anlage_5.contains("Kopie") Or RECHNUNG.Anlage_5.contains("Copy")) Then Return True
+            If RECHNUNG.Anlage_6 IsNot Nothing Then If (RECHNUNG.Anlage_6.contains("ATR") Or RECHNUNG.Anlage_6.contains("ATR") Or RECHNUNG.Anlage_6.contains("Präf")) And Not (RECHNUNG.Anlage_6.contains("Kopie") Or RECHNUNG.Anlage_6.contains("Copy")) Then Return True
        End If
        Return False
    End Function
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -140,6 +140,16 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property err() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("err", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
--- a/VERAG_PROG_ALLGEMEIN/My
+++ b/VERAG_PROG_ALLGEMEIN/My
--- a/VERAG_PROG_ALLGEMEIN/Resources/err.png
+++ b/VERAG_PROG_ALLGEMEIN/Resources/err.png
--- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
@@ -368,6 +368,12 @@
    <Compile Include="Classes\cOffene_Posten.vb" />
    <Compile Include="Classes\cOffene_Posten_DVO.vb" />
    <Compile Include="Classes\cParkzeiten.vb" />
+    <Compile Include="frmErrorMeldung.Designer.vb">
+      <DependentUpon>frmErrorMeldung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmErrorMeldung.vb">
+      <SubType>Form</SubType>
+    </Compile>
    <Compile Include="Schnittstellen\Digicast\cDigicustAPI.vb" />
    <Compile Include="Schnittstellen\Modaltrans\cOregonNCTSDeclarations.vb" />
    <Compile Include="Classes\cParameter.vb" />
@@ -691,6 +697,9 @@
    <EmbeddedResource Include="DATENSERVER\frmVorlagenUpload.resx">
      <DependentUpon>frmVorlagenUpload.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="frmErrorMeldung.resx">
+      <DependentUpon>frmErrorMeldung.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="frmKdVermerkAdd.resx">
      <DependentUpon>frmKdVermerkAdd.vb</DependentUpon>
    </EmbeddedResource>
@@ -1327,6 +1336,9 @@
  <ItemGroup>
    <None Include="Resources\zeiterfassung_s.png" />
  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\err.png" />
+  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
  <ProjectExtensions />
  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
--- a/VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
+++ b/VERAG_PROG_ALLGEMEIN/cErrorHandler.vb
@@ -4,11 +4,14 @@ Public Class cErrorHandler

    Public Shared Sub ERR(message As String, stack As String, functionName As String, Optional OP As String = "", Optional title As String = "", Optional mailadess As String = "al@verag.ag", Optional recieverMailAdress As String = "", Optional zusatz As String = "", Optional errCode As String = Nothing)
        If OP = "" Then OP = VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL ' GLobal gesetzes Errorhandling! (Standart=SHOW)
+
        Select Case OP
            Case ERROR_OP.MAIL
                sendERRORperMail(title & " | " & My.Application.Info.AssemblyName, message, stack, mailadess, zusatz, functionName)
            Case ERROR_OP.SHOW
-                'MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+                Dim f As New frmErrorMeldung(If(functionName <> "", "Fehler in der Funktion '" & functionName & "'" & vbNewLine & vbNewLine, "") & message & vbNewLine & zusatz, stack, title)
+                f.ShowDialog()
+            Case ERROR_OP.SHOW_MSGBOX
                MsgBox(If(functionName <> "", "Fehler in der Funktion '" & functionName & "'" & vbNewLine & vbNewLine, "") & message & vbNewLine & stack & vbNewLine & zusatz, MsgBoxStyle.OkOnly, If(title <> "", title, "Fehler"))
        End Select

@@ -70,6 +73,7 @@ End Class

 Public Class ERROR_OP
    Shared Property SHOW As String = "SHOW"
+    Shared Property SHOW_MSGBOX As String = "SHOW_MSGBOX"
    Shared Property MAIL As String = "MAIL"
    Shared Property TOFILE As String = "TOFILE"
    Shared Property LOG As String = "LOG" 'Nur fürs Protokoll, keine Fehlermeldung
--- a/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.Designer.vb
@@ -0,0 +1,231 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmErrorMeldung
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular ü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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmErrorMeldung))
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.txtNachricht = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.lblErr_Nachricht = New System.Windows.Forms.Label()
+        Me.MyPanel2 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.btnClose = New System.Windows.Forms.Button()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.MyPanel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.err
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(0, 21)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(95, 94)
+        Me.PictureBox1.TabIndex = 0
+        Me.PictureBox1.TabStop = False
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold)
+        Me.Label1.Location = New System.Drawing.Point(101, 47)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(391, 31)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Es ist ein Fehler aufgetreten!"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(104, 78)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(39, 13)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "Label2"
+        Me.Label2.Visible = False
+        '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.Panel2)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.MyPanel2)
+        Me.Panel1.Controls.Add(Me.PictureBox1)
+        Me.Panel1.Controls.Add(Me.MyPanel1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(500, 449)
+        Me.Panel1.TabIndex = 8
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.Controls.Add(Me.lblErr_Nachricht)
+        Me.Panel2.Controls.Add(Me.Button2)
+        Me.Panel2.Controls.Add(Me.txtNachricht)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel2.Location = New System.Drawing.Point(0, 114)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(498, 138)
+        Me.Panel2.TabIndex = 8
+        '
+        'Button2
+        '
+        Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button2.ForeColor = System.Drawing.Color.White
+        Me.Button2.Location = New System.Drawing.Point(409, 24)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(86, 110)
+        Me.Button2.TabIndex = 9
+        Me.Button2.Text = "IT-Ticket " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "eröffnen"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
+        'txtNachricht
+        '
+        Me.txtNachricht.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtNachricht.Location = New System.Drawing.Point(3, 24)
+        Me.txtNachricht.Multiline = True
+        Me.txtNachricht.Name = "txtNachricht"
+        Me.txtNachricht.Size = New System.Drawing.Size(400, 110)
+        Me.txtNachricht.TabIndex = 3
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(3, 8)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(335, 13)
+        Me.Label3.TabIndex = 7
+        Me.Label3.Text = "Nachricht (Bitte um kurze Schilderung, was den Fehler ausgelöst hat):"
+        '
+        'lblErr_Nachricht
+        '
+        Me.lblErr_Nachricht.AutoSize = True
+        Me.lblErr_Nachricht.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Nachricht.Location = New System.Drawing.Point(341, 8)
+        Me.lblErr_Nachricht.Name = "lblErr_Nachricht"
+        Me.lblErr_Nachricht.Size = New System.Drawing.Size(151, 13)
+        Me.lblErr_Nachricht.TabIndex = 10
+        Me.lblErr_Nachricht.Text = "Bitte Nachricht-Text eingeben!"
+        Me.lblErr_Nachricht.Visible = False
+        '
+        'MyPanel2
+        '
+        Me.MyPanel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.MyPanel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.MyPanel2.Location = New System.Drawing.Point(0, 0)
+        Me.MyPanel2.Name = "MyPanel2"
+        Me.MyPanel2.Size = New System.Drawing.Size(498, 20)
+        Me.MyPanel2.TabIndex = 7
+        '
+        'MyPanel1
+        '
+        Me.MyPanel1.Controls.Add(Me.btnClose)
+        Me.MyPanel1.Controls.Add(Me.TextBox2)
+        Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.MyPanel1.Location = New System.Drawing.Point(0, 252)
+        Me.MyPanel1.Name = "MyPanel1"
+        Me.MyPanel1.Size = New System.Drawing.Size(498, 195)
+        Me.MyPanel1.TabIndex = 6
+        '
+        'btnClose
+        '
+        Me.btnClose.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnClose.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnClose.ForeColor = System.Drawing.Color.White
+        Me.btnClose.Location = New System.Drawing.Point(3, 144)
+        Me.btnClose.Name = "btnClose"
+        Me.btnClose.Size = New System.Drawing.Size(492, 44)
+        Me.btnClose.TabIndex = 8
+        Me.btnClose.Text = "OK"
+        Me.btnClose.UseVisualStyleBackColor = False
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBox2.BackColor = System.Drawing.Color.White
+        Me.TextBox2.Location = New System.Drawing.Point(3, 3)
+        Me.TextBox2.Multiline = True
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.ReadOnly = True
+        Me.TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.TextBox2.Size = New System.Drawing.Size(492, 135)
+        Me.TextBox2.TabIndex = 4
+        '
+        'frmErrorMeldung
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(500, 449)
+        Me.Controls.Add(Me.Panel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmErrorMeldung"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Fehler"
+        Me.TopMost = True
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.MyPanel1.ResumeLayout(False)
+        Me.MyPanel1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents PictureBox1 As Windows.Forms.PictureBox
+    Friend WithEvents Label1 As Windows.Forms.Label
+    Friend WithEvents Label2 As Windows.Forms.Label
+    Friend WithEvents TextBox2 As Windows.Forms.TextBox
+    Friend WithEvents Panel1 As Windows.Forms.Panel
+    Friend WithEvents Panel2 As Windows.Forms.Panel
+    Friend WithEvents Button2 As Windows.Forms.Button
+    Friend WithEvents txtNachricht As Windows.Forms.TextBox
+    Friend WithEvents Label3 As Windows.Forms.Label
+    Friend WithEvents MyPanel2 As MyPanel
+    Friend WithEvents MyPanel1 As MyPanel
+    Friend WithEvents btnClose As Windows.Forms.Button
+    Friend WithEvents lblErr_Nachricht As Windows.Forms.Label
+End Class
--- a/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.resx
+++ b/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.resx
@@ -0,0 +1,220 @@
+<?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>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAEAIyYAAAEAIAAgFgAAFgAAACgAAAAjAAAATAAAAAEAIAAAAAAA+BUAABMLAAATCwAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD49/QJSElIklhZ
+        WHcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAALOzsTA2Njb/ICEh/3x8e2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYmNiTU9NTf+blZT/ExQU/1dYWJQAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwcnJEQ0JC//71
+        8f/Sysj/KSgo/yUnJ8TEw8IbAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAHl6eTFCQUH/1MzJ///18f/u5eL/Uk9P/wwOD/OgoJ9KAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIuLih1/gH8nbW5uYDMzMv/Wz8z/4NfU/+jg3P//9vL/g39+/xMU
+        FP9cXV2AhYWEJnl5eCZ4eXgmeHl4Jnh5eCZ4eXgmeHl4Jnh5eCZ4eXgmeHl4Jnh5eCZ4eXgmc3NzKYeH
+        hyAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOLh4Bw6Ozu6ISIi/z09Pf8pKir/b2xr/+jf
+        3P/e1dL/2NDN/93V0v///Pj/trCu/zIxMf8yMjL/PDs7/zs7O/87Ozv/Ozs7/zs7O/87Ozv/Ozs7/zs7
+        O/87Ozv/Ozs7/zs7O/8+Pj7/KCkp/yUlJsq5ubcyAAAAAAAAAAAAAAAAAAAAAAAAAADs7OsIMzM06z48
+        O//IwL7/0cnG/8rCwP/m3tr/39fU/9nRzv/a0s//2tLP/9fPzP/y6eb/5NvY/8S9u//KwsD/ysPA/8rD
+        wP/Kw8D/ysPA/8rDwP/Kw8D/ysPA/8rDwP/Kw8D/ysPA/9HJxv/Ox8P/VVNS/yEjI//f3t0XAAAAAAAA
+        AAAAAAAAAAAAAHx8e1ssKiv/8unl//fu6//n3tv/9Ovn/+rh3v/l3Nn/5t3a/+bd2v/m3dr/5t3a/+Xc
+        2f/s4+D/9Orn//Pp5v/z6eb/5t3a/+ng3f/06+f/8+rm/+jg3P/l3Nn/5t3a/+bd2v/m3dr/5NvY//Lp
+        5f//+vb/Pz09/2RlZX4AAAAAAAAAAAAAAAAAAAAAc3R0e1NQT//37ur/3NTR/9bPzP/IwL7/yMG+/8nC
+        v//Jwr//ycK//8nCv//Jwr//ycK//8nCv//Jwr//yMG+/8nCv//b09D/18/M/8a/vP/Iwb7/19DN/9zU
+        0f/a0s//2tLP/9rSz//a0s//2NDN//718f+Dfn3/RUdHmQAAAAAAAAAAAAAAAAAAAACMjIx1SkhH//Lp
+        5f/27en/o56c/x4fH/8xMTH/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8vLy//JSYm/8/H
+        xP+oo6H/FhcY/yIjJP+uqKb/8ujl/9rSz//a0s//2tLP/9rSz//a0s//+O/r/3p2df9VVVaTAAAAAAAA
+        AAAAAAAAAAAAAIeHh3RLSUj/8ejk/9/W0v/Vzcv/yMG//8vEwf+9t7T/vLaz/8vEwf/Kw8D/ysPA/8rD
+        wP/Kw8D/ysPA/8nCv//Iwb7/6ODc/+HY1f/Evrv/x8C+/+La1//v5uP/4djV/9nRzv/q4d7/4djV/9fQ
+        zf/47+v/eXV0/1RUVZIAAAAAAAAAAAAAAAAAAAAAh4eHdEtJSP/x6OT/3tXS/9bPzP/NxcL/y8TB/+Xd
+        2f/n3tv/zMXC/87HxP/Px8T/z8fE/8/HxP/Px8T/z8jF/9DIxf+/uLb/w7y5/9LKx//QyMX/wru4/7iy
+        sP/OxsP/3NTR/7y1s//NxsP/39bT//jv6/95dXT/VFRVkgAAAAAAAAAAAAAAAAAAAACHh4d0S0lI//Ho
+        5P/27en/pJ6c/x0eHv8aGxv/t7Gv/8O8uf8gISH/MTEx/zQ0NP80NDT/NDQ0/zQ0NP80NDT/NDQ0/zQ0
+        NP80NDT/NDQ0/zQ0NP8zMzP/GBka/4mFhP/i2db/Ghwc/4eDgf/37er/+O/r/3l1dP9UVFWSAAAAAAAA
+        AAAAAAAAAAAAAIeHh3RLSUj/8ejk/97W0//Vzcr/xL27/9TMyf/y6eX/8ujl/93V0v/e1tP/39fT/9/X
+        0//f19P/39fT/9/X0//f19P/39fT/9/X0//f19P/39fT/9/W0//c1NH/7eTg/+/n4//HwL3/0MnG/93V
+        0v/47+v/eXV0/1RUVZIAAAAAAAAAAAAAAAAAAAAAh4eHdEtJSP/x6OT/187L/+jg3P///Pn/0MnB/6Gd
+        jv+loZL/s66f/7Ktn/+yrZ7/sq2e/7Ktnv+yrZ7/sq2e/7Ktnv+yrZ7/sq2e/7Ktnv+yrZ7/sq2e/7Ou
+        n/+koJD/t7Kp///49f/v5uP/1MzJ//jv6/95dXT/VFRVkgAAAAAAAAAAAAAAAAAAAACHh4d0S0lI//Ho
+        5P/m3tr/5dvc/2ppWv8kJiD/JyY9/yopPf8qKTz/Kik8/yopPP8qKTz/Kik8/yspPf8sKkH/Kyk+/yop
+        PP8qKTz/Kik8/yopPP8qKTz/Kik9/ygmPv8jJCT/V1dG/9zU0//r4t//9+7q/3l1dP9UVFWSAAAAAAAA
+        AAAAAAAAAAAAAIeHh3RLSUj/8efk//zy7/95dmf/BggU/2ZZx/94Z+v/c2Ph/3Nj4P9zY+D/c2Pg/3Jj
+        3v90ZOL/e2n2/3Vl6v97afb/dWXm/3Ji3f9zY+D/c2Pg/3Nj4P9zY+D/d2fq/25f1/8RECv/XFxL//Pp
+        5//78u3/eXV0/1RUVZIAAAAAAAAAAAAAAAAAAAAAh4eHdEtJSP/88u//1M3G/zEyJv9bTrP/gG7//3Jj
+        2v9zY9z/c2Pd/3Nj3f9zY93/dGTf/3pp7P9VTI//ICAj/0xFev94aOf/dWXi/3Nj3f9zY93/c2Pd/3Nj
+        3P9yY9r/fWv5/2tc0v8jJCH/urSr/////f95dXT/VFRVkgAAAAAAAAAAAAAAAAAAAACHh4d0S0lI//71
+        8f/LxL3/LC0l/2NVwv96afH/cGHW/3Fi2P9xYtj/cWLY/3Fi2P95aO7/XFCu/zM2Gf/Cw7D/REgj/05F
+        kv97avT/cWLY/3Fi2P9xYtj/cWLY/3Fi1/93Zuf/cGHb/yIjKP+xraL//////3l1dP9UVFWSAAAAAAAA
+        AAAAAAAAAAAAAIeHh3RLSUj/8unl//ju6/9iYk3/JyRM/39t+v9yY9r/cWLY/3Fi2P9xYtj/cWLY/3Zm
+        5/9nWsj/Ozw4/4KGXv9CRDP/XlGz/3hn7P9xYtj/cWLY/3Fi2P9xYtj/cWLX/4Bt/P85Mm3/SEk1/+jg
+        3P/89PD/eXV0/1RUVZIAAAAAAAAAAAAAAAAAAAAAh4eHdEtJSP/w5+P/8Ofk/8zEwP8eIQz/Vkuj/31r
+        +P9wYdX/cWLY/3Fi2P9xYtj/cGHV/3ho6v9qXcn/NC1k/2JVuf96aev/cGHW/3Fi2P9xYtj/cWLY/3Bh
+        1v97avL/ZVjC/xEVBv+3saj/9+7r//ft6f95dXT/VFRVkgAAAAAAAAAAAAAAAAAAAACNjY13S0lI//Pq
+        5v/Z0c7///Xz/4yJeP8WFhz/dWXj/3Zm5P9xYtf/cWLY/3Fi2P9wYdX/dmbj/3Zl6P9bTrf/c2Li/3dn
+        5/9wYdT/cWLY/3Fi2P9xYtj/dGTf/3xq8v8fHjP/bm1Y//3z8f/a0s//+fDs/3x4d/9VVVaVAAAAAAAA
+        AAAAAAAAAAAAAGBgYHhUUlH/+vDt/9rRzv/i2tb/8unn/0BCJv83Mmr/gW///3Bi1v9xYtj/cWLY/3Vl
+        4v9xYtn/PDpJ/zU5GP84ODn/a17K/3dm5/9xYtj/cWLY/3Bh1f+Abf7/RT2F/ysuE//l3Nn/6eHe/9bO
+        y///+PX/fXl3/zw+PpcAAAAAAAAAAAAAAAAAAAAAm5yaQB0dHf/Kw8D////7//Xs6f//////1c7F/xkb
+        Df9gVLn/e2rz/3Bh1v9xYtj/e2nz/01Dk/9DRiz/+/r7/1peQP8+Nnf/fWv4/3Fi2P9wYtf/eWfs/2dZ
+        yv8lJx//xsC0///////17Oj///v3/+LZ1v8kJCT/f4CAXwAAAAAAAAAAAAAAAAAAAAAAAAAAY2Njqxwc
+        HP96dnX/fnl4/2toZ/+3r6//eHZe/x0bMf9+bPb/c2Te/3Fi2P97afT/QTiD/1laSP//////cXNc/zUt
+        av98avb/cWLY/3Jj2f+Bb/7/NzNZ/ycpEP+Lhob/enZ1/3x4d/9+eXj/JiUl/0pKS8n9/PsBAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAcXFxZjQ1Nbs7PD3QKy0t0HFxcJzx7ewuNTkg6kI5ff+Abf3/cGHV/3xq
+        9v87M3b/YWNN//////95e2X/MCle/3tq9P9wYdb/fWv5/1hOo/8rLRj/XF1az0FDQ88+P0DQPD090Dc4
+        OcJqa2pzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AACusKNJDg8I/21f0v95aO3/e2n0/zMtZf9wclv//////4mLdv8oI0//eWjv/3dm5/94Z+j/Dw4T/4+Q
+        fnIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABpbFS0Ih4+/39t+v98avf/JSBL/4OFbf//////oaKN/x0Z
+        N/94Z+7/gW7+/zErXf9MTzbWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOHg3QwgIwv/UEWY/4l0
+        //9KQYT/QEQg/6Olkv9NUSr/Pzhr/4dy//9gU7j/EhUC/8zMxSQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAJydj2QSEhH/dGTf/4Fv+v9IQXz/HBon/z45af98bO3/fWzx/xkXJ/9/gW2OAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtOM9MsJ1T/g3D//3tp8/92Zuj/emjw/4Vx
+        //87M3P/NDgb7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA19fTHh0g
+        Cv9XS6b/gW7//3Fi2v9+bPr/ZljF/xYXC/+8vLNBAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAiox6hBIRGf9rXNH/f235/3Ni4/8YFiv/b3FbqwAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVFVIrCUlJP9BPF7/KSgt/0BC
+        M8XPzs4CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAfn90XCwvGZ55em1rqaioBQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/////+AAAAD+P///4AAAAP4f
+        ///gAAAA/g///+AAAAD+A///4AAAAP4B///gAAAA+AAAA+AAAADgAAAA4AAAAMAAAABgAAAAwAAAAGAA
+        AADAAAAAYAAAAMAAAABgAAAAwAAAAGAAAADAAAAAYAAAAMAAAABgAAAAwAAAAGAAAADAAAAAYAAAAMAA
+        AABgAAAAwAAAAGAAAADAAAAAYAAAAMAAAABgAAAAwAAAAGAAAADAAAAAYAAAAMAAAABgAAAAwAAAAGAA
+        AADAAAAAYAAAAOAAAABgAAAA8AAAAeAAAAD/wAB/4AAAAP/gAP/gAAAA/+AA/+AAAAD/8AH/4AAAAP/4
+        A//gAAAA//gD/+AAAAD//Af/4AAAAP/+B//gAAAA//8P/+AAAAD/////4AAAAA==
+</value>
+  </data>
+</root>
--- a/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.vb
+++ b/VERAG_PROG_ALLGEMEIN/frmErrorMeldung.vb
@@ -0,0 +1,70 @@
+Imports Microsoft.Office.Interop.Outlook
+
+Public Class frmErrorMeldung
+
+    Dim err_meldung
+    Dim err_stack
+    Dim err_zp As DateTime = Now
+    Dim err_title
+    Sub New(err_meldung, err_stack, Optional err_title = "")
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.err_meldung = err_meldung
+        Me.err_stack = err_stack
+        Me.err_title = err_title
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnClose.Click
+        Me.Close()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        lblErr_Nachricht.Visible = False
+
+        If txtNachricht.Text.Trim = "" Then
+            lblErr_Nachricht.Visible = True
+            Exit Sub
+        End If
+        If txtNachricht.Text.Contains("neu") And txtNachricht.Text.Contains("programmier") Then
+            MsgBox("AVISO wird neu programmiert.... fertig!" & vbNewLine & vbNewLine & "Fehler ist leider immer noch da!" & vbNewLine & "(Abbruch)")
+            Exit Sub
+        End If
+        If txtNachricht.Text.Length <= 3 Then
+            MsgBox("Etwas genauer bitte...")
+            Exit Sub
+        End If
+
+
+        Dim Mail_To = "al@verag.ag"
+        Dim Mail_Text = ""
+
+        Mail_Text &= "User: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & ")" & "<br>"
+        Mail_Text &= "Zeitpunkt: " & err_zp.ToString("dd.MM.yyyy HH:mm:ss") & "<br><br>"
+        'Mail_Text &= "Programm: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & ")" & vbNewLine
+        'Mail_Text &= "User: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & ")" & vbNewLine
+
+        Mail_Text = Mail_Text.Replace("BmWr501956", "*******")
+        Mail_Text = Mail_Text.Replace("+d#XisdBbSt!", "*******")
+        Mail_Text = Mail_Text.Replace("wassermann", "*******")
+
+        Mail_Text &= "<br>" & "<u>User-Nachricht:</u>" & "<br>" & txtNachricht.Text.Trim & "<br>"
+        Mail_Text &= "<br>" & "<u>Error:</u>" & "<br>" & TextBox2.Text.Trim
+
+        If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mail_To, ("ERROR-TICKET " & err_title).trim, Mail_Text) Then
+            Me.Close()
+        End If
+    End Sub
+
+    Private Sub frmErrorMeldung_Load(sender As Object, e As EventArgs) Handles Me.Load
+        TextBox2.Text = err_meldung & vbNewLine & vbNewLine & err_stack
+
+    End Sub
+
+    Private Sub frmErrorMeldung_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        txtNachricht.Focus()
+    End Sub
+End Class