diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb
index e777b66e..62c18d18 100644
--- a/SDL/Fakturierung/cAutomailversand.vb
+++ b/SDL/Fakturierung/cAutomailversand.vb
@@ -1,4 +1,5 @@
-Imports com.sun.tools.doclets.internal.toolkit.util
+Imports System.IO
+Imports com.sun.tools.doclets.internal.toolkit.util
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -149,7 +150,7 @@ Public Class cAutomailversand
 
             Next
         Catch ex As System.Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL,,,,,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", "mmdabrechnung@verag.ag"))
 
         End Try
     End Sub
@@ -257,7 +258,7 @@ Public Class cAutomailversand
         ATTACHMENTS.Clear()
         'Rechnungsanhänge anfügen
 
-        Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Belegsanhänge", ".pdf",, False, "Zusammenfassung")
+        Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Attachment", ".pdf",, False, "Zusammenfassung")
 
 
         For Each l In listPDFs
@@ -267,6 +268,9 @@ Public Class cAutomailversand
         Next
         '-----------------------------------------------------------------
         If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
+
+            Dim myList As New List(Of String)
+
             For Each r As DataRow In SR_DT.Rows
                 Dim RG_ANH = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.LOAD_ANHAENGE_LIST(r("RK_ID"))
                 If RG_ANH IsNot Nothing Then
@@ -275,13 +279,11 @@ Public Class cAutomailversand
 
                     If FilialenNr = 4817 Then 'diese immer zusammenfassen!
 
-                        Dim myList As List(Of String)
-
                         For Each ANH In RG_ANH
 
                             Dim path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ANH.dsId)
-                            If Not path.ToString.Contains("Sammelrechnung") Then
-                                myList.Add(ANH.Bezeichnung)
+                            If Not (path.ToString.Contains("Sammelrechnung") OrElse path.ToString.Contains("Maut") OrElse path.ToString.Contains("POS")) Then
+                                myList.Add(path)
                             Else
                                 ATTACHMENTS.Add(New cFakt_MailATTach(path, ANH.Bezeichnung))
                             End If
@@ -289,7 +291,8 @@ Public Class cAutomailversand
                         Next
 
                         If FormularManagerNEU.MergePdfFiles(myList, zielPfadZusammenfassung) Then
-                            ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, ""))
+                            Dim fileInfo As New FileInfo(zielPfadZusammenfassung)
+                            ATTACHMENTS.Add(New cFakt_MailATTach(zielPfadZusammenfassung, fileInfo.Name))
                         End If
 
                     Else
@@ -381,7 +384,7 @@ Public Class cAutomailversand
             Next
 
 
-            If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, "mmdabrechnung@verag.ag", False, False, EMails_CC, EMails_BCC, attachList,, "mmdabrechnung@verag.ag") Then
+            If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, "mmdabrechnung@verag.ag", False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", "mmdabrechnung@verag.ag")) Then
                 API.UPDTAE_OK()
                 mailcreated = True
             Else
diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb
index 5b4d3c70..9029adce 100644
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -6701,7 +6701,7 @@ Public Class FormularManagerNEU
                 End If
 
             Finally
-                If document IsNot Nothing AndAlso document.PageNumber > 0 Then
+                If document IsNot Nothing Then
                     document.Close()
                 End If
             End Try