AppStd/EmailProfiler
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: AppStd:8a1a0eff99fb2d73b605c7062352cdc4cabd5762
Branches Tags
AppStd:master
...
compare: AppStd:b18a6a304551242fd9bea768245c509843371cbe
Branches Tags
AppStd:master

2 Commits
8a1a0eff99 ... b18a6a3045

Author SHA1 Message Date
pitzm
b18a6a3045 EMailProfile.Common: Version 3.0.4.0 2024-07-03 08:46:22 +02:00
pitzm
1d2b49667e PNG als verbotene Dateiendung ergänzt 2024-07-03 08:45:33 +02:00
2 changed files with 4 additions and 4 deletions
Show Stats Expand all files Collapse all files

6
App/EmailProfiler.Common/My Project/AssemblyInfo.vb
View File

@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("DigitalData.EMLProfiler")>
<Assembly: AssemblyCopyright("Copyright © 2024")>
<Assembly: AssemblyTrademark("3.0.3.0")>
<Assembly: AssemblyTrademark("3.0.4.0")>
<Assembly: ComVisible(False)>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.0.3.0")>
<Assembly: AssemblyFileVersion("3.0.3.0")>
<Assembly: AssemblyVersion("3.0.4.0")>
<Assembly: AssemblyFileVersion("3.0.4.0")>

2
App/EmailProfiler.Common/clsWorkEmail.vb
View File

@ -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