From ac3bbc79f3f9f01bde6d1e50011f42c557ccb11d Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Mon, 4 Dec 2023 12:29:40 +0100
Subject: [PATCH] prepare dynamic subjects

---
 .../Entities/EmailTemplate.vb                 | 32 +++++++++++++++++--
 1 file changed, 30 insertions(+), 2 deletions(-)

diff --git a/EnvelopeGenerator.Common/Entities/EmailTemplate.vb b/EnvelopeGenerator.Common/Entities/EmailTemplate.vb
index 8ed4d286..b2b9518f 100644
--- a/EnvelopeGenerator.Common/Entities/EmailTemplate.vb
+++ b/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 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 InitTemplates()
+    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)