neu

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -252,6 +252,13 @@ Public Class cProgramFunctions
             mySmtpsvr.Send(Msg)
 
         Catch ex As Exception
+
+            Try 'Falls Fehler nicht beim Senden, sonder was anderes.
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "TO: " & eMailTo & vbNewLine & "SUBJ: " & betreff & vbNewLine & "TXT: " & text, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+            Catch ex3 As Exception
+            End Try
+
+
             Try
                 mySmtpsvr.Port = 25
                 mySmtpsvr.Send(Msg)
@@ -271,7 +278,6 @@ Public Class cProgramFunctions
                 End Try
             End Try
 
-
         End Try
         Return True
     End Function