Skip to main content
se eliminó 1 carácter en el cuerpo
Origen Enlace

Es que en tu lógica estas comparando si un registro es igual a uno mismo, es como hacer un 1 = 1, te va a dar siempre true.

Pensalo más simple, recorre con el foreach tus mails y carga en un List de string los correos a los que enviaste. Despues es simplemente validar antes de enviar el correo si ya fue enviado a esa dirección.

 Dim listCorreosEnviados As New List(Of String)
 Dim enviarCorreo As Boolean

    For Each row As GridViewRow In grdDetalleGridView1.Rows
        enviarCorreo = True
        //Si ya envie correos, verifico en el listado que no este repetido.
        If listCorreosEnviados.Count > 0 Then
            For Each correo As String In listCorreosEnviados
                If row.Cells(0).Text = correo Then
                    enviarCorreo = False
                End If
            Next

            If enviarCorreo = True Then
                //Envio el correo
            End If

        Else
          //Envio el correo
        End If

        //Por cada mail enviado, agrego el correo al listado
        listCorreosEnviados.Add(row.Cells(0).Text)
    Next

Saludos.

Es que en tu lógica estas comparando si un registro es igual a uno mismo, es como hacer un 1 = 1, te va a dar siempre true.

Pensalo más simple, recorre con el foreach tus mails y carga en un List de string los correos a los que enviaste. Despues es simplemente validar antes de enviar el correo si ya fue enviado a esa dirección.

 Dim listCorreosEnviados As New List(Of String)
 Dim enviarCorreo As Boolean

    For Each row As GridViewRow In grdDetalle.Rows
        enviarCorreo = True
        //Si ya envie correos, verifico en el listado que no este repetido.
        If listCorreosEnviados.Count > 0 Then
            For Each correo As String In listCorreosEnviados
                If row.Cells(0).Text = correo Then
                    enviarCorreo = False
                End If
            Next

            If enviarCorreo = True Then
                //Envio el correo
            End If

        Else
          //Envio el correo
        End If

        //Por cada mail enviado, agrego el correo al listado
        listCorreosEnviados.Add(row.Cells(0).Text)
    Next

Saludos.

Es que en tu lógica estas comparando si un registro es igual a uno mismo, es como hacer un 1 = 1, te va a dar siempre true.

Pensalo más simple, recorre con el foreach tus mails y carga en un List de string los correos a los que enviaste. Despues es simplemente validar antes de enviar el correo si ya fue enviado a esa dirección.

 Dim listCorreosEnviados As New List(Of String)
 Dim enviarCorreo As Boolean

    For Each row As GridViewRow In GridView1.Rows
        enviarCorreo = True
        //Si ya envie correos, verifico en el listado que no este repetido.
        If listCorreosEnviados.Count > 0 Then
            For Each correo As String In listCorreosEnviados
                If row.Cells(0).Text = correo Then
                    enviarCorreo = False
                End If
            Next

            If enviarCorreo = True Then
                //Envio el correo
            End If

        Else
          //Envio el correo
        End If

        //Por cada mail enviado, agrego el correo al listado
        listCorreosEnviados.Add(row.Cells(0).Text)
    Next

Saludos.

Origen Enlace

Es que en tu lógica estas comparando si un registro es igual a uno mismo, es como hacer un 1 = 1, te va a dar siempre true.

Pensalo más simple, recorre con el foreach tus mails y carga en un List de string los correos a los que enviaste. Despues es simplemente validar antes de enviar el correo si ya fue enviado a esa dirección.

 Dim listCorreosEnviados As New List(Of String)
 Dim enviarCorreo As Boolean

    For Each row As GridViewRow In grdDetalle.Rows
        enviarCorreo = True
        //Si ya envie correos, verifico en el listado que no este repetido.
        If listCorreosEnviados.Count > 0 Then
            For Each correo As String In listCorreosEnviados
                If row.Cells(0).Text = correo Then
                    enviarCorreo = False
                End If
            Next

            If enviarCorreo = True Then
                //Envio el correo
            End If

        Else
          //Envio el correo
        End If

        //Por cada mail enviado, agrego el correo al listado
        listCorreosEnviados.Add(row.Cells(0).Text)
    Next

Saludos.