MS Rückruf

EnvelopeGenerator.Common/Services/TemplateService.vb

@@ -42,7 +42,7 @@ Public Class TemplateService
     End Sub
 
     Public Sub FillEnvelopeDeletedEmailBody(pEmailData As EmailData, pReason As String)
-        InitDictionary(pEmailData)
+        InitDictionary(pEmailData, pReason)
         Dim oTemplate = EmailHtmlTemplateModel.GetById(Constants.EmailTemplateType.DocumentDeleted)
 
         pEmailData.EmailBody = FillTemplate(oTemplate.Body, pReason)
@@ -78,6 +78,7 @@ Public Class TemplateService
 
         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