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

Merge branch 'master' of http://git.dd:3000/AppStd/EnvelopeGenerator

Browse Source
This commit is contained in:
PitzM 2023-12-06 11:24:52 +01:00
commit 364e478b52
2 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
EnvelopeGenerator.Common/Entities/EmailData.vb
View File

@ -12,6 +12,7 @@ Public Class EmailData
Public Property SenderAdress As String Public Property SenderAdress As String
Public Property SignatureLink As String Public Property SignatureLink As String
Public Property Message As String Public Property Message As String
Public Property EnvelopeTitle As String
Public Sub New(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) Public Sub New(pEnvelope As Envelope, pReceiver As EnvelopeReceiver)
EmailAdress = pReceiver.Email EmailAdress = pReceiver.Email
@ -22,6 +23,7 @@ Public Class EmailData
ReceiverName = pReceiver.Name ReceiverName = pReceiver.Name
SenderAdress = pEnvelope.User.Email SenderAdress = pEnvelope.User.Email
SenderName = pEnvelope.User.FullName SenderName = pEnvelope.User.FullName
EnvelopeTitle = pEnvelope.Title
End Sub End Sub
Public Sub New() Public Sub New()

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

@ -23,9 +23,9 @@ Public Class EmailTemplate
End Sub End Sub
Private Sub InitSubjectTemplates() Private Sub InitSubjectTemplates()
_DocumentReceivedSubjectTemplate = "Dokument zur Unterschrift erhalten: '<DOCUMENT_TITLE>'" _DocumentReceivedSubjectTemplate = "Dokument erhalten: '<DOCUMENT_TITLE>'"
_DocumentSignedSubjectTemplate = "Dokument unterschrieben: '<DOCUMENT_TITLE>'" _DocumentSignedSubjectTemplate = "Dokument unterschrieben: '<DOCUMENT_TITLE>'"
_DocumentDeletedSubjectTemplate = "Dokument zurueckgezogen: '<DOCUMENT_TITLE>'" _DocumentDeletedSubjectTemplate = "Dokument zurückgezogen: '<DOCUMENT_TITLE>'"
_DocumentCompletedSubjectTemplate = "Dokument abgeschlossen: '<DOCUMENT_TITLE>'" _DocumentCompletedSubjectTemplate = "Dokument abgeschlossen: '<DOCUMENT_TITLE>'"
End Sub End Sub
@ -64,9 +64,10 @@ Public Class EmailTemplate
_DocumentCompletedBodyTemplate = New List(Of String) From { _DocumentCompletedBodyTemplate = New List(Of String) From {
"Guten Tag, <NAME_RECEIVER>", "Guten Tag, <NAME_RECEIVER>",
"", "",
"Das Dokument <DOCUMENT_TITLE> wurde von allen Beteiligten unterschrieben.", "Der Signaturvorgang <DOCUMENT_TITLE> wurde erfolgreich abgeschlossen.",
"Sie erhalten das Dokument mit einem detaillierten Ergebnisbericht als Anhang zu dieser Email.",
"", "",
"Mit freundlichen Grüßen", "Vielen Dank für die Nutzung von",
"<NAME_PORTAL>" "<NAME_PORTAL>"
} }
End Sub End Sub
@ -79,7 +80,7 @@ Public Class EmailTemplate
{"<SIGNATURE_TYPE>", "signieren"}, {"<SIGNATURE_TYPE>", "signieren"},
{"<LINK_TO_DOCUMENT>", pEmailData.SignatureLink}, {"<LINK_TO_DOCUMENT>", pEmailData.SignatureLink},
{"<LINK_TO_DOCUMENT_TEXT>", $"{pEmailData.SignatureLink.Truncate(40)}.."}, {"<LINK_TO_DOCUMENT_TEXT>", $"{pEmailData.SignatureLink.Truncate(40)}.."},
{"<DOCUMENT_TITLE>", pEmailData.EmailSubject}, {"<DOCUMENT_TITLE>", pEmailData.EnvelopeTitle},
{"<MESSAGE>", pEmailData.Message} {"<MESSAGE>", pEmailData.Message}
} }
End Sub End Sub
@ -90,36 +91,38 @@ Public Class EmailTemplate
Public Sub FillEnvelopeDeletedEmailBody(pEmailData As EmailData) Public Sub FillEnvelopeDeletedEmailBody(pEmailData As EmailData)
FillEmailBody(pEmailData, _DocumentDeletedBodyTemplate) FillEmailBody(pEmailData, _DocumentDeletedBodyTemplate)
FillEmailSubject(pEmailData, _DocumentDeletedSubjectTemplate)
End Sub End Sub
Public Sub FillDocumentSignedEmailBody(pEmailData As EmailData) Public Sub FillDocumentSignedEmailBody(pEmailData As EmailData)
FillEmailBody(pEmailData, _DocumentSignedBodyTemplate) FillEmailBody(pEmailData, _DocumentSignedBodyTemplate)
FillEmailSubject(pEmailData, _DocumentSignedSubjectTemplate)
End Sub End Sub
Public Sub FillDocumentCompletedEmailBody(pEmailData As EmailData) Public Sub FillDocumentCompletedEmailBody(pEmailData As EmailData)
FillEmailBody(pEmailData, _DocumentCompletedBodyTemplate) FillEmailBody(pEmailData, _DocumentCompletedBodyTemplate)
FillEmailSubject(pEmailData, _DocumentCompletedSubjectTemplate)
End Sub End Sub
Public Sub FillEmailSubject(pEmailData As EmailData, pTemplate As String) Public Sub FillEmailSubject(pEmailData As EmailData, pTemplate As String)
InitDictionary(pEmailData) InitDictionary(pEmailData)
Dim resultSubject As String = pTemplate Dim oSubject As String = pTemplate
For Each dictItem As KeyValuePair(Of String, String) In _replaceDictionary For Each dictItem As KeyValuePair(Of String, String) In _replaceDictionary
If resultSubject.Contains(dictItem.Key) Then If oSubject.Contains(dictItem.Key) Then
resultSubject = resultSubject.Replace(dictItem.Key, dictItem.Value) oSubject = oSubject.Replace(dictItem.Key, dictItem.Value)
End If End If
Next Next
pEmailData.EmailSubject = oSubject
End Sub End Sub
Public Sub FillEmailBody(pEmailData As EmailData, pTemplate As List(Of String)) Public Sub FillEmailBody(pEmailData As EmailData, pTemplate As List(Of String))
InitDictionary(pEmailData) InitDictionary(pEmailData)
Dim resultBody As String = "" Dim oBody As String = ""
For Each lineItem As String In pTemplate For Each lineItem As String In pTemplate
Dim oLineValue As String = lineItem Dim oLineValue As String = lineItem
@ -129,10 +132,9 @@ Public Class EmailTemplate
End If End If
Next Next
resultBody += oLineValue + "<br/>" oBody += oLineValue + "<br/>"
Next Next
pEmailData.EmailBody = resultBody pEmailData.EmailBody = oBody
End Sub End Sub
End Class End Class