81 lines
2.5 KiB
VB.net
81 lines
2.5 KiB
VB.net
|
|
Imports DigitalData.Modules.Base
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class EmailService
|
|
Inherits BaseClass
|
|
|
|
Private ReadOnly State As State
|
|
|
|
Private ReadOnly EnvelopeModel As EnvelopeModel
|
|
Private ReadOnly ReceiverModel As ReceiverModel
|
|
Private ReadOnly EmailModel As EmailModel
|
|
|
|
Private ReadOnly EmailTemplate As EmailTemplate
|
|
|
|
Public Sub New(pState As State)
|
|
MyBase.New(pState.LogConfig)
|
|
|
|
State = pState
|
|
EnvelopeModel = New EnvelopeModel(pState)
|
|
ReceiverModel = New ReceiverModel(pState)
|
|
EmailModel = New EmailModel(pState)
|
|
EmailTemplate = New EmailTemplate()
|
|
End Sub
|
|
|
|
Public Function SendEnvelopeDeletedEmail(pReceiverId As Integer, pEnvelopeId As Integer) As Boolean
|
|
Dim oEnvelope = EnvelopeModel.GetById(pEnvelopeId)
|
|
Dim oReceiver = ReceiverModel.GetById(pReceiverId)
|
|
|
|
Dim oEmailData As New EmailData(oEnvelope, oReceiver) With
|
|
{
|
|
.SignatureLink = ""
|
|
}
|
|
|
|
EmailTemplate.FillEnvelopeDeletedEmailBody(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 SendInitialEmail(pReceiverId As Integer, pEnvelopeId As Integer) As Boolean
|
|
Dim oEnvelope = EnvelopeModel.GetById(pEnvelopeId)
|
|
Dim oReceiver = ReceiverModel.GetById(pReceiverId)
|
|
|
|
Dim oEmailData As New EmailData(oEnvelope, oReceiver) With
|
|
{
|
|
.SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, oEnvelope.Uuid, oReceiver.Signature)
|
|
}
|
|
|
|
EmailTemplate.FillDocumentReceivedEmailBody(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(pReceiverId As Integer, pEnvelopeId As Integer) As Boolean
|
|
Dim oEnvelope = EnvelopeModel.GetById(pEnvelopeId)
|
|
Dim oReceiver = ReceiverModel.GetById(pReceiverId)
|
|
|
|
Dim oEmailData = New EmailData(oEnvelope, oReceiver) With {.SignatureLink = ""}
|
|
EmailTemplate.FillDocumentSignedEmailBody(oEmailData)
|
|
|
|
If EmailModel.Insert(oEmailData) = False Then
|
|
Logger.Error("EMail data could not be inserted.")
|
|
Return False
|
|
End If
|
|
|
|
Return True
|
|
End Function
|
|
|
|
|
|
End Class
|