23/01/2006, 04:18
|
| | | Fecha de Ingreso: diciembre-2005
Mensajes: 10
Antigüedad: 19 años, 4 meses Puntos: 0 | |
| Yo lo que haria prueba a ver si esta bien:
<% Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "alias"
sql = "select * from nombre"
Set tabla = Server.CreateObject ("ADODB.RecordSet")
tabla.Open sql, conexion
DO WHILE NOT tabla.EOF
nombre=tabla.FIELDS("nombre")
email=tabla.FIELDS("email")
'Envias el email a cada empleado:
Set objCDOMail = Server.CreateObject("Persits.MailSender")
objCDOMail.From = tuemail
objCDOMail.AddAddress email
objCDOMail.Subject = laSubjectDeTuEmail
objCDOMail.Body=loquequierasenviar
'Por ejemplo: "Dear "&nombre&":"...(lo que quieras enviar a todo el mundo)
On Error Resume Next
objCDOMail.Send
tabla.MOVENEXT
LOOP
tabla.CLOSE
conexion.CLOSE
%>
Bueno no se si estará bien yo diría que si, los expertos del foro que lo corrigan o que digan que esta todo mal, tu prueba a ver, no tienes nada que perder |