Public Class EmailData
    Public Property EmailAdress As String
    Public Property EmailSubject As String
    Public Property EmailBody As String
    Public Property ReferenceID As Integer
    Public Property ReferenceString 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 ReadOnly Property EmailSubjectTranslated
        Get
            Return String.Format(My.Resources.Email.Sie_haben_ein_Dokument_zur_Unterschrift_erhalten___0_, EmailSubject)
        End Get
    End Property

    Public Sub New(pEnvelope As Envelope, pReceiver As EnvelopeReceiver)
        EmailAdress = pReceiver.Email
        EmailSubject = pEnvelope.Subject
        Message = pEnvelope.Message
        ReferenceID = pEnvelope.Id
        ReferenceString = pEnvelope.Uuid
        ReceiverName = pReceiver.Name
        SenderAdress = pEnvelope.User.Email
        SenderName = pEnvelope.User.FullName
    End Sub

    Public Sub New()
    End Sub



End Class