Imports EnvelopeGenerator.Domain
Imports EnvelopeGenerator.Domain.Entities
Public Class EmailData
    Public Property EmailAdress As String = ""
    Public Property EmailSubject As String = ""
    Public Property EmailBody As String = ""
    Public Property EmailType As Constants.EnvelopeStatus = Constants.EnvelopeStatus.Invalid
    Public Property ReferenceID As Integer = 0
    Public Property ReferenceString As String = ""

    Public Property ReceiverAccessCode As String = ""
    Public Property ReceiverName As String = ""
    Public Property SenderName As String = ""
    Public Property SenderAdress As String = ""

    Public Property SignatureLink As String = ""
    Public Property Message As String = ""
    Public Property EnvelopeTitle As String = ""

    Public Property EmailAttachment As String = ""
    Public Property ATT1_RELATED_ID As Long
    Public Property ATT1_REL_TYPE As String = ""
    Public Property ADDED_WHO_PROCESS As String = "DDEnvelopGenerator"

    ''' <summary>
    ''' Constructor for sending email to receiver
    ''' </summary>
    ''' <param name="pEnvelope"></param>
    ''' <param name="pReceiver"></param>
    ''' <param name="pStatus"></param>
    Public Sub New(pEnvelope As Entities.Envelope, pReceiver As Receiver, pStatus As Constants.EnvelopeStatus)
        EmailAdress = pReceiver.EmailAddress
        EmailSubject = String.Empty
        EmailType = pStatus

        Message = TextToHtml(pEnvelope.Message)
        ReferenceID = pEnvelope.Id
        ReferenceString = pEnvelope.Uuid
        ReceiverName = pReceiver.Name
        ReceiverAccessCode = pReceiver.AccessCode
        SenderAdress = pEnvelope.User.Email
        SenderName = pEnvelope.User.GetFullName()
        EnvelopeTitle = pEnvelope.Title
    End Sub
    Public Function TextToHtml(input As String) As String
        If String.IsNullOrEmpty(input) Then Return ""

        ' HTML-Encodierung der Sonderzeichen
        Dim encoded As String = System.Net.WebUtility.HtmlEncode(input)

        ' Tabs in &nbsp; umwandeln (z.B. 4 non-breaking spaces)
        encoded = encoded.Replace(vbTab, "&nbsp;&nbsp;&nbsp;&nbsp;")

        ' Zeilenumbrüche in <br /> umwandeln
        encoded = encoded.Replace(vbCrLf, "<br />") ' Windows
        encoded = encoded.Replace(vbCr, "<br />")   ' Mac alt
        encoded = encoded.Replace(vbLf, "<br />")   ' Unix/Linux

        Return encoded
    End Function

    ''' <summary>
    ''' Constructor for sending email to creator
    ''' </summary>
    ''' <param name="pEnvelope"></param>
    ''' <param name="pStatus"></param>
    Public Sub New(pEnvelope As Entities.Envelope, pStatus As Constants.EnvelopeStatus)
        EmailAdress = pEnvelope.User.Email
        EmailSubject = String.Empty
        EmailType = pStatus

        Message = pEnvelope.Message
        ReferenceID = pEnvelope.Id
        ReferenceString = pEnvelope.Uuid
        ReceiverName = pEnvelope.User.GetFullName()
        ReceiverAccessCode = String.Empty
        SenderAdress = pEnvelope.User.Email
        SenderName = pEnvelope.User.GetFullName()
        EnvelopeTitle = pEnvelope.Title
    End Sub

End Class