edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

J

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-12-21 08:11:26 +01:00
parent 9f3edc0454
commit 85c4bcc55b
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -5,6 +5,7 @@ Imports System.Text
Imports System.Windows.Forms Imports System.Windows.Forms
Imports ClosedXML.Excel Imports ClosedXML.Excel
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class cProgramFunctions Public Class cProgramFunctions
@@ -320,7 +321,15 @@ Public Class cProgramFunctions
mySmtpsvr.Host = "owa.verag.ag" mySmtpsvr.Host = "owa.verag.ag"
mySmtpsvr.Port = 587 '25 '587 '25 mySmtpsvr.Port = 587 '25 '587 '25
End Select End Select
mySmtpsvr.UseDefaultCredentials = False mySmtpsvr.UseDefaultCredentials = False
mySmtpsvr.Credentials = myCredentials mySmtpsvr.Credentials = myCredentials
Try Try
@@ -362,7 +371,12 @@ Public Class cProgramFunctions
End If End If
Catch ex As Exception 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 End Try