Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/03/2008, 15:27
edysierra
 
Fecha de Ingreso: febrero-2005
Mensajes: 86
Antigüedad: 20 años, 2 meses
Puntos: 1
Novato en CDONT

Hola, por razones ajenas a mi me encuentro en la necesidad de cambiar la forma de enviar mails desde la web a partir de los datos ingresados en un formulario.
Yo siempre utilicé aspemail y de hecho habia logrado perfeccionar bastante dichos envíos. Ahora debo modificar todo a CDONT y de verdad, estoy un poco confundido.
Lo que antes utilizaba en aspemail era algo asi...

<%
Dim strEmail, Mail
strEmail = request.form("email")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.midominio.com"

'SI ME PEDIA USUARIO Y CONTRASEÑA:
Mail.Username = "[email protected]"
Mail.Password = "123456"

Mail.From = strEmail
Mail.AddAddress "[email protected]"
Mail.Subject = "Consulta enviada desde la web"

Mail.Body = "<HTML><BODY> Nombre <b>"&request.form ("nom")&"</b><br>Apellido

<b>"&request.form ("apell")&"</b><br>Direccion <b>"&request.form

("direc")&"</b><br>Ciudad <b>"&request.form ("ciudad")&"</b><br>Provincia

<b>"&request.form ("prov")&"</b><br>Pais <b>"&request.form

("opPais")&"</b><br>Telefono <b>"&request.form ("telef")&"</b><br>Email

<b>"&request.form ("email")&"</b><br>Destino <b>"&request.form

("dest")&"</b><br>Categoria <b>"&request.form ("categ")&"</b><br><br>Motivo de

la consulta<br><b>"&request.form ("txtConsulta")&"</b></BODY></HTML>"

Mail.isHTML = True
Mail.Send
%>

He leído en otros sitios y en este foro que deberé realizar algo asi en CDONT..

Dim sDestintatario, sAsunto, sCuerpo
Dim oMail 'el objeto CDO

sAsunto="Consulta desde la web"


sCuerpo = "primera linea de este mensaje" & VbCrLf
sCuerpo = sCuerpo & "segunda linea de este mensaje" & VbCrLf
sCuerpo = sCuerpo & VbCrlf & VbCrLf & "tercera linea de este mensaje"

sDestinatario="[email protected]"

'Enviamos el email
set oMail=Server.CreateObject("CDONTS.NewMail")

'Establecemos las propiedades del objeto
oMail.From = "Nombre de quien lo envía"
oMail.To = sDestinatario
oMail.Subject = sAsunto
oMail.Body = sCuerpo

' Enviamos el email!
oMail.Send

set oMail = nothing
Response.Write ("Mensaje enviado.")


Estoy un tanto confundido respecto a algunas cosas tales como: No necesito indicar el Host como sí habia que hacerlo en aspemail?, cómo hago los request y como debo proceder para generarlo en HTML?.

Les agradeceré todas las respuestas porque a partir de ellas iré aprendiendo a manejarme con este método, para mi, nuevo.

Muchas gracias!!!