ErrorMeldung

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