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

EmailProfile.Common: Korrektur, damit Email mit PDF-Datei und kaputten eingebetteten Anhängen abgelehnt und temp. Dateien gelöscht werden.

Browse Source
This commit is contained in:
PitzM 2025-09-05 11:47:53 +02:00
parent 06cfc97ebd
commit ec5c3999ab
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -997,6 +997,16 @@ Public Class clsWorkEmail
' Verarbeite Embedded Attachments ' Verarbeite Embedded Attachments
WorkEmbeddedAttachments(oEmailAttachment, oGdPicturePDF) 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 Else
oAttachmentCount -= 1 oAttachmentCount -= 1
CleanUpFilePath(oEmailAttachment.DestFilePath) CleanUpFilePath(oEmailAttachment.DestFilePath)