From 1d2b49667e1095ec4ee1de12a59136d80d80d7c9 Mon Sep 17 00:00:00 2001 From: pitzm Date: Wed, 3 Jul 2024 08:45:33 +0200 Subject: [PATCH] =?UTF-8?q?PNG=20als=20verbotene=20Dateiendung=20erg=C3=A4?= =?UTF-8?q?nzt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App/EmailProfiler.Common/clsWorkEmail.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App/EmailProfiler.Common/clsWorkEmail.vb b/App/EmailProfiler.Common/clsWorkEmail.vb index 8a29d7a..9e8d04e 100644 --- a/App/EmailProfiler.Common/clsWorkEmail.vb +++ b/App/EmailProfiler.Common/clsWorkEmail.vb @@ -818,7 +818,7 @@ 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", "jpeg", "gif", "png", "xml"} Dim oValidExt = oValidExtensions.Any(Function(ext) oATTFilename.EndsWith(ext)) If oValidExt = False Then