AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

09-01-2024

Browse Source
This commit is contained in:
Jonathan Jenne
2024-01-09 11:01:33 +01:00
parent b849a8d87b
commit b7fbb21076
15 changed files with 730 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
EnvelopeGenerator.Common/Entities/EmailTemplate.vb
View File

@@ -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 = ""