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

Compare commits

base: AppStd:7443e850f96564f9379b959022dd70273ce52c0c
Branches Tags
AppStd:master AppStd:Release-Monitoring
...
compare: AppStd:f6b8e7891505e8126f983fa067e9bda2c687ae87
Branches Tags
AppStd:Release-Monitoring AppStd:master

2 Commits
7443e850f9 ... f6b8e78915

Author SHA1 Message Date
pitzm
f6b8e78915 Common: Version 2.15.0.0 2024-04-24 14:49:49 +02:00
pitzm
a97fa3dab4 Email Profiler Common: Reihenfolge der SQL Aufrufe korrigiert 2024-04-24 14:49:10 +02:00
2 changed files with 7 additions and 5 deletions
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: AssemblyCompany("")>
<Assembly: AssemblyProduct("DigitalData.EMLProfiler")> <Assembly: AssemblyProduct("DigitalData.EMLProfiler")>
<Assembly: AssemblyCopyright("Copyright © 2024")> <Assembly: AssemblyCopyright("Copyright © 2024")>
<Assembly: AssemblyTrademark("2.14.0.0")> <Assembly: AssemblyTrademark("2.15.0.0")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.14.0.0")> <Assembly: AssemblyVersion("2.15.0.0")>
<Assembly: AssemblyFileVersion("2.14.0.0")> <Assembly: AssemblyFileVersion("2.15.0.0")>

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

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