From ec5c3999ab6cb2d07280cacae97dd5c9e365850c Mon Sep 17 00:00:00 2001 From: pitzm Date: Fri, 5 Sep 2025 11:47:53 +0200 Subject: [PATCH] =?UTF-8?q?EmailProfile.Common:=20Korrektur,=20damit=20Ema?= =?UTF-8?q?il=20mit=20PDF-Datei=20und=20kaputten=20eingebetteten=20Anh?= =?UTF-8?q?=C3=A4ngen=20abgelehnt=20und=20temp.=20Dateien=20gel=C3=B6scht?= =?UTF-8?q?=20werden.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App/EmailProfiler.Common/clsWorkEmail.vb | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/App/EmailProfiler.Common/clsWorkEmail.vb b/App/EmailProfiler.Common/clsWorkEmail.vb index 6a3bc73..2879dd0 100644 --- a/App/EmailProfiler.Common/clsWorkEmail.vb +++ b/App/EmailProfiler.Common/clsWorkEmail.vb @@ -997,6 +997,16 @@ Public Class clsWorkEmail ' Verarbeite Embedded Attachments WorkEmbeddedAttachments(oEmailAttachment, oGdPicturePDF) + ' Prüfen ob es ungültige Anhänge gibt. + Dim oEmbeddedAttachmentsNotValid As Boolean = EmailAttachments. + Where(Function(att) att.EmbeddedFiles.Count > 0). + Any(Function(emb) emb.EmbeddedFiles.Any(Function(ext) ext.IsAttachmentValid = False)) + + If oEmbeddedAttachmentsNotValid = True Then + MESSAGE_ERROR = True + Continue For + End If + Else oAttachmentCount -= 1 CleanUpFilePath(oEmailAttachment.DestFilePath)