09-01-2024

EnvelopeGenerator.Common/Entities/EmailData.vb

@@ -7,10 +7,11 @@ Public Class EmailData
     Public Property ReferenceID As Integer
     Public Property ReferenceString As String
 
-
+    Public Property ReceiverAccessCode As String
     Public Property ReceiverName As String
     Public Property SenderName As String
     Public Property SenderAdress As String
+
     Public Property SignatureLink As String
     Public Property Message As String
     Public Property EnvelopeTitle As String
@@ -23,14 +24,10 @@ Public Class EmailData
         ReferenceID = pEnvelope.Id
         ReferenceString = pEnvelope.Uuid
         ReceiverName = pReceiver.Name
+        ReceiverAccessCode = pReceiver.AccessCode
         SenderAdress = pEnvelope.User.Email
         SenderName = pEnvelope.User.FullName
         EnvelopeTitle = pEnvelope.Title
     End Sub
 
-    Public Sub New()
-    End Sub
-
-
-
 End Class

EnvelopeGenerator.Common/Entities/EmailTemplate.vb

@@ -5,11 +5,13 @@ Public Class EmailTemplate
     Private _DocumentSignedBodyTemplate As List(Of String)
     Private _DocumentCompletedBodyTemplate As List(Of String)
     Private _DocumentDeletedBodyTemplate As List(Of String)
+    Private _DocumentAccessCodeReceivedBodyTemplate As List(Of String)
 
     Private _DocumentReceivedSubjectTemplate As String
     Private _DocumentSignedSubjectTemplate As String
     Private _DocumentDeletedSubjectTemplate As String
     Private _DocumentCompletedSubjectTemplate As String
+    Private _DocumentAccessCodeReceivedSubjectTemplate As String
 
     Private _replaceDictionary As Dictionary(Of String, String)
 
@@ -27,6 +29,8 @@ Public Class EmailTemplate
         _DocumentSignedSubjectTemplate = "Dokument unterschrieben: '[DOCUMENT_TITLE]'"
         _DocumentDeletedSubjectTemplate = "Vorgang zurückgezogen: '[DOCUMENT_TITLE]'"
         _DocumentCompletedSubjectTemplate = "Vorgang abgeschlossen: '[DOCUMENT_TITLE]'"
+        _DocumentAccessCodeReceivedSubjectTemplate = "Dokument Passwort erhalten: '[DOCUMENT_TITLE]'"
+
     End Sub
 
     Private Sub InitBodyTemplates()
@@ -44,6 +48,7 @@ Public Class EmailTemplate
         }
 
         '_DocumentReceivedBodyTemplate = Common.My.Resources.email_de.Split(vbNewLine).ToList()
+        '_DocumentAccessCodeReceivedBodyTemplate = Common.My.Resources.
 
         _DocumentSignedBodyTemplate = New List(Of String) From {
             "Guten Tag [NAME_RECEIVER]",
@@ -72,6 +77,18 @@ Public Class EmailTemplate
             "Vielen Dank für die Nutzung von",
             "[NAME_PORTAL]"
         }
+
+        _DocumentAccessCodeReceivedBodyTemplate = New List(Of String) From {
+            "Guten Tag [NAME_RECEIVER]",
+            "",
+            "[NAME_SENDER] hat Ihnen ein Dokument zum [SIGNATURE_TYPE] gesendet. ",
+            "Verwenden Sie das folgende Passwort, um das Dokument einzusehen:",
+            "",
+            "[DOCUMENT_ACCESS_CODE]",
+            "",
+            "Vielen Dank für die Nutzung von",
+            "[NAME_PORTAL]"
+        }
     End Sub
 
     Private Sub InitDictionary(pEmailData As EmailData)
@@ -83,7 +100,8 @@ Public Class EmailTemplate
             {"[LINK_TO_DOCUMENT]", pEmailData.SignatureLink},
             {"[LINK_TO_DOCUMENT_TEXT]", $"{pEmailData.SignatureLink.Truncate(40)}.."},
             {"[DOCUMENT_TITLE]", pEmailData.EnvelopeTitle},
-            {"[MESSAGE]", pEmailData.Message}
+            {"[MESSAGE]", pEmailData.Message},
+            {"[DOCUMENT_ACCESS_CODE]", pEmailData.ReceiverAccessCode}
         }
     End Sub
 
@@ -107,7 +125,12 @@ Public Class EmailTemplate
         FillEmailSubject(pEmailData, _DocumentCompletedSubjectTemplate)
     End Sub
 
-    Public Sub FillEmailSubject(pEmailData As EmailData, pTemplate As String)
+    Public Sub FillDocumentAccessCodeReceivedEmailBody(pEmailData As EmailData)
+        FillEmailBody(pEmailData, _DocumentAccessCodeReceivedBodyTemplate)
+        FillEmailSubject(pEmailData, _DocumentAccessCodeReceivedSubjectTemplate)
+    End Sub
+
+    Private Sub FillEmailSubject(pEmailData As EmailData, pTemplate As String)
         InitDictionary(pEmailData)
 
         Dim oSubject As String = pTemplate
@@ -122,7 +145,7 @@ Public Class EmailTemplate
         pEmailData.EmailSubject = oSubject
     End Sub
 
-    Public Sub FillEmailBody(pEmailData As EmailData, pTemplate As List(Of String))
+    Private Sub FillEmailBody(pEmailData As EmailData, pTemplate As List(Of String))
         InitDictionary(pEmailData)
 
         Dim oBody As String = ""