hola
he creado este codigo pero me da un error muy grave o MUY GRAVE , es mas, se me inicia el xp con error grave y el tipico escandisk posteriormente,
el codigo se basa en enviar email a mas de una direccion de email con aspemail, es decir a todos los usuarios de la base de datos.
porque no una ayudita :)
Código:
Dim conexion, registros, basedatos
basedatos = Server.MapPath("/basededatos.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set registros = conexion.Execute("SELECT * FROM datos ORDER BY email")
rs.Open SQL, oConn, 1, 2
Do While Not registros.EOF
Loop
registros.MoveNext
strHost = "smtp.servidor.net"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.username = "nombreusuario"
Mail.password = "Clave"
Mail.From = "[email protected]"
Mail.FromName = "mi nombre"
Mail.AddAddress Request.Form("email")
Mail.AddAddress ""&registros.Fields("email").Value&""
Mail.Subject = "novedades de miweb"
Mail.IsHTML = True
Mail.Body = "<HTML><BODY>html etc...</BODY></HTML>"
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send
If Err <> 0 Then
strErr = Err.Description
else
bSuccess = True
End If
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
Agradeceria una ayudita :)
un saludo