Imports DigitalData.Modules.Base
Imports DigitalData.Modules.Logging

Public Class EmailService
    Inherits BaseService

    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)

        EnvelopeModel = New EnvelopeModel(pState)
        ReceiverModel = New ReceiverModel(pState)
        EmailModel = New EmailModel(pState)
        EmailTemplate = New EmailTemplate(pState)
    End Sub

    Public Function SendEnvelopeDeletedEmail(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
        Dim oEmailData As New EmailData(pEnvelope, pReceiver, Constants.EnvelopeStatus.MessageDeletionSent) 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, 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

        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
        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


End Class