EnvelopeGenerator/EnvelopeGenerator.Common/Services/EmailService.vb

Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging
Imports EnvelopeGenerator.Common.My.Resources

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 GetReceiverUrl(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As String
        Dim oEmailData As New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageInvitationSent) With
        {
          .SignatureLink = Helpers.GetEnvelopeURL(State.DbConfig.SignatureHost, pEnvelope.Uuid, pReceiver.Signature)
        }
        Return oEmailData.SignatureLink
    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) As Boolean ', pAttachment As String
        Logger.Debug("Creating email data object.")
        Dim oEmailData = New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageCompletionSent) With
        {
            .SignatureLink = "",
            .ATT1_RELATED_ID = pEnvelope.Id,
            .ATT1_REL_TYPE = "EnvelopeResult"
        }
        ' .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) As Boolean ', pAttachment As String
        Logger.Debug("Creating email data object.")
        Dim oEmailData = New EmailData(pEnvelope, Constants.EnvelopeStatus.MessageCompletionSent) With
        {
            .SignatureLink = "",
            .ATT1_RELATED_ID = pEnvelope.Id,
            .ATT1_REL_TYPE = "EnvelopeResult"
        }
        '.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