From 85c4bcc55bb11e89e85aaa40c0e484639362ab06 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 21 Dec 2023 08:11:26 +0100 Subject: [PATCH] J --- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 34d1a666..0aa81960 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -5,6 +5,7 @@ Imports System.Text Imports System.Windows.Forms Imports ClosedXML.Excel Imports Microsoft.Office.Interop +Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class cProgramFunctions @@ -320,7 +321,15 @@ Public Class cProgramFunctions mySmtpsvr.Host = "owa.verag.ag" mySmtpsvr.Port = 587 '25 '587 '25 + + + + + End Select + + + mySmtpsvr.UseDefaultCredentials = False mySmtpsvr.Credentials = myCredentials Try @@ -362,7 +371,12 @@ Public Class cProgramFunctions End If Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MAIL ERROR - VOR SENDEN" & ex.Message, "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + Try + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MAIL ERROR - VOR SENDEN" & ex.Message, "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + Catch ex2 As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("MAIL ERROR - VOR SENDEN LOG! " & ex2.Message, "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex2.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG) + End Try + End Try