Ya tengo el formulario interno que se encargaria de autoenviarse a todos los correos electrónicos introducidos en una base de datos:
Formulario de envio: form.html
Código:
<form name="form1" method="post" action="proceso.asp">
<p>
<input name="asunto" type="text" id="asunto">
</p>
<p>
<input name="mensaje" type="text" id="mensaje">
</p>
<p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
Código:
Set registros = conexion.Execute("SELECT * FROM tabla")
Do While Not registros.EOF
Recipient =registros.Fields("EMAIL").Value
Sender = "[email protected]"
titulo = Request.Form("asunto")
Texto =Request.Form("mensaje")
Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.MailFormat = 0
Recipient = registros.Fields("EMAIL").Value
oMail.Send Sender, Recipient, titulo, Texto
Set oMail = Nothing
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>
Ahora solo me falta el formulario en HTML que recoje la dirección de correo electrónico del visitante, y la envie a un ASP que compruebe que está bien escrita (osea texto delante y detrás de la arroba, y detrás de ese texto un punto y la extensión "
[email protected]ón") en caso de que esté mal redactada se imprime un mensaje de alerta, y si la dirección se escribió correctamente se introduce en la BD. Si la dirección ya existe en la base de datos, se elimina de ella infomando al usuario que ha formalizado su baja de la BD.
¿Alguien sería tan amable de decirme cuales serían los codigos?
Muchas Gracias.