Pago electronico grupos revicion envio de correos archivos adjuntos y CIE

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -2996,9 +2996,6 @@ Partial Class Bancos_PagoElectronicoGrupos
         If Comprobante <> "-1" And Not ErrorProceso Then
 
             Try
-
-
-
                 If File.Exists(FDestino) Then
                     File.Delete(FDestino)
                 End If
@@ -3362,7 +3359,20 @@ Partial Class Bancos_PagoElectronicoGrupos
             ListaArchivos.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = File, .NombreArchivo = "EstadoCuentaCxP.pdf"})
         End If
 
-        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then
+        Dim separador As Char() = {";"c, ","c}
+        Dim strArray As String() = Para.Split(separador)
+
+        Para = ""
+
+        For Each sCorreo As String In strArray
+            If ClsSisMail.IsMailShared(sCorreo) And sCorreo.Trim.Length > 0 Then
+                Para = $"{Para}{sCorreo};"
+            End If
+        Next
+
+        Para = Para.Substring(0, Para.Length - 1)
+
+        If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos, Displayname:=$"SIG Notificaciones: Pago de {UsuarioActual.Empresa.Empresa}") Then
             Dim objIE As New ClsBancos
             objIE.UpdateBancos_IENotificaciones(1, "-1", "-1", CveIE)
             objIE.Dispose()
@@ -3370,6 +3380,9 @@ Partial Class Bancos_PagoElectronicoGrupos
     End Sub
 
 
+
+
+
     Private Function GeneraCorreo(CveIE As Integer) As String
 
         Dim strBody As New StringBuilder