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

Jobs/ZUGFeRD: Use ExceptionEmailAddress from Config

Browse Source
This commit is contained in:
Jonathan Jenne 2021-05-10 14:47:33 +02:00
parent 0771d5af28
commit fcd21faa01
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@ -24,7 +24,6 @@ Public Class ImportZUGFeRDFiles
Private Const DIRECTORY_DONT_MOVE = "DIRECTORY_DONT_MOVE" Private Const DIRECTORY_DONT_MOVE = "DIRECTORY_DONT_MOVE"
Private Const EXCEPTION_MAIL_ADDRESS = "info-flow@digitaldata.works"
' List of allowed extensions for PDF/A Attachments ' List of allowed extensions for PDF/A Attachments
' This list should not contain xml so the zugferd xml file will be filtered out ' This list should not contain xml so the zugferd xml file will be filtered out
@ -421,7 +420,7 @@ Public Class ImportZUGFeRDFiles
' Send Email to Digital Data ' Send Email to Digital Data
Dim oBody = CreateBodyForUnhandledException(oMessageId, ex) Dim oBody = CreateBodyForUnhandledException(oMessageId, ex)
Dim oEmailData As New EmailData With { Dim oEmailData As New EmailData With {
.From = EXCEPTION_MAIL_ADDRESS, .From = oArgs.ExceptionEmailAddress,
.Subject = $"OutOfMemoryException im ZUGFeRD-Parser @ {oMessageId}" .Subject = $"OutOfMemoryException im ZUGFeRD-Parser @ {oMessageId}"
} }
_email.AddToEmailQueueMSSQL(oMessageId, oBody, oEmailData, "OutOfMemoryException", _EmailOutAccountId) _email.AddToEmailQueueMSSQL(oMessageId, oBody, oEmailData, "OutOfMemoryException", _EmailOutAccountId)
@ -441,7 +440,7 @@ Public Class ImportZUGFeRDFiles
' Send Email to Digital Data ' Send Email to Digital Data
Dim oBody = CreateBodyForUnhandledException(oMessageId, ex) Dim oBody = CreateBodyForUnhandledException(oMessageId, ex)
Dim oEmailData As New EmailData With { Dim oEmailData As New EmailData With {
.From = EXCEPTION_MAIL_ADDRESS, .From = oArgs.ExceptionEmailAddress,
.Subject = $"UnhandledException im ZUGFeRD-Parser @ {oMessageId}" .Subject = $"UnhandledException im ZUGFeRD-Parser @ {oMessageId}"
} }
_email.AddToEmailQueueMSSQL(oMessageId, oBody, oEmailData, "UnhandledException", _EmailOutAccountId) _email.AddToEmailQueueMSSQL(oMessageId, oBody, oEmailData, "UnhandledException", _EmailOutAccountId)
@ -468,7 +467,7 @@ Public Class ImportZUGFeRDFiles
' Send Email to Digital Data ' Send Email to Digital Data
Dim oBody = CreateBodyForUnhandledException(oMessageId, ex) Dim oBody = CreateBodyForUnhandledException(oMessageId, ex)
Dim oEmailData As New EmailData With { Dim oEmailData As New EmailData With {
.From = EXCEPTION_MAIL_ADDRESS, .From = oArgs.ExceptionEmailAddress,
.Subject = $"FileMoveException im ZUGFeRD-Parser @ {oMessageId}" .Subject = $"FileMoveException im ZUGFeRD-Parser @ {oMessageId}"
} }
_email.AddToEmailQueueMSSQL(oMessageId, oBody, oEmailData, "FileMoveException", _EmailOutAccountId) _email.AddToEmailQueueMSSQL(oMessageId, oBody, oEmailData, "FileMoveException", _EmailOutAccountId)

2
Modules.Jobs/EDMI/ZUGFeRD/WorkerArgs.vb
View File

@ -7,6 +7,7 @@ Public Class WorkerArgs
Public ErrorDirectory As String Public ErrorDirectory As String
Public OriginalEmailDirectory As String Public OriginalEmailDirectory As String
Public RejectedEmailDirectory As String Public RejectedEmailDirectory As String
Public ExceptionEmailAddress As String
Public AttachmentsSubDirectory As String Public AttachmentsSubDirectory As String
Public PropertyMap As Dictionary(Of String, XmlItemProperty) Public PropertyMap As Dictionary(Of String, XmlItemProperty)
Public InsertIntoSQLServer As Boolean Public InsertIntoSQLServer As Boolean
@ -18,6 +19,7 @@ Public Class WorkerArgs
OriginalEmailDirectory = Nothing OriginalEmailDirectory = Nothing
RejectedEmailDirectory = Nothing RejectedEmailDirectory = Nothing
AttachmentsSubDirectory = Nothing AttachmentsSubDirectory = Nothing
ExceptionEmailAddress = Nothing
PropertyMap = New Dictionary(Of String, XmlItemProperty) PropertyMap = New Dictionary(Of String, XmlItemProperty)
InsertIntoSQLServer = False InsertIntoSQLServer = False
End Sub End Sub