09-08-2023

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -95,10 +95,16 @@ Partial Public Class frmEnvelopeEditor
         ' Ensure all receivers are saved
         ViewReceivers.CloseEditor()
 
+        Dim oReceivers = Receivers.ToList
+        If Controller.CreateEnvelopeReceivers(Receivers.ToList) = False Then
+            MsgBox("Fehler beim Speichern der Empfänger!", MsgBoxStyle.Critical, Text)
+            Return False
+        End If
+
         Dim oEnvelope = Controller.Envelope
         oEnvelope.Subject = oSubject
         oEnvelope.Message = oMessage
-        oEnvelope.Receivers = Receivers.ToList
+        oEnvelope.Receivers = oReceivers
         oEnvelope.Documents = Documents.ToList
 
         Dim oErrors = oEnvelope.Validate()