diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb
index 883c3c27..78f72300 100644
--- a/SDL/Fakturierung/cAutomailversand.vb
+++ b/SDL/Fakturierung/cAutomailversand.vb
@@ -1395,7 +1395,7 @@ Public Class cAutomailversand
 
     End Function
 
-    Public Shared Function automRechnungsversand_deaktivieren(Optional isEinzelrechnung As Boolean = False)
+    Public Shared Function automRechnungsversand_deaktivieren(showMessage As Boolean, Optional isEinzelrechnung As Boolean = False)
 
         Dim RE_Text = ""
 
@@ -1405,14 +1405,20 @@ Public Class cAutomailversand
             RE_Text = "alle markierten Rechnungen"
         End If
 
-        If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand deaktivieren?" & vbNewLine & "Die Rechnungen müssen dann manuell per Mail verschickt werden!", vbYesNoCancel) Then
+        If Not showMessage Then
             Return True
         Else
-            Return False
+
+            If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand deaktivieren?" & vbNewLine & "Die Rechnungen müssen dann manuell per Mail verschickt werden!", vbYesNoCancel) Then
+                Return True
+            Else
+                Return False
+            End If
         End If
+
     End Function
 
-    Public Shared Function automRechnungsversand_aktivieren(Optional isEinzelrechnung As Boolean = False)
+    Public Shared Function automRechnungsversand_aktivieren(showMessage As Boolean, Optional isEinzelrechnung As Boolean = False)
 
         Dim RE_Text = ""
 
@@ -1422,11 +1428,17 @@ Public Class cAutomailversand
             RE_Text = "alle markierten Rechnungen"
         End If
 
-        If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand aktivieren?" & vbNewLine & "Die Rechnungen werden automatisch im Nachtlauf per EMail verschickt!", vbYesNoCancel) Then
+        If Not showMessage Then
             Return True
         Else
-            Return False
+            If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand aktivieren?" & vbNewLine & "Die Rechnungen werden automatisch im Nachtlauf per EMail verschickt!", vbYesNoCancel) Then
+                Return True
+            Else
+                Return False
+            End If
         End If
+
+
     End Function
 
     Public Shared Function automRechnungsversand_durchführen(Optional isEinzelrechnung As Boolean = False, Optional printAfterSent As Boolean = False)
diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
index 73cf89d9..896d9387 100644
--- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
+++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
@@ -641,7 +641,7 @@ Public Class frmFaktSammelRgDrucken
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         If MyDatagridview1.SelectedRows.Count > 0 Then
 
-            If cAutomailversand.automRechnungsversand_aktivieren() Then
+            If cAutomailversand.automRechnungsversand_aktivieren(True) Then
 
                 Dim onlyEMAIL As Boolean = True
 
@@ -717,7 +717,7 @@ Public Class frmFaktSammelRgDrucken
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
         If MyDatagridview1.SelectedRows.Count > 0 Then
 
-            If cAutomailversand.automRechnungsversand_deaktivieren() Then
+            If cAutomailversand.automRechnungsversand_deaktivieren(True) Then
 
                 'setMailversand(false, Firma, Sammelrechung, 2)
                 setMailversand_ALL(False, Firma, Sammelrechung)
diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
index af8f4947..9e2d99f7 100644
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -3528,10 +3528,17 @@ Public Class usrCntlFaktAbrechnung
 
         If Not checkUIDNR() Then Exit Sub
 
-        If RECHNUNG.Sammelrechnung = 0 Then 'nur bei ER
+        setAutomailversand(True)
+
+        saveMe()
+    End Sub
+
+    Private Sub setAutomailversand(showMessageBox As Boolean)
+
+        If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Sammelrechnung = 0 Then 'nur bei ER
 
             If cbxAUTOMailversand.Checked AndAlso (Not RECHNUNG.Automailversand Or RECHNUNG.RechnungsDatum Is Nothing) Then
-                If cAutomailversand.automRechnungsversand_aktivieren(RECHNUNG.Sammelrechnung = 0) Then
+                If cAutomailversand.automRechnungsversand_aktivieren(showMessageBox, RECHNUNG.Sammelrechnung = 0) Then
 
                     If RECHNUNG.RechnungsDatum Is Nothing Then
 
@@ -3550,7 +3557,7 @@ Public Class usrCntlFaktAbrechnung
                 End If
 
             ElseIf Not cbxAUTOMailversand.Checked AndAlso RECHNUNG.Automailversand Then
-                If cAutomailversand.automRechnungsversand_deaktivieren(RECHNUNG.Sammelrechnung = 0) Then
+                If cAutomailversand.automRechnungsversand_deaktivieren(showMessageBox, RECHNUNG.Sammelrechnung = 0) Then
 
                     If Not RECHNUNG.RechnungsDatum Is Nothing Then
                         RECHNUNG.RechnungsDatum = Nothing
@@ -3565,8 +3572,6 @@ Public Class usrCntlFaktAbrechnung
             End If
         End If
 
-
-        saveMe()
     End Sub
 
 
@@ -3907,12 +3912,16 @@ Nächste_Textzeile_lesen:
             End If
 
             If keyData = (Keys.Control Or Keys.S) Then
+                If Not checkUIDNR() Then Return False
+                setAutomailversand(False)
                 saveMe()
                 Return True
             End If
 
 
             If (keyData = (Keys.Control Or Keys.Add)) Or (keyData = (Keys.Control Or Keys.Return)) Then
+                If Not checkUIDNR() Then Return False
+                setAutomailversand(False)
                 btnNeueUnterNR.PerformClick()
                 Return True
             End If