MS EmailFunctions

- ZuGferd Service
- Windream

Modules.Jobs/EDMI/ZUGFeRD/EmailFunctions.vb

@@ -62,7 +62,7 @@ Public Class EmailFunctions
             _logger.Error(ex)
         End Try
     End Sub
-    Public Sub AddToEmailQueueMSSQL(MessageId As String, BodyText As String, pEmailData As EmailData, SourceProcedure As String)
+    Public Sub AddToEmailQueueMSSQL(MessageId As String, BodyText As String, pEmailData As EmailData, SourceProcedure As String, pEmailAccountId As Integer)
         If pEmailData Is Nothing Then
             _logger.Warn("EmailData is empty. Email will not be sent!")
             Exit Sub
@@ -73,7 +73,6 @@ Public Class EmailFunctions
             Dim oReference = MessageId
             Dim oEmailTo = ""
             Dim oSubject = EmailStrings.EMAIL_SUBJECT
-            Dim oAccountId = 1
             Dim oCreatedWho = "ZUGFeRD Service"
             Dim oFinalBodyText = String.Format(EmailStrings.EMAIL_WRAPPING_TEXT, BodyText)
 
@@ -119,7 +118,7 @@ Public Class EmailFunctions
                         ,EMAIL_ATTMT1)
                  VALUES
                        (77
-                       ,{oAccountId}
+                       ,{pEmailAccountId}
                        ,{oHistoryID}
                        ,'{MessageId}'
                        ,77