2023-08-07

EnvelopeGenerator.Common/Entities/Envelope.vb

@@ -0,0 +1,48 @@
+Public Class Envelope
+    Public Property Id As Integer = 0
+    Public Property Subject As String
+    Public Property Message As String
+    Public Property UserId As Integer
+    Public Property Uuid As String = Guid.NewGuid.ToString()
+    Public Property Status As Constants.EnvelopeStatus
+
+    Public Property Documents As New List(Of EnvelopeDocument)
+    Public Property Receivers As New List(Of EnvelopeReceiver)
+
+    Public Function Validate() As List(Of String)
+        Dim oErrors As New List(Of String)
+
+        If String.IsNullOrWhiteSpace(Subject) Then
+            oErrors.Add(My.Resources.Envelope.Missing_Subject)
+        End If
+
+        If String.IsNullOrWhiteSpace(Message) Then
+            oErrors.Add(My.Resources.Envelope.Missing_Message)
+        End If
+
+        If Documents.Count = 0 Then
+            oErrors.Add(My.Resources.Envelope.Missing_Documents)
+        End If
+
+        If Receivers.Count = 0 Then
+            oErrors.Add(My.Resources.Envelope.Missing_Receivers)
+        End If
+
+        For Each Receiver In Receivers
+            If IsValidEmailAddress(Receiver.Email) = False Then
+                oErrors.Add(String.Format(My.Resources.Envelope.Invalid_Email_Address, Receiver.Name))
+            End If
+        Next
+
+        Return oErrors
+    End Function
+
+    Private Function IsValidEmailAddress(pEmailAddress As String) As Boolean
+        Try
+            Dim oAddress = New System.Net.Mail.MailAddress(pEmailAddress)
+            Return oAddress.Address = pEmailAddress
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+End Class