neu

VERAG_PROG_ALLGEMEIN/cErrorHandler.vb

@@ -13,7 +13,7 @@ Public Class cErrorHandler
         End Select
     End Sub
 
-    Shared Sub sendERRORperMail(title, errmsg, errstack, recieverMailAdress, zusatz, functionName)
+    Public Shared Sub sendERRORperMail(title, errmsg, errstack, recieverMailAdress, zusatz, functionName)
         Dim Msg As New MailMessage
         Dim myCredentials As New System.Net.NetworkCredential
         myCredentials.UserName = "support@verag.ag"
@@ -24,6 +24,7 @@ Public Class cErrorHandler
         mySmtpsvr.Port = 25 '587 '25
         mySmtpsvr.UseDefaultCredentials = False
         mySmtpsvr.Credentials = myCredentials
+
         Try
             Msg.From = New MailAddress("al@verag.ag")
             Msg.To.Add(recieverMailAdress)