Ayuda

Hola Jorge,

Haz las siguientes modificaciones: En el IF y antes del .TO

Dim objdruser As SqlDataReader
Dim sqluser As String = "select u.Firstn + ' ' + u.Lastn name, u.email from
users u"
Dim Cmduser As New SqlCommand(sqluser, connection)
connection.Open()
objdruser = Cmduser.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

If objdruser.HasRows Then

Dim iMsg As New CDO.Message

With iMsg
Dim strTo As String = ""
Do While objdruser.Read()
If strTo = "" Then
strTo = objdruser("name") & " <" & objdruser("email") & ">"
Else
strTo = strTo & ", " & objdruser("name") & " <" & objdruser("email")
& ">"
End If
Loop
.To = strTo
.From = "" & username & " "
.Subject = "Text"
.HTMLBody = "<p><font size=""3"" face=""Arial, Helvetica,
sans-serif"">Users:<BR><B>" & objdruser("name") & "</B>font></p>"
.Send()

End With

iMsg = Nothing

End If


-

"Jorge Landaeta" wrote:

Tengo un select el cual retorna varios registros, los cuales deseo que se
incluyan en el body del email. Cómo puedo incluír un while sin que aparezca
en el texto y que funcione claro está.

Dim objdruser As SqlDataReader
Dim sqluser As String = "select u.Firstn + ' ' + u.Lastn name, u.email from
users u"
Dim Cmduser As New SqlCommand(sqluser, connection)
connection.Open()
objdruser = Cmduser.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

If objdruser.Read = True Then

Dim iMsg As New CDO.Message

With iMsg

.To = "" & objdruser("name") & " <" & objdruser("email") & ">"
.From = "" & username & " "
.Subject = "Text"
.HTMLBody = "<p><font size=""3"" face=""Arial, Helvetica,
sans-serif"">Users:<BR><B>" & objdruser("name") & "</B>font></p>"
.Send()

End With

iMsg = Nothing

End If

Hola, mira estoy lo que hace es tomar el último usuario del DR, además me
imagino que lo que debe hacer esto es enviar un email a cada usuario
seleccionado, pero lo que deseo no es esto, quiero incluir en el body del
email los nombres selccionados a manera de lista, por ej.

Texto del email:

'usuarios selccionados

Carlos Hernández
Andrés Galarraga
Bob Abreu

gracias


"Khaoz" wrote:

Hola Jorge,

Haz las siguientes modificaciones: En el IF y antes del .TO

Dim objdruser As SqlDataReader
Dim sqluser As String = "select u.Firstn + ' ' + u.Lastn name, u.email from
users u"
Dim Cmduser As New SqlCommand(sqluser, connection)
connection.Open()
objdruser = Cmduser.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

If objdruser.HasRows Then

Dim iMsg As New CDO.Message

With iMsg
Dim strTo As String = ""
Do While objdruser.Read()
If strTo = "" Then
strTo = objdruser("name") & " <" & objdruser("email") & ">"
Else
strTo = strTo & ", " & objdruser("name") & " <" & objdruser("email")
& ">"
End If
Loop
.To = strTo
.From = "" & username & " "
.Subject = "Text"
.HTMLBody = "<p><font size=""3"" face=""Arial, Helvetica,
sans-serif"">Users:<BR><B>" & objdruser("name") & "</B>font></p>"
.Send()

End With

iMsg = Nothing

End If


-

"Jorge Landaeta" wrote:

> Tengo un select el cual retorna varios registros, los cuales deseo que se
> incluyan en el body del email. Cómo puedo incluír un while sin que aparezca
> en el texto y que funcione claro está.
>
> Dim objdruser As SqlDataReader
> Dim sqluser As String = "select u.Firstn + ' ' + u.Lastn name, u.email from
> users u"
> Dim Cmduser As New SqlCommand(sqluser, connection)
> connection.Open()
> objdruser = Cmduser.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
>
> If objdruser.Read = True Then
>
> Dim iMsg As New CDO.Message
>
> With iMsg
>
> .To = "" & objdruser("name") & " <" & objdruser("email") & ">"
> .From = "" & username & " "
> .Subject = "Text"
> .HTMLBody = "<p><font size=""3"" face=""Arial, Helvetica,
> sans-serif"">Users:<BR><B>" & objdruser("name") & "</B>font></p>"
> .Send()
>
> End With
>
> iMsg = Nothing
>
> End If
>