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:

Mostrar la cita

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:

Mostrar la cita

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
>