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 = "support@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