Formulare, Mahnlauf, etc.

SDL/mdm/usrcntlFremdrechnungen.vb

@@ -1,4 +1,5 @@
-Imports System.Reflection
+Imports System.IO
+Imports System.Reflection
 Imports com.sun.tools.corba.se.idl
 Imports DocumentFormat.OpenXml.VariantTypes
 Imports Microsoft.Office.Interop
@@ -1121,9 +1122,18 @@ Public Class usrcntlFremdrechnungen
         Mail.HTMLBody &= "<br>"
         Mail.HTMLBody &= cFakturierung.getSignature("DE", 19, True, True)
 
+        Dim filesOK As Boolean = True
+
         If pdflist.Count > 0 Then
             For Each pdf In pdflist
-                Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , )
+
+                Dim file As New FileInfo(pdf)
+
+                If file.Exists Then
+                    Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                Else
+                    filesOK = False
+                End If
             Next
         End If
 
@@ -1176,7 +1186,7 @@ Public Class usrcntlFremdrechnungen
 
                     If Mail IsNot Nothing Then
 
-                        If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(API.api_EMail, API.api_EMailSubject, API.api_EMailText, "mmdabrechnung@verag.ag", False, False, API.api_EMailCC, API.api_EMailBCC, pdflist,, "mmdabrechnung@verag.ag") Then
+                        If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(API.api_EMail, API.api_EMailSubject, API.api_EMailText & IIf(Not filesOK, vbNewLine & "ACHTUNG Mind. eine Datei konnte nicht ermittelt werden! ", ""), "mmdabrechnung@verag.ag", False, False, API.api_EMailCC, API.api_EMailBCC, pdflist,, "mmdabrechnung@verag.ag") Then
                             API.UPDTAE_OK()
 
                         Else