70 lines
2.7 KiB
VB.net
70 lines
2.7 KiB
VB.net
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 |