Tema: problema al enviar e-mail seleccionados
Ver Mensaje Individual
  #8 (permalink)  
Antiguo 21/11/2006, 10:11
pedami
 
Fecha de Ingreso: noviembre-2006
Mensajes: 9
Antigüedad: 17 años, 6 meses
Puntos: 0
Uhi, por una pizca
el recordset funciona a las mil maravillas, muchas gracias, pero el e-mail no consigo que en el contenido aparezca el nombre de cada usuario al que va dirigido el e-mail, te muestro un trozo de codigo de ese e-mail que envio:

Código: 
..........MailBody = MailBody & "                    <td class=" & Chr(34) & "textoacto" & Chr(34) & ">A la atenci&oacute;n del Sr/a: "
MailBody = MailBody & (rsusuarios.Fields.Item("NOMBRE").Value)
MailBody = MailBody & "</td>" & vbCrlf & ""
MailBody = MailBody & "                  </tr>" & vbCrlf & ""
MailBody = MailBody & "                  <tr>" & vbCrlf & ""
MailBody = MailBody & "                    <td class=" & Chr(34) & "textoacto" & Chr(34) & ">&nbsp;</td>" & vbCrlf & ""
MailBody = MailBody & "                  </tr>" & vbCrlf & ""
MailBody = MailBody & "                  <tr>" & vbCrlf & ""
MailBody = MailBody & "                    <td class=" & Chr(34) & "textoacto" & Chr(34) & ">&nbsp;</td>" & vbCrlf & ""
MailBody = MailBody & "                  </tr>" & vbCrlf & ""
MailBody = MailBody & "                  <tr>" & vbCrlf & ""
MailBody = MailBody & "                    <td class=" & Chr(34) & "textoacto" & Chr(34) & "><span class=" & Chr(34) & "txt2" & Chr(34) & ">Documento:</span>&nbsp;&nbsp;<span class=" & Chr(34) & "textopapel" & Chr(34) & "><strong>"
MailBody = MailBody & (rscirculares.Fields.Item("TITULO_CIR").Value)............
Un saludo y de nuevo gracias...