prepare dynamic subjects

EnvelopeGenerator.Common/Entities/EmailTemplate.vb

@@ -6,13 +6,26 @@ Public Class EmailTemplate
     Private _DocumentCompletedBodyTemplate As List(Of String)
     Private _DocumentDeletedBodyTemplate As List(Of String)
 
+    Private _DocumentReceivedSubjectTemplate As String
+    Private _DocumentSignedSubjectTemplate As String
+    Private _DocumentDeletedSubjectTemplate As String
+    Private _DocumentCompletedSubjectTemplate As String
+
     Private _replaceDictionary As Dictionary(Of String, String)
 
     Public Sub New()
-        InitTemplates()
+        InitBodyTemplates()
+        InitSubjectTemplates()
     End Sub
 
-    Private Sub InitTemplates()
+    Private Sub InitSubjectTemplates()
+        _DocumentReceivedSubjectTemplate = "Dokument zur Unterschrift erhalten: '<DOCUMENT_TITLE>'"
+        _DocumentSignedSubjectTemplate = "Dokument unterschrieben: '<DOCUMENT_TITLE>'"
+        _DocumentDeletedSubjectTemplate = "Dokument zurueckgezogen: '<DOCUMENT_TITLE>'"
+        _DocumentCompletedSubjectTemplate = "Dokument abgeschlossen: '<DOCUMENT_TITLE>'"
+    End Sub
+
+    Private Sub InitBodyTemplates()
         _DocumentReceivedBodyTemplate = New List(Of String) From {
             "Guten Tag, <NAME_RECEIVER>,",
             "",
@@ -82,6 +95,21 @@ Public Class EmailTemplate
         FillEmailBody(pEmailData, _DocumentCompletedBodyTemplate)
     End Sub
 
+    Public Sub FillEmailSubject(pEmailData As EmailData, pTemplate As String)
+        InitDictionary(pEmailData)
+
+        Dim resultSubject As String = pTemplate
+
+        For Each dictItem As KeyValuePair(Of String, String) In _replaceDictionary
+            If resultSubject.Contains(dictItem.Key) Then
+                resultSubject = resultSubject.Replace(dictItem.Key, dictItem.Value)
+
+            End If
+        Next
+
+
+    End Sub
+
     Public Sub FillEmailBody(pEmailData As EmailData, pTemplate As List(Of String))
 
         InitDictionary(pEmailData)