scheduler

EnvelopeGenerator.Common/Services/ActionService.vb

@@ -15,36 +15,63 @@ Public Class ActionService
 
         EmailService = New EmailService(pState)
         HistoryService = New HistoryService(pState)
-
         ReceiverModel = New ReceiverModel(pState)
     End Sub
 
+    Public Function SendEnvelope(pEnvelope As Envelope) As Boolean
+        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeQueued, pEnvelope.User.Email) = False Then
+            Return False
+        End If
+
+        Dim oSendResult = pEnvelope.Receivers.
+            Select(Function(r) EmailService.SendDocumentReceivedEmail(pEnvelope, r)).
+            All(Function(r) r = True)
+
+        If oSendResult = False Then
+            Return False
+        End If
+
+        Return True
+    End Function
+
     Public Function DeleteEnvelope(pEnvelope As Envelope) As Boolean
-        HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeDeleted, pEnvelope.User.Email)
+        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeDeleted, pEnvelope.User.Email) = False Then
+            Return False
+        End If
+
+        Dim oSendResult = pEnvelope.Receivers.
+            Select(Function(r) EmailService.SendEnvelopeDeletedEmail(pEnvelope, r)).
+            All(Function(r) r = True)
+
+        If oSendResult = False Then
+            Return False
+        End If
 
         For Each oReceiver As EnvelopeReceiver In pEnvelope.Receivers
-            EmailService.SendEnvelopeDeletedEmail(oReceiver.Id, pEnvelope.Id)
+            EmailService.SendEnvelopeDeletedEmail(pEnvelope, oReceiver)
         Next
 
         Return True
     End Function
 
-    Public Function OpenEnvelope(pEnvelope As Envelope, pReceiverId As Integer) As Boolean
-        Dim oReceiver As EnvelopeReceiver = ReceiverModel.GetById(pReceiverId)
-        Dim oUserReference = oReceiver.Email
+    Public Function OpenEnvelope(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
+        Dim oUserReference = pReceiver.Email
 
-        Return HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.DocumentOpened, oUserReference)
+        If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.DocumentOpened, oUserReference) = False Then
+            Return False
+        End If
+
+        Return True
     End Function
 
-    Public Function SignEnvelope(pEnvelope As Envelope, pReceiverId As Integer) As Boolean
-        Dim oReceiver As EnvelopeReceiver = ReceiverModel.GetById(pReceiverId)
-        Dim oUserReference = oReceiver.Email
+    Public Function SignEnvelope(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
+        Dim oUserReference = pReceiver.Email
 
         If HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.DocumentSigned, oUserReference) = False Then
             Return False
         End If
 
-        Return EmailService.SendSignedEmail(oReceiver.Id, pEnvelope.Id)
+        Return EmailService.SendSignedEmail(pEnvelope, pReceiver)
     End Function