merge

Aviso/frmHauptfenster.vb

@@ -4895,6 +4895,32 @@ Public Class AvisoStatusFunctions
 
     End Sub
 
+    Shared Sub SendStatusEmailByKdNr(AVISO As cAviso, KdNr As Integer)
+        Dim AvisoDAL As New cAvisoDAL
+        Dim art = 5
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+            Case "ATILLA"
+                'NED!
+            Case "VERAG", "IMEX"
+
+                'Mail-Adressen aus Firmentabelle holen
+                Dim EMails As String = ""
+                Dim EMails_CC As String = ""
+                Dim EMails_BCC As String = ""
+
+                Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList
+
+                VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KdNr, art, EMails, EMails_CC, EMails_BCC, Emails_list_sent)
+                If Emails_list_sent.LIST.Count > 0 Then
+                    Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KdNr, "")
+                    ' VERAG_PROG_ALLGEMEIN.cAvisoStatusMails.INSERT_INTO(AVISO.AvisoID, KdNr, art)
+                End If
+
+        End Select
+
+    End Sub
+
 
 
     Shared Sub Email_senden(art, AVISO, EMails, EMails_CC, EMails_BCC, KundenNr, Optional ForceMail = "")