Que tal Gente de este foro, queria consultarles el siguiente mensaje que tome de aqui mismo de foros del web, con referencia a l envio de un formulario mediante Cdonts, lo estuve probando, pero no me llega la info al buzon de email, es decir el form se envia pero en blanco, es decir no lee los datos del form, alguien por favor puede darme una mano del porque no se estan leyendo los datos del form?
Gracias de antemano.
Este es el codigo del archivo que realiza el envio y lee los datos del form.
----------------------------------------------------
<%
Dim strAsunto
Dim strMensaje
Dim objCDOMail 'El objecto CDO
'Primero leemos los datos del formulario y los asignamos a las variables
strAsunto = Request.Form("tit")
strMensaje = Request.Form("pre")
'Creamos una instancia del objeto NewMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Asignamos las propiedades al objeto
objCDOMail.From = "
[email protected]"
objCDOMail.To = "
[email protected]"
objCDOMail.Subject = strAsunto
objCDOMail.Body = strMensaje
'Existen otras propiedades del objeto
'Se puede enviar HTML, Adjuntar archivos, etc..
'Tambien se pueden modificar otros aspectos del mensaje
'como importancia, encabezados personalizados.......
'he aqui algunos de los mas importantes:
'objCDOMail.Cc = "
[email protected];
[email protected]" Notese que se esta enviando a mas de una persona
'objCDOMail.Bcc = "
[email protected];
[email protected]"
'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High) Importancia
'objCDOMail.AttachFile "c:\path\archivo.txt", "Archivo.txt" Archivo Adjunto
'Finalmente enviamos el mensaje
objCDOMail.Send
'Tenemos que poner la propiedad Nothing al objeto ya que inmediatamente se vuelve invalido
'y libera la memoria del servidor
Set objCDOMail= Nothing
%>
----------------------------------------------------
Pienso que el error esta en
strAsunto = Request.Form("tit")
strMensaje = Request.Form("pre")
Pero no entiendo muy bien a que hace referencia estas variables que segun aparecen en este ejemplo.