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