MS Common

EnvelopeGenerator.Common/Services/ActionService.vb

@@ -3,6 +3,7 @@ Imports DigitalData.Modules.Base
 Imports EnvelopeGenerator.Common.Constants
 Imports EnvelopeGenerator.Common.My.Resources
 Imports DigitalData.Modules.Database
+Imports System.ComponentModel
 
 Public Class ActionService
     Inherits BaseService
@@ -83,6 +84,15 @@ Public Class ActionService
 
         Return True
     End Function
+    Public Function API_SendWithdrawn_Mails(pEnvelope As Envelope, pReason As String) As Boolean
+        Dim oSendResult As Boolean = False
+        For Each oReceiver As EnvelopeReceiver In pEnvelope.Receivers
+            If EmailService.SendEnvelopeDeletedEmail(pEnvelope, oReceiver, pReason) = False Then
+                Return False
+            End If
+        Next
+        Return True
+    End Function
 
     Public Function OpenEnvelope(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
         Dim oUserReference = pReceiver.Email