MS EnvelopeGenerator.Common v1.6 Reason for Aborting

XX.Form v1.7 Reason Aborting

EnvelopeGenerator.Common/Services/TemplateService.vb

@@ -16,7 +16,7 @@ Public Class TemplateService
         EmailHtmlTemplateModel = New EmailTemplateModel(pState)
     End Sub
 
-    Private Sub InitDictionary(pEmailData As EmailData)
+    Private Sub InitDictionary(pEmailData As EmailData, Optional pReason As String = "")
         Logger.Debug("Initializing dictionary..")
 
         _replaceDictionary = New Dictionary(Of String, String) From {
@@ -28,7 +28,8 @@ Public Class TemplateService
             {"[LINK_TO_DOCUMENT_TEXT]", $"{pEmailData.SignatureLink.Truncate(40)}.."},
             {"[DOCUMENT_TITLE]", pEmailData.EnvelopeTitle},
             {"[MESSAGE]", pEmailData.Message},
-            {"[DOCUMENT_ACCESS_CODE]", pEmailData.ReceiverAccessCode}
+            {"[DOCUMENT_ACCESS_CODE]", pEmailData.ReceiverAccessCode},
+            {"[REASON]", pReason}
         }
     End Sub
 
@@ -40,11 +41,11 @@ Public Class TemplateService
         pEmailData.EmailSubject = FillTemplate(oTemplate.Subject)
     End Sub
 
-    Public Sub FillEnvelopeDeletedEmailBody(pEmailData As EmailData)
+    Public Sub FillEnvelopeDeletedEmailBody(pEmailData As EmailData, pReason As String)
         InitDictionary(pEmailData)
         Dim oTemplate = EmailHtmlTemplateModel.GetById(Constants.EmailTemplateType.DocumentDeleted)
 
-        pEmailData.EmailBody = FillTemplate(oTemplate.Body)
+        pEmailData.EmailBody = FillTemplate(oTemplate.Body, pReason)
         pEmailData.EmailSubject = FillTemplate(oTemplate.Subject)
     End Sub
 
@@ -72,7 +73,7 @@ Public Class TemplateService
         pEmailData.EmailSubject = FillTemplate(oTemplate.Subject)
     End Sub
 
-    Private Function FillTemplate(pTemplate As String) As String
+    Private Function FillTemplate(pTemplate As String, Optional pReason As String = "") As String
         Dim oText As String = pTemplate
 
         For Each dictItem As KeyValuePair(Of String, String) In _replaceDictionary