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

Compare commits

base: AppStd:06cfc97ebd4485bc42ced1a2a2fc1468f743d98c
Branches Tags
AppStd:master
...
compare: AppStd:6c47b9ddec79f14679ac4598198ac261f52e2ca3
Branches Tags
AppStd:master

2 Commits
06cfc97ebd ... 6c47b9ddec

Author SHA1 Message Date
pitzm
6c47b9ddec EMailProfile.Common: Version 3.1.0.0 2025-09-05 11:49:41 +02:00
pitzm
ec5c3999ab EmailProfile.Common: Korrektur, damit Email mit PDF-Datei und kaputten eingebetteten Anhängen abgelehnt und temp. Dateien gelöscht werden. 2025-09-05 11:47:53 +02:00
2 changed files with 13 additions and 3 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 © 2025")>
<Assembly: AssemblyTrademark("3.0.10.0")>
<Assembly: AssemblyTrademark("3.1.0.0")>
<Assembly: ComVisible(False)>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.0.10.0")>
<Assembly: AssemblyFileVersion("3.0.10.0")>
<Assembly: AssemblyVersion("3.1.0.0")>
<Assembly: AssemblyFileVersion("3.1.0.0")>

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

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