76 lines
2.2 KiB
VB.net
76 lines
2.2 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(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
|
|
Dim oEmailData As New EmailData(pEnvelope, pReceiver) 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 SendDocumentReceivedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
|
|
Dim oEmailData As New EmailData(pEnvelope, pReceiver) With
|
|
{
|
|
.SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, pEnvelope.Uuid, pReceiver.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(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
|
|
Dim oEmailData = New EmailData(pEnvelope, pReceiver) 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
|