Plose, Mailsender

MailSender/MAILSender.vb

@@ -3,6 +3,7 @@ Imports System.IO
 Imports System.Net
 Imports System.Net.Mail
 Imports ClosedXML.Excel
+Imports com.sun.xml.internal.rngom.digested
 Imports DAKOSY_Worker
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -25,8 +26,12 @@ Module Mail
                 ' Next
             End If
 
+            Dim MailsenderBez As String = "MailSender"
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
+                MailsenderBez &= " UNLEASHED"
+            End If
 
-            System.Console.WriteLine("MailSender gestartet ...")
+            System.Console.WriteLine(MailsenderBez & " gestartet ...")
             ' If IO.File.Exists(options) Then
 
             'If Not IO.File.Exists(last_sent) Then