diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb
index ca88aa3..66223cf 100644
--- a/MailSender/MAILSender.vb
+++ b/MailSender/MAILSender.vb
@@ -1,10 +1,9 @@
-Imports System.Runtime.InteropServices
-Imports System.Data.SqlClient
+Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Net
 Imports System.Net.Mail
+Imports System.Runtime.InteropServices
 Imports ClosedXML.Excel
-Imports com.sun.xml.internal.rngom.digested
 Imports DAKOSY_Worker
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -58,7 +57,7 @@ Module Mail
 
             '  PARAM = "MDM_IT_Verguetung"
             'PARAM = "JAHRESABRECHNUNG AG-ZS"
-            ' PARAM = "UID_OPS_SYSKA_ABGLEICH"
+            'PARAM = "ZF"
 
 
             '------------------------------------------------------------------------------------
@@ -285,13 +284,17 @@ Module Mail
 
                         Dim KdNr As String = "714869"
 
-                        If dtParam.Rows.Count = 1 Then
+                        If dtParam.Rows.Count > 1 Then
+
+                            For Each r As DataRow In dtParam.Rows
+
+                                System.Console.WriteLine("OPTION erkannt: " & r.Item("ms_info"))
+                                System.Console.WriteLine("Auswertung Details gestartet...")
+                                If SendEmail_ZF(r.Item("ms_an"), KdNr, von, bis, "monthly", r.Item("ms_cc"), r.Item("ms_bcc"), r.Item("ms_subject"), r.Item("ms_mailtext")) Then
+                                    System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
+                                End If
+                            Next
 
-                            System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info"))
-                            System.Console.WriteLine("Auswertung Details gestartet...")
-                            If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), KdNr, von, bis, "monthly", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
-                                System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
-                            End If
 
                         Else
 
@@ -314,13 +317,14 @@ Module Mail
 
                         KdNr = "764755"
 
-                        If dtParam.Rows.Count = 1 Then
+                        If dtParam.Rows.Count > 1 Then
+                            'wurde bereits oben durchgeführt!
 
-                            System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info"))
-                            System.Console.WriteLine("Auswertung Details gestartet...")
-                            If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), KdNr, von, bis, "monthly", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
-                                System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
-                            End If
+                            'System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info"))
+                            'System.Console.WriteLine("Auswertung Details gestartet...")
+                            'If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), KdNr, von, bis, "monthly", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
+                            '    System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
+                            'End If
 
                         Else
 
@@ -360,7 +364,7 @@ Module Mail
 
                             System.Console.WriteLine("OPTION erkannt: " & dtParam.Rows(0).Item("ms_info"))
                             System.Console.WriteLine("Auswertung Details gestartet...")
-                            If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), KdNr, von, bis, "quarter", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
+                            If SendEmail_ZF(dtParam.Rows(0).Item("ms_an"), dtParam.Rows(0).Item("ms_kundenNr"), von, bis, "quarter", dtParam.Rows(0).Item("ms_cc"), dtParam.Rows(0).Item("ms_bcc"), dtParam.Rows(0).Item("ms_subject"), dtParam.Rows(0).Item("ms_mailtext")) Then
                                 System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
                             End If