Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Confirmacion por email
 Foro Bloqueado  Tema Bloqueado


Autor Temas
bossm4
Starting Member


7 Posts
Mensajes - 07 Nov 2005 :  21:00:52  Ver Perfil  Enviar Email
Hola!!!

Estoy preparando una web en asp para un cliente, el caso es que quiero hacer una confirmacion de registro por email (si, lo tipico que te mandan un email y al pinchar te cnfirma el registro). El caso es que en asp no se me ocurre como hacerlo, y he estado buscando en google pero no encuentro nada. En PHP si ke he hecho algo parecido pero ASP nunca.

Sabeis de algun articulo que explique un poco como hacerlo?¿

Un saludo y gracias

Gioser_tj
Starting Member

Mexico
27 Posts
Posted - 16 Nov 2005 :  23:27:50  Ver perfil  Enviar e-mail  Enviar Gioser_tj un Mensaje Yahoo!e
Te pongo este articulo que me encontre:

Para usar AspEmail bajo ASP, precisa inicialmente, crear una instancia del objeto en ASP como sigue:
<%
Set Mail = Server.CreateObject("Persits.MailSender")
%>

Para enviar los mensajes, el componente hace uso de un servidor de correo SMTP. Adicionalmente está permitido el uso de puertos:

Mail.Host = "mail.su-dominio.com"
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.


Puede especificar tantos correos como desee, separándolos por " ; ":

Mail.Host = "mail.midominio.com;mail.miotrodominio.com;mail.mitercerdominio.com"


Puede especificar también la dirección del emisor del correo , así como un nombre opcional:

Mail.From = "ventas@midominio.com"
Mail.FromName = "Gestion de Red" ' Opcional


Para insertar los destinatarios de los mensajes, así como aquellas personas que recibirán una copia del mail, existen los métodos asociados: AddAddress, AddCC, AddBcc and AddReplyTo. Disponen de dos parámetros, el segundo de los cuales es opcional:

Mail.AddAddress "destino@undominio.com", "Destinos"
Mail.AddCC "luisf@unsitio.com" ' El nombre es opcional


Use las propiedades Subject y Body para indicar el asunto y cuerpo del mensaje. Puede crear el mensaje en formato de texto o HTML (deberá especificar la propiedad IsHTML al valor True):

Mail.Subject = "Comunicado publicitario"
Mail.Body = "<HTML>><BODY BGCOLOR=#0000FF>Estimado Sr:....</BODY></HTML>"
Mail.IsHTML = True


Para adjuntar un archivo puede usar el método AddAttachment. Puede llamarlo por cada archivo que desee adjuntar y tiene que especificar la ruta completa a disco del archivo que desea adjuntar:

Mail.AddAttachment "d:\\xvrt\\dominio.com\\archivo_que_desea_enviar.doc"

Finalmente, para enviar el mensaje debe llamar al método Send. y en caso de error, el método lanza una excepción, que puede capturar a través de la sentencia On Error Resume Next:

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If

****************************************
YO USO ESTE: (ESPERO TE SIRVA)

<%@ Language=VBScript%>
<%
'cfname="Sergio"
'cemail="sistemas@xxxxx.com.mx"
' recibir datos
cfname=request.querystring("nom")
cemail=trim(request.querystring("correo"))
cent=request.querystring("ent")
%>
<%
mensaje = "Estimado(a) " &cfname& ",<br>"
mensaje = mensaje+"<br>le damos la bienvenida a:</b>.<br>"

Set oCDO = Server.CreateObject("CDONTS.NewMail")
'Asignamos las propiedades al objeto
oCDO.From = "sistemas@xxxxx.com.mx"
oCDO.To = cemail
oCDO.Subject = "Bienvenido(a) (Welcome)"
oCDO.BodyFormat = 0
'oCDO.MailFormat = 0
oCDO.Body = mensaje
oCDO.Bcc ="sistemas@xxxxx.com.mx"
'oCDO.Cc = "resal@tudominio.com;webmaster@tudominio.com"

oCDO.Send

Set oCDO = Nothing
''termina envio de correo%>
<%
if cent=1 then
response.redirect("verifica.asp")
else
response.redirect("check.asp")
end if
%>Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar