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

Email Profiler Common: Reihenfolge der SQL Aufrufe korrigiert

Browse Source
This commit is contained in:
PitzM 2024-04-24 14:49:10 +02:00
parent 7443e850f9
commit a97fa3dab4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -190,13 +190,15 @@ Public Class clsWorkEmail
If CURRENT_ATTMT_COUNT = 0 Then
_Logger.Info("### Mail contained no Attachments!! ###")
InsertHistoryEntryWithStatus(CurrentMail, "REJECTED", "No Attachments")
Dim oBody = EmailStrings.EMAIL_NO_FERDS
'If AddEmailToQueueMSSQL(CurrentMail.MessageId, oBody, "No Attachments", _EmailAccountID) = True Then
If AddToEmailQueueMSSQL(CurrentMail.MessageId, oBody, "No Attachments", _EmailAccountID,
_RejectionTemplateId, ErrorCode.NoAttachments, "", "") = True Then
CURRENT_ImapObject.DeleteMessageByUID(poUID)
End If
InsertHistoryEntryWithStatus(CurrentMail, "REJECTED", "No Attachments")
Else
InsertHistoryEntry(CurrentMail)
End If
@ -316,7 +318,7 @@ Public Class clsWorkEmail
'{pMessageId}'
, 0
, {pEmailAccountId}
, 'ZUGFeRD Service'
, 'DDEmailProfiler'
, {pTemplateId}
, '{pErrorCode}'
, '{pParameter1}'