32 lines
820 B
VB.net
32 lines
820 B
VB.net
Imports DigitalData.Modules.Base
|
|
|
|
Public Class ActionService
|
|
Inherits BaseClass
|
|
|
|
Private ReadOnly State As State
|
|
|
|
Private EmailService As EmailService
|
|
Private HistoryService As HistoryService
|
|
|
|
|
|
Public Sub New(pState As State)
|
|
MyBase.New(pState.LogConfig)
|
|
|
|
State = pState
|
|
EmailService = New EmailService(pState)
|
|
HistoryService = New HistoryService(pState)
|
|
End Sub
|
|
|
|
Public Function DeleteEnvelope(pEnvelope As Envelope) As Boolean
|
|
|
|
HistoryService.SetEnvelopeStatus(pEnvelope, Constants.EnvelopeStatus.EnvelopeDeleted, pEnvelope.User.Email)
|
|
|
|
For Each oReceiver As EnvelopeReceiver In pEnvelope.Receivers
|
|
EmailService.SendEnvelopeDeletedEmail(oReceiver.Id, pEnvelope.Id)
|
|
Next
|
|
|
|
|
|
Return True
|
|
End Function
|
|
|
|
End Class |