refactor(EnvelopeGenerator.Common): umbenennen in EnvelopeGenerator.CommonService

2025-05-26 11:14:12 +02:00
parent a5261baec5
commit c1d46b446a
120 changed files with 93 additions and 93 deletions
--- a/EnvelopeGenerator.CommonServices/Models/EmailData.vb
+++ b/EnvelopeGenerator.CommonServices/Models/EmailData.vb
@@ -0,0 +1,82 @@
+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.FullName
+        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.FullName
+        ReceiverAccessCode = String.Empty
+        SenderAdress = pEnvelope.User.Email
+        SenderName = pEnvelope.User.FullName
+        EnvelopeTitle = pEnvelope.Title
+    End Sub
+
+End Class