126 lines
4.3 KiB
VB.net
126 lines
4.3 KiB
VB.net
|
|
Imports DigitalData.Modules.Base
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class EmailService
|
|
Inherits BaseService
|
|
|
|
Private ReadOnly EmailModel As EmailModel
|
|
Private ReadOnly EmailTemplate As TemplateService
|
|
|
|
Public Sub New(pState As State)
|
|
MyBase.New(pState)
|
|
|
|
EmailModel = New EmailModel(pState)
|
|
EmailTemplate = New TemplateService(pState)
|
|
End Sub
|
|
|
|
Public Function SendEnvelopeDeletedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver, pReason As String) As Boolean
|
|
Logger.Debug("Creating email data object.")
|
|
Dim oEmailData As New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageDeletionSent) With
|
|
{
|
|
.SignatureLink = ""
|
|
}
|
|
|
|
EmailTemplate.FillEnvelopeDeletedEmailBody(oEmailData, pReason)
|
|
|
|
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
|
|
Logger.Debug("Creating email data object.")
|
|
Dim oEmailData As New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageInvitationSent) 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 SendDocumentAccessCodeReceivedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
|
|
Logger.Debug("Creating email data object.")
|
|
Dim oEmailData As New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageAccessCodeSent) With
|
|
{
|
|
.SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, pEnvelope.Uuid, pReceiver.Signature)
|
|
}
|
|
|
|
EmailTemplate.FillDocumentAccessCodeReceivedEmailBody(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
|
|
Logger.Debug("Creating email data object.")
|
|
Dim oEmailData = New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageConfirmationSent) 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
|
|
|
|
Public Function SendDocumentCompletedEmailToReceiver(pEnvelope As Envelope, pReceiver As EnvelopeReceiver, pAttachment As String) As Boolean
|
|
Logger.Debug("Creating email data object.")
|
|
Dim oEmailData = New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageCompletionSent) With
|
|
{
|
|
.SignatureLink = "",
|
|
.EmailAttachment = pAttachment
|
|
}
|
|
|
|
Logger.Debug("Sending mail to receiver: [{0}]", oEmailData.EmailAdress)
|
|
|
|
EmailTemplate.FillDocumentCompletedEmailBody(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 SendDocumentCompletedEmailToCreator(pEnvelope As Envelope, pAttachment As String) As Boolean
|
|
Logger.Debug("Creating email data object.")
|
|
Dim oEmailData = New EmailData(pEnvelope, Constants.EnvelopeStatus.MessageCompletionSent) With
|
|
{
|
|
.SignatureLink = "",
|
|
.EmailAttachment = pAttachment
|
|
}
|
|
|
|
EmailTemplate.FillDocumentCompletedEmailBody(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
|