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

    ''' <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 Envelope, pReceiver As EnvelopeReceiver, pStatus As Constants.EnvelopeStatus)
        EmailAdress = pReceiver.Email
        EmailSubject = String.Empty
        EmailType = pStatus

        Message = pEnvelope.Message
        ReferenceID = pEnvelope.Id
        ReferenceString = pEnvelope.Uuid
        ReceiverName = pReceiver.Name
        ReceiverAccessCode = pReceiver.AccessCode
        SenderAdress = pEnvelope.User.Email
        SenderName = pEnvelope.User.FullName
        EnvelopeTitle = pEnvelope.Title
    End Sub

    ''' <summary>
    ''' Constructor for sending email to creator
    ''' </summary>
    ''' <param name="pEnvelope"></param>
    ''' <param name="pStatus"></param>
    Public Sub New(pEnvelope As 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.FullName
        ReceiverAccessCode = String.Empty
        SenderAdress = pEnvelope.User.Email
        SenderName = pEnvelope.User.FullName
        EnvelopeTitle = pEnvelope.Title
    End Sub

End Class