106 lines
3.6 KiB
VB.net
106 lines
3.6 KiB
VB.net
Imports DigitalData.Modules.Base
|
|
|
|
Public Class EmailTemplate
|
|
Private _DocumentReceivedBodyTemplate As List(Of String)
|
|
Private _DocumentSignedBodyTemplate As List(Of String)
|
|
Private _DocumentCompletedBodyTemplate As List(Of String)
|
|
Private _DocumentDeletedBodyTemplate As List(Of String)
|
|
|
|
Private _replaceDictionary As Dictionary(Of String, String)
|
|
|
|
Public Sub New()
|
|
InitTemplates()
|
|
End Sub
|
|
|
|
Private Sub InitTemplates()
|
|
_DocumentReceivedBodyTemplate = New List(Of String) From {
|
|
"Guten Tag, <NAME_RECEIVER>,",
|
|
"",
|
|
"<NAME_SENDER> hat Ihnen ein Dokument zum <SIGNATURE_TYPE> gesendet.",
|
|
"",
|
|
"Über den folgenden Link können Sie das Dokument einsehen: <a href=""<LINK_TO_DOCUMENT>""><LINK_TO_DOCUMENT_TEXT></a>",
|
|
"",
|
|
"<MESSAGE>",
|
|
"",
|
|
"Mit freundlichen Grüßen",
|
|
"<NAME_SENDER>"
|
|
}
|
|
|
|
_DocumentSignedBodyTemplate = New List(Of String) From {
|
|
"Guten Tag, <NAME_RECEIVER>",
|
|
"",
|
|
"Ihre Unterschrift auf dem Dokument <DOCUMENT_TITLE> wurde gespeichert.",
|
|
"",
|
|
"Mit freundlichen Grüßen",
|
|
"<NAME_SENDER>"
|
|
}
|
|
|
|
_DocumentDeletedBodyTemplate = New List(Of String) From {
|
|
"Guten Tag, <NAME_RECEIVER>",
|
|
"",
|
|
"Der User <NAME_SENDER> hat den Umschlag <DOCUMENT_TITLE> gelöscht.",
|
|
"",
|
|
"Mit freundlichen Grüßen",
|
|
"<NAME_SENDER>"
|
|
}
|
|
|
|
_DocumentCompletedBodyTemplate = New List(Of String) From {
|
|
"Guten Tag, <NAME_RECEIVER>",
|
|
"",
|
|
"Das Dokument <DOCUMENT_TITLE> wurde von allen Beteiligten unterschrieben.",
|
|
"",
|
|
"Mit freundlichen Grüßen",
|
|
"<NAME_SENDER>"
|
|
}
|
|
End Sub
|
|
|
|
Private Sub InitDictionary(pEmailData As EmailData)
|
|
_replaceDictionary = New Dictionary(Of String, String) From {
|
|
{"<NAME_RECEIVER>", pEmailData.ReceiverName},
|
|
{"<NAME_SENDER>", pEmailData.SenderName},
|
|
{"<SIGNATURE_TYPE>", "signieren"},
|
|
{"<LINK_TO_DOCUMENT>", pEmailData.SignatureLink},
|
|
{"<LINK_TO_DOCUMENT_TEXT>", $"{pEmailData.SignatureLink.Truncate(40)}.."},
|
|
{"<DOCUMENT_TITLE>", pEmailData.EmailSubject},
|
|
{"<MESSAGE>", pEmailData.Message}
|
|
}
|
|
End Sub
|
|
|
|
Public Sub FillDocumentReceivedEmailBody(pEmailData As EmailData)
|
|
FillEmailBody(pEmailData, _DocumentReceivedBodyTemplate)
|
|
End Sub
|
|
|
|
Public Sub FillEnvelopeDeletedEmailBody(pEmailData As EmailData)
|
|
FillEmailBody(pEmailData, _DocumentDeletedBodyTemplate)
|
|
End Sub
|
|
|
|
Public Sub FillDocumentSignedEmailBody(pEmailData As EmailData)
|
|
FillEmailBody(pEmailData, _DocumentSignedBodyTemplate)
|
|
End Sub
|
|
|
|
Public Sub FillDocumentCompletedEmailBody(pEmailData As EmailData)
|
|
FillEmailBody(pEmailData, _DocumentCompletedBodyTemplate)
|
|
End Sub
|
|
|
|
Public Sub FillEmailBody(pEmailData As EmailData, pTemplate As List(Of String))
|
|
|
|
InitDictionary(pEmailData)
|
|
|
|
Dim resultBody As String = ""
|
|
|
|
For Each lineItem As String In pTemplate
|
|
Dim oLineValue As String = lineItem
|
|
For Each dictItem As KeyValuePair(Of String, String) In _replaceDictionary
|
|
If oLineValue.Contains(dictItem.Key) Then
|
|
oLineValue = oLineValue.Replace(dictItem.Key, dictItem.Value)
|
|
|
|
End If
|
|
Next
|
|
resultBody += oLineValue + "<br/>"
|
|
Next
|
|
|
|
pEmailData.EmailBody = resultBody
|
|
|
|
End Sub
|
|
End Class
|