06-12-23

EnvelopeGenerator.Common/Entities/Envelope.vb

@@ -46,6 +46,10 @@
             oErrors.Add(My.Resources.Envelope.Missing_Receivers)
         End If
 
+        If Receivers.Any(Function(r) r.HasEmailAndName = False) Then
+            oErrors.Add(My.Resources.Envelope.Incomplete_Receivers)
+        End If
+
         Return oErrors
     End Function
 

EnvelopeGenerator.Common/Entities/EnvelopeReceiver.vb

@@ -65,6 +65,13 @@ Public Class EnvelopeReceiver
         End Get
     End Property
 
+    Public ReadOnly Property HasEmailAndName As Boolean
+        Get
+            Return String.IsNullOrWhiteSpace(Email) = False And
+                String.IsNullOrWhiteSpace(Name) = False
+        End Get
+    End Property
+
     Public Property Sequence As Integer = 0
     Public Property PrivateMessage As String = ""
     Public Property AccessCode As String = ""