92 lines
3.4 KiB
VB.net
92 lines
3.4 KiB
VB.net
Imports DigitalData.Modules.Base
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class TemplateService
|
|
Inherits BaseService
|
|
|
|
Private _replaceDictionary As Dictionary(Of String, String)
|
|
|
|
Private ReadOnly DbConfig As DbConfig
|
|
Private ReadOnly LogConfig As LogConfig
|
|
Private ReadOnly Logger As Logger
|
|
Private ReadOnly EmailHtmlTemplateModel As EmailTemplateModel
|
|
|
|
Public Sub New(pState As State)
|
|
MyBase.New(pState)
|
|
|
|
DbConfig = pState.DbConfig
|
|
LogConfig = pState.LogConfig
|
|
Logger = LogConfig.GetLogger()
|
|
EmailHtmlTemplateModel = New EmailTemplateModel(pState)
|
|
End Sub
|
|
|
|
Private Sub InitDictionary(pEmailData As EmailData)
|
|
Logger.Debug("Initializing dictionary..")
|
|
|
|
_replaceDictionary = New Dictionary(Of String, String) From {
|
|
{"[NAME_RECEIVER]", pEmailData.ReceiverName},
|
|
{"[NAME_SENDER]", pEmailData.SenderName},
|
|
{"[NAME_PORTAL]", DbConfig.ExternalProgramName},
|
|
{"[SIGNATURE_TYPE]", "signieren"},
|
|
{"[LINK_TO_DOCUMENT]", pEmailData.SignatureLink},
|
|
{"[LINK_TO_DOCUMENT_TEXT]", $"{pEmailData.SignatureLink.Truncate(40)}.."},
|
|
{"[DOCUMENT_TITLE]", pEmailData.EnvelopeTitle},
|
|
{"[MESSAGE]", pEmailData.Message},
|
|
{"[DOCUMENT_ACCESS_CODE]", pEmailData.ReceiverAccessCode}
|
|
}
|
|
End Sub
|
|
|
|
Public Sub FillDocumentReceivedEmailBody(pEmailData As EmailData)
|
|
InitDictionary(pEmailData)
|
|
Dim oTemplate = EmailHtmlTemplateModel.GetById(Constants.EmailTemplateType.DocumentReceived)
|
|
|
|
pEmailData.EmailBody = FillTemplate(oTemplate.Body)
|
|
pEmailData.EmailSubject = FillTemplate(oTemplate.Subject)
|
|
End Sub
|
|
|
|
Public Sub FillEnvelopeDeletedEmailBody(pEmailData As EmailData)
|
|
InitDictionary(pEmailData)
|
|
Dim oTemplate = EmailHtmlTemplateModel.GetById(Constants.EmailTemplateType.DocumentDeleted)
|
|
|
|
pEmailData.EmailBody = FillTemplate(oTemplate.Body)
|
|
pEmailData.EmailSubject = FillTemplate(oTemplate.Subject)
|
|
End Sub
|
|
|
|
Public Sub FillDocumentSignedEmailBody(pEmailData As EmailData)
|
|
InitDictionary(pEmailData)
|
|
Dim oTemplate = EmailHtmlTemplateModel.GetById(Constants.EmailTemplateType.DocumentSigned)
|
|
|
|
pEmailData.EmailBody = FillTemplate(oTemplate.Body)
|
|
pEmailData.EmailSubject = FillTemplate(oTemplate.Subject)
|
|
End Sub
|
|
|
|
Public Sub FillDocumentCompletedEmailBody(pEmailData As EmailData)
|
|
InitDictionary(pEmailData)
|
|
Dim oTemplate = EmailHtmlTemplateModel.GetById(Constants.EmailTemplateType.DocumentCompleted)
|
|
|
|
pEmailData.EmailBody = FillTemplate(oTemplate.Body)
|
|
pEmailData.EmailSubject = FillTemplate(oTemplate.Subject)
|
|
End Sub
|
|
|
|
Public Sub FillDocumentAccessCodeReceivedEmailBody(pEmailData As EmailData)
|
|
InitDictionary(pEmailData)
|
|
Dim oTemplate = EmailHtmlTemplateModel.GetById(Constants.EmailTemplateType.DocumentAccessCodeReceived)
|
|
|
|
pEmailData.EmailBody = FillTemplate(oTemplate.Body)
|
|
pEmailData.EmailSubject = FillTemplate(oTemplate.Subject)
|
|
End Sub
|
|
|
|
Private Function FillTemplate(pTemplate As String) As String
|
|
Dim oText As String = pTemplate
|
|
|
|
For Each dictItem As KeyValuePair(Of String, String) In _replaceDictionary
|
|
If oText.Contains(dictItem.Key) Then
|
|
oText = oText.Replace(dictItem.Key, dictItem.Value)
|
|
|
|
End If
|
|
Next
|
|
|
|
Return oText
|
|
End Function
|
|
End Class
|