diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 2804c48..e0fcaa6 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -6421,7 +6421,7 @@ weiter:
 
         Dim cs = New cCreditSafeAPI("creditsafe")
 
-        Dim Mailinfolast2Years As Boolean = False
+        Dim Mailinfolast1Year As Boolean = False
 
         If cs.authenticate() = "200" Then
 
@@ -6476,7 +6476,7 @@ repeatRequestDailyPages:
                 End If
 
 
-            Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-2) & "' ", "FMZOLL")
+            Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-1) & "' ", "FMZOLL")
 
             Dim dtCreditsafe As DataTable = (New SQL).loadDgvBySql(creditsave, "FMZOLL")
 
@@ -6519,16 +6519,16 @@ repeatRequestDailyPages:
                 If sendMail Then
 
                     If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                        Mailinfolast2Years = True
+                        Mailinfolast1Year = True
                     Else
-                        Mailinfolast2Years = exists
+                        Mailinfolast1Year = exists
                     End If
 
                 End If
 repeatRequest:
                 Dim APIText As String = ""
                 If exists Then
-                    APIText = cs.getCompanyEventsDetails(company, dt, checkDate, upateKunden, False, , setzeKundenbesonderheiten, Mailinfolast2Years, row("Firma"))
+                    APIText = cs.getCompanyEventsDetails(company, dt, checkDate, upateKunden, False, , setzeKundenbesonderheiten, Mailinfolast1Year, row("Firma"))
                 End If
 
                 If (APIText.Contains("Error") Or APIText.Contains("Verbindungsfehler")) Then