4335a500f1
Revised the message for envelope type 2 to improve clarity. The new text now asks users to confirm they have read the document, removing the previous instruction to read and confirm.
112 lines
4.1 KiB
VB.net
112 lines
4.1 KiB
VB.net
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"
|
|
|
|
Public ReadOnly Property EnvelopeTypeId As Integer = 0
|
|
Public Property SignatureType As String = ""
|
|
Public Property DocumentProcess As String = ""
|
|
|
|
Public Sub DynamicStringsForEmails(pEnvelope As Entities.Envelope)
|
|
|
|
If pEnvelope.EnvelopeTypeId = 1 Then
|
|
SignatureType = "Signieren"
|
|
Message = "Bitte lesen und unterzeichnen Sie dieses Dokument."
|
|
DocumentProcess = " und elektronisch unterschreiben"
|
|
ElseIf pEnvelope.EnvelopeTypeId = 2 Then
|
|
SignatureType = "Lesen und bestätigen"
|
|
Message = "Bitte bestätigen Sie, dieses Dokument gelesen zu haben."
|
|
DocumentProcess = ""
|
|
End If
|
|
End Sub
|
|
|
|
''' <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)
|
|
|
|
DynamicStringsForEmails(pEnvelope)
|
|
|
|
EmailAdress = pReceiver.EmailAddress
|
|
EmailSubject = String.Empty
|
|
EmailType = pStatus
|
|
|
|
Message = TextToHtml(Message)
|
|
ReferenceID = pEnvelope.Id
|
|
ReferenceString = pEnvelope.Uuid
|
|
ReceiverName = pReceiver.Name
|
|
ReceiverAccessCode = pReceiver.AccessCode
|
|
SenderAdress = pEnvelope.User.Email
|
|
SenderName = pEnvelope.User.GetFullName()
|
|
EnvelopeTitle = pEnvelope.Title
|
|
EnvelopeTypeId = pEnvelope.EnvelopeTypeId
|
|
SignatureType = TextToHtml(SignatureType)
|
|
DocumentProcess = TextToHtml(DocumentProcess)
|
|
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 umwandeln (z.B. 4 non-breaking spaces)
|
|
encoded = encoded.Replace(vbTab, " ")
|
|
|
|
' 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)
|
|
|
|
DynamicStringsForEmails(pEnvelope)
|
|
|
|
EmailAdress = pEnvelope.User.Email
|
|
EmailSubject = String.Empty
|
|
EmailType = pStatus
|
|
|
|
Message = TextToHtml(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
|
|
EnvelopeTypeId = pEnvelope.EnvelopeTypeId
|
|
SignatureType = TextToHtml(SignatureType)
|
|
DocumentProcess = TextToHtml(DocumentProcess)
|
|
End Sub
|
|
|
|
End Class
|