diff --git a/app/.vs/windream-Result-Handler/FileContentIndex/2767459c-a475-4fc6-9b9d-b6007e244b23.vsidx b/app/.vs/windream-Result-Handler/FileContentIndex/2767459c-a475-4fc6-9b9d-b6007e244b23.vsidx
deleted file mode 100644
index 8a57b26..0000000
Binary files a/app/.vs/windream-Result-Handler/FileContentIndex/2767459c-a475-4fc6-9b9d-b6007e244b23.vsidx and /dev/null differ
diff --git a/app/.vs/windream-Result-Handler/FileContentIndex/597288ca-94fa-4b38-a1c6-bcf6c43000e1.vsidx b/app/.vs/windream-Result-Handler/FileContentIndex/597288ca-94fa-4b38-a1c6-bcf6c43000e1.vsidx
deleted file mode 100644
index 69661c4..0000000
Binary files a/app/.vs/windream-Result-Handler/FileContentIndex/597288ca-94fa-4b38-a1c6-bcf6c43000e1.vsidx and /dev/null differ
diff --git a/app/.vs/windream-Result-Handler/FileContentIndex/66905edb-4aee-4e16-8134-e9bd9ddd3a69.vsidx b/app/.vs/windream-Result-Handler/FileContentIndex/66905edb-4aee-4e16-8134-e9bd9ddd3a69.vsidx
deleted file mode 100644
index e471cc5..0000000
Binary files a/app/.vs/windream-Result-Handler/FileContentIndex/66905edb-4aee-4e16-8134-e9bd9ddd3a69.vsidx and /dev/null differ
diff --git a/app/ClassWMResulthandler/clsDateiverarbeitung.vb b/app/ClassWMResulthandler/clsDateiverarbeitung.vb
index 3e03485..4bd9cae 100644
--- a/app/ClassWMResulthandler/clsDateiverarbeitung.vb
+++ b/app/ClassWMResulthandler/clsDateiverarbeitung.vb
@@ -703,7 +703,7 @@ Public Class clsDateiverarbeitung
                             Logger.Debug("indexvalue read is: '" & wdIndexwert & "'")
                             Try
                                 Dim oConvertDT As DateTime
-                                If DateTime.TryParse(wdIndexwert, oConvertDT) Then
+                                If DateTime.TryParse(wdIndexwert.ToString, oConvertDT) Then
                                     Logger.Debug("indexvalue is datetime - converting to date")
                                     Dim myDate As Date = wdIndexwert
                                     wdIndexwert = Format(myDate, "yyyy-MM-dd")
diff --git a/app/ClassWMResulthandler/clsJob_Work.vb b/app/ClassWMResulthandler/clsJob_Work.vb
index 5b3b12d..de1ce24 100644
--- a/app/ClassWMResulthandler/clsJob_Work.vb
+++ b/app/ClassWMResulthandler/clsJob_Work.vb
@@ -1,5 +1,6 @@
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Messaging
+Imports DigitalData.Modules.Messaging.Mail
 
 Public Class clsJob_Work
     Dim Logger As Logger
@@ -56,7 +57,7 @@ Public Class clsJob_Work
             If Attachment_Filename <> String.Empty Then
                 oAttMt.Add(Attachment_Filename)
             End If
-            If _mail.ConnectToServer(oMAILSMTP, oMAIL_PORT, oMAIL_USER, oPWPlain, oMAIL_AUTH_TYPE) = True Then
+            If _mail.Connect(oMAILSMTP, oMAIL_PORT, oMAIL_USER, oPWPlain, oMAIL_AUTH_TYPE) = True Then
                 Logger.Info($"MAIL: Connection to {oMAILSMTP} successfull!")
                 If _mail.SendMail(oSendto, oMAILFROM, Email_subject, Email_Body, Now, oAttMt, 0) = True Then
                     Return True
diff --git a/app/ClassWMResulthandler/clsProfil.vb b/app/ClassWMResulthandler/clsProfil.vb
index 7c88fdb..998dabf 100644
--- a/app/ClassWMResulthandler/clsProfil.vb
+++ b/app/ClassWMResulthandler/clsProfil.vb
@@ -4,6 +4,7 @@ Imports System.Text
 Imports Newtonsoft.Json
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Messaging
+Imports DigitalData.Modules.Messaging.Mail
 
 Public Class clsProfil
     Inherits clsCURRENT
@@ -256,7 +257,7 @@ Public Class clsProfil
                                                         Email_Body = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body)
                                                         oEmail_Betreff = $"{oEmail_Betreff} [eMail {oCountDocs} von {oGesamtFiles}]"
                                                         If oAttachment_FullFilename <> String.Empty Then
-                                                            Logger.Warn($"Email Attachment {oAttachment_FullFilename}")
+                                                            Logger.Info($"Email Attachment {oAttachment_FullFilename}")
                                                         End If
                                                         Dim oSendto As New List(Of String)
                                                         Dim oSplit = Email_Empfänger.split(";")
@@ -269,8 +270,9 @@ Public Class clsProfil
                                                             oAttMt.Add(oAttachment_FullFilename)
                                                             clsCURRENT.TEMP_FILES.Add(oAttachment_FullFilename)
                                                         End If
+                                                        Logger.Debug("Now _email and Messaging...")
                                                         If Not IsNothing(_email) And _email.Connected2Server = False Then
-                                                            If _email.ConnectToServer(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then
+                                                            If _email.Connect(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then
                                                                 Logger.Info($"MAIL: Connection to {MAILSMTP} successfull!")
                                                             Else
                                                                 Logger.Warn($"{oFileRunNo} Email_ConnectToServer was not successfull!")
@@ -645,7 +647,7 @@ Public Class clsProfil
                                                             clsCURRENT.TEMP_FILES.Add(clsCURRENT.CONCATTED_FILE)
                                                         End If
 
-                                                        If _email.ConnectToServer(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then
+                                                        If _email.Connect(MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE) = True Then
                                                             If _email.SendMail(oSendto, MAILFROM, Email_Betreff, Email_Body, Now, oAttMt, 0) = True Then
                                                                 FileJobSuccessful = True
                                                             Else