Fakt, MDM-Datenverarb, Mahnlauf, etc.

SDL/Fakturierung/cAutomailversand.vb

@@ -132,6 +132,17 @@ Public Class cAutomailversand
                             End If
 
                         Else
+
+                            Dim TextHTML = ""
+                            TextHTML &= HTMLMail
+                            TextHTML &= "<br>"
+                            TextHTML &= "<br>"
+                            TextHTML &= "Mit freundlichen Grüßen<br>"
+                            TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+                            TextHTML &= "<br>"
+                            TextHTML &= cFakturierung.getSignature("DE", FirmaID, True, True)
+                            HTMLMail = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
+
                             If setLog(row.Item("RechnungsKundenNr"), ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC) Then
 
                             End If
@@ -240,6 +251,12 @@ Public Class cAutomailversand
 
         ATTACHMENTS.Clear()
         'Rechnungsanhänge anfügen
+
+        For Each l In listPDFs
+
+            ATTACHMENTS.Add(New cFakt_MailATTach(l, ""))
+
+        Next
         '-----------------------------------------------------------------
         If SR_DT IsNot Nothing AndAlso SR_DT.Rows.Count > 0 Then
             For Each r In SR_DT.Rows
@@ -252,11 +269,7 @@ Public Class cAutomailversand
             Next
         End If
 
-        For Each l In listPDFs
 
-            ATTACHMENTS.Add(New cFakt_MailATTach(l, ""))
-
-        Next
         '-----------------------------------------------------------------