OFfertenBeabeiten, Formulare, Fakt.

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -5575,6 +5575,11 @@ Public Class FormularManagerNEU
                     mail_To = AD.E_Mail
                 End If
 
+                If AD IsNot Nothing AndAlso AD.E_Mail2 <> "" Then
+                    If mail_To <> "" Then mail_To &= ";"
+                    mail_To &= AD.E_Mail2
+                End If
+
                 Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
                 If FISKAL IsNot Nothing Then
                     mail_To_Stb = If(FISKAL.fisk_schreibenSB_Mail, "")
@@ -5875,6 +5880,13 @@ Public Class FormularManagerNEU
                 If EMAILTMP = "" Then
                     Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR)
                     If AD IsNot Nothing Then Mail_To = If(AD.E_Mail, "")
+                    If AD IsNot Nothing AndAlso AD.E_Mail2 IsNot Nothing Then
+                        If Mail_To <> "" Then
+                            Mail_To &= ";" & AD.E_Mail2
+                        Else
+                            Mail_To = AD.E_Mail2
+                        End If
+                    End If
                 End If
             End If