add support for more templates

EnvelopeGenerator.Common/Entities/EmailTemplate.vb

@@ -1,20 +1,18 @@
 Imports DigitalData.Modules.Base
 
 Public Class EmailTemplate
-    Inherits BaseModel
-
-    Private _firstBodyTemplate As List(Of String)
+    Private _DocumentReceivedBodyTemplate As List(Of String)
+    Private _DocumentSignedBodyTemplate As List(Of String)
+    Private _DocumentCompletedBodyTemplate As List(Of String)
 
     Private _replaceDictionary As Dictionary(Of String, String)
 
-    Public Sub New(pState As State)
-        MyBase.New(pState)
-
-        InitTemplate()
+    Public Sub New()
+        InitTemplates()
     End Sub
 
-    Private Sub InitTemplate()
-        _firstBodyTemplate = New List(Of String) From {
+    Private Sub InitTemplates()
+        _DocumentReceivedBodyTemplate = New List(Of String) From {
             "Guten Tag, <NAME_RECEIVER>,",
             "",
             "<NAME_SENDER> hat Ihnen ein Dokument zum <SIGNATURE_TYPE> gesendet.",
@@ -26,6 +24,24 @@ Public Class EmailTemplate
             "Mit freundlichen Grüßen",
             "<NAME_SENDER>"
         }
+
+        _DocumentSignedBodyTemplate = New List(Of String) From {
+            "Guten Tag, <NAME_RECEIVER>",
+            "",
+            "Ihre Unterschrift auf dem Dokument <DOCUMENT_TITLE> wurde verarbeitet.",
+            "",
+            "Mit freundlichen Grüßen",
+            "<NAME_SENDER>"
+        }
+
+        _DocumentCompletedBodyTemplate = New List(Of String) From {
+            "Guten Tag, <NAME_RECEIVER>",
+            "",
+            "Das Dokument <DOCUMENT_TITLE> wurde von allen Beteiligten unterschrieben.",
+            "",
+            "Mit freundlichen Grüßen",
+            "<NAME_SENDER>"
+        }
     End Sub
 
     Private Sub InitDictionary(pEmailData As EmailData)
@@ -35,17 +51,30 @@ Public Class EmailTemplate
             {"<SIGNATURE_TYPE>", "signieren"},
             {"<LINK_TO_DOCUMENT>", pEmailData.SignatureLink},
             {"<LINK_TO_DOCUMENT_TEXT>", $"{pEmailData.SignatureLink.Truncate(40)}.."},
+            {"<DOCUMENT_TITLE>", pEmailData.EmailSubject},
             {"<MESSAGE>", pEmailData.Message}
         }
     End Sub
 
-    Public Sub FillEmailBody(pEmailData As EmailData)
+    Public Sub FillDocumentReceivedEmailBody(pEmailData As EmailData)
+        FillEmailBody(pEmailData, _DocumentReceivedBodyTemplate)
+    End Sub
+
+    Public Sub FillDocumentSignedEmailBody(pEmailData As EmailData)
+        FillEmailBody(pEmailData, _DocumentSignedBodyTemplate)
+    End Sub
+
+    Public Sub FillDocumentCompletedEmailBody(pEmailData As EmailData)
+        FillEmailBody(pEmailData, _DocumentCompletedBodyTemplate)
+    End Sub
+
+    Public Sub FillEmailBody(pEmailData As EmailData, pTemplate As List(Of String))
 
         InitDictionary(pEmailData)
 
         Dim resultBody As String = ""
 
-        For Each lineItem As String In _firstBodyTemplate
+        For Each lineItem As String In pTemplate
             Dim oLineValue As String = lineItem
             For Each dictItem As KeyValuePair(Of String, String) In _replaceDictionary
                 If oLineValue.Contains(dictItem.Key) Then