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 = ""

EnvelopeGenerator.Common/Strings/Envelope.en.resx

@@ -165,6 +165,9 @@
   <data name="Errors when saving the envelope" xml:space="preserve">
     <value>Errors when saving the envelope</value>
   </data>
+  <data name="Incomplete Receivers" xml:space="preserve">
+    <value>At least one receiver does not have a name or an email address.</value>
+  </data>
   <data name="Invalid Email Address" xml:space="preserve">
     <value>Receiver {0} has an invalid Email Address.</value>
   </data>

EnvelopeGenerator.Common/Strings/Envelope.resx

@@ -165,6 +165,9 @@
   <data name="Errors when saving the envelope" xml:space="preserve">
     <value>Fehler beim Speichern des Umschlags: </value>
   </data>
+  <data name="Incomplete Receivers" xml:space="preserve">
+    <value>Mindestens ein Empfänger hat keine Anrede oder keine Email Adresse.</value>
+  </data>
   <data name="Invalid Email Address" xml:space="preserve">
     <value>Empfänger {0} hat keine gültige Email Addresse.</value>
   </data>

EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb

@@ -208,6 +208,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Mindestens ein Empfänger hat keine Anrede oder keine Email Adresse. ähnelt.
+        '''</summary>
+        Public Shared ReadOnly Property Incomplete_Receivers() As String
+            Get
+                Return ResourceManager.GetString("Incomplete Receivers", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Empfänger {0} hat keine gültige Email Addresse. ähnelt.
         '''</summary>