39 lines
1.1 KiB
VB.net
39 lines
1.1 KiB
VB.net
|
|
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
|