Mailversand, etc.

SDL/Fakturierung/cAutomailversand.vb

@@ -229,8 +229,15 @@ Public Class cAutomailversand
             Mail.BCC = MailtoBCC
             Mail.CC = MailtoCC
 
-            For Each a In ATTACHMENTS
-                Mail.Attachments.Add(a.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , a.MailName)
+            For Each att In ATTACHMENTS
+
+
+                If att.Pfad.ToString.ToLower.EndsWith("maut_at.pdf") Or att.Pfad.ToString.ToLower.EndsWith("maut_uta.pdf") Or att.Pfad.ToString.ToLower.EndsWith("maut_mse.pdf") Then
+                    'diese Anh. nicht mitanfügen!
+                Else
+                    Mail.Attachments.Add(att.Pfad, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , att.MailName)
+                End If
+
             Next
 
             Return Mail