From ce52218a5ec884ca98c2d1bfa58055ee2cd72723 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Fri, 17 May 2024 14:25:29 +0200 Subject: [PATCH] V 3.0.3.0 graphic extension behavior (png, jpeg) --- App/EmailProfiler.Common/My Project/AssemblyInfo.vb | 4 ++-- App/EmailProfiler.Common/clsWorkEmail.vb | 7 ++++--- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/App/EmailProfiler.Common/My Project/AssemblyInfo.vb b/App/EmailProfiler.Common/My Project/AssemblyInfo.vb index cafc84b..9770050 100644 --- a/App/EmailProfiler.Common/My Project/AssemblyInfo.vb +++ b/App/EmailProfiler.Common/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/App/EmailProfiler.Common/clsWorkEmail.vb b/App/EmailProfiler.Common/clsWorkEmail.vb index 9f7ce18..cae790b 100644 --- a/App/EmailProfiler.Common/clsWorkEmail.vb +++ b/App/EmailProfiler.Common/clsWorkEmail.vb @@ -837,18 +837,19 @@ Public Class clsWorkEmail oATTFilename = oAttachment.SafeFileName.ToString.ToLower Dim oValidExtensions = New List(Of String) From {"pdf", "xls", "xlsx", "doc", "docx", "ppt", "pptx"} - Dim oGraphicExtensions = New List(Of String) From {"jpg", "bmp", "jpg", "gif", "xml"} + Dim oGraphicExtensions = New List(Of String) From {"jpg", "bmp", "jpg", "gif", "xml", "png", "jpeg"} Dim oValidExt = oValidExtensions.Any(Function(ext) oATTFilename.EndsWith(ext)) If oValidExt = False Then - _Logger.Info("Invalid FileExtension [{0}]", oATTFilename) + _Logger.Info("Potentially invalid fileExtension [{0}] ...", oATTFilename) Dim GraphicExt = oGraphicExtensions.Any(Function(ext) oATTFilename.EndsWith(ext)) If GraphicExt = False Then Dim oInfo = $"Consistency or extension of attached file {oATTFilename} is not ok." AddTrackingStatusMSSQL(CurrentMail.MessageId, oInfo, "PDF CONSISTENCY NOT OK", "Info GUI", "EML_PROF_EXTR_ATT1") AddToEmailQueueMSSQL(CurrentMail.MessageId, oInfo, "PDF CONSISTENCY NOT OK", _EmailAccountID, _InfoTemplateId, ErrorCode.PDFStructureCorrupt, oATTFilename, "") - + Else + _Logger.Info("..but graphic extension!") End If Continue For