09-01-2024

EnvelopeGenerator.Common/Services/EmailService.vb

@@ -5,8 +5,6 @@ Imports DigitalData.Modules.Logging
 Public Class EmailService
     Inherits BaseService
 
-    Private ReadOnly State As State
-
     Private ReadOnly EnvelopeModel As EnvelopeModel
     Private ReadOnly ReceiverModel As ReceiverModel
     Private ReadOnly EmailModel As EmailModel
@@ -54,6 +52,23 @@ Public Class EmailService
         Return True
     End Function
 
+    Public Function SendDocumentAccessCodeReceivedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
+
+        Dim oEmailData As New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageAccessCodeSent) With
+        {
+            .SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, pEnvelope.Uuid, pReceiver.Signature)
+        }
+
+        EmailTemplate.FillDocumentAccessCodeReceivedEmailBody(oEmailData)
+
+        If EmailModel.Insert(oEmailData) = False Then
+            Logger.Error("EMail data could not be inserted.")
+            Return False
+        End If
+
+        Return True
+    End Function
+
     Public Function SendSignedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
         Dim oEmailData = New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageConfirmationSent) With
         {