 |
Artículos
|
|
 |
 |
|
 |
| |
| Scripts de Correo Asp |
|
 En este artículo, vamos a ver cómo hacer formularios y scripts de correo en Asp, JavaScript y html. En concreto, estudiaremos un cófigo fuente similar al que yo utilizo en mis páginas, pero en php, este programado por mi, es una adaptación o traducción al Asp del anterior. Versatil, polivalente, fácil de implementar y actualizar. Es requerido cierto conocimiento de Html, Asp, y JavaScript. Pero si sabe programar, le resultará muy sencillo modificar las fuentes con mis comentarios.
El formulario requerido,para trabajar con el script de correo asp, y php, que son prácticamente idénticos, se muestra a aquí.
El JavaScript, que se muestra en la misma página anterior, verificará que los campos obligatorios han sido cubiertos. Y por último, lo envía a un programa, que lo procesa y envía al usuario
Podemos utilizar distintos formularios con el mismo código siguiendo las instrucciones.
Tiene la ventaja, de que es muy fácil de adaptar a otros usos, e introducir mas campos opcionales sin mas que incluirlos en el nuevo formulario. Podemos utilizar el mismo archivo fuente para varios formularios.
La utilidad del programa, es un simple feedback para el webmaster. Puesto que no almacena el envío en el servidor -no requiere sql-, lo envía directamente a la dirección de email que queramos. La gran ventaja, es que permite introducir campos al formulario html sin necesidad de modificar el programa. Diseñamos el formulario, y nos olvidamos del resto.
Quien no tengan conocimientos, por favor, no soliciten ayuda al webmaster. En la página de buscadores de cursos y manuales de este portal. Seguramente encontrarán la información y materiales necesarios para introducirse en la programación. Además, su host, ha de tener intérprete de asp, y servicio de mail habilitado.
La mayoría de hospedajes gratuitos, solo ofrecen Html. Y la inmensa mayoría. no permiten enviar emails. Si necesita un host gratuito con servidor asp, en España, no conocemos ninguno. Pero tal vez lo encuentre en los buscadores de hospedaje de la sección de webmasters
Con JavaScript únicamente, no se pueden hacer formularios de correo que utilicen el servidor de mail del servidor. Se necesita algún lenguaje de programación de servidor como php, asp, ó perl. utilice mailto: en un enlace en lugar de href:. En los sitios de manuales y códigos fuentes, hay bastante documentación. Y scripts prácticamente listos para instalar sin mucho conocimiento.
Además, le recomendamos nuestro transciptor html, un programa gratuito que convierte textos html en scrips php, javascipt, perl, asp,VBasicScript, C#, y VBasic.
Nosotros, utilizamos estos códigos en nuestras páginas, con buenos resultados y estamos muy satisfechos.
Y bueno, vamos a dejarlo como licencia GNU. El problema de estas cosas, es que si no están protegidas, todo el mundo se puede atribuir la paternidad. De todas formas, es tan sencillo, que bueno, qué vamos a hacer, dejémoslo para la educación. |
| |
| Script de mail en ASP |
Vamos a comenzar con el script comentando el código, que posiblemente sea lo mas complejo. recordando que es necesario un form. en formato html, Podemos modificar el formulario a nuestro gusto, respetando las indicaciones, y añadir, quitar o usar campos ocultos.
Podemos copiar el texto siguiente, y guardarlo en un archivo mail.asp. Cuando pulsemos enviar, en el f. html, mediante la especificación cgi, se envían los datos del formulario. Que son procesados por este código. Puede usted utilizar como variables asp los nombres de campos del formulario html. |
 |
<%
'## IMPORTANTE -- COPIAR primero AL NOTEPAD block de notas Y despues DE ESTE A OTRO PROGRAMA ##
'##################################
'## © Hector Fernandez Pereda 2003 ####
'#################################
'## Script formulario de correo mail.asp ##
'#################################
' VARIABLES
' Dirección de tu email
micorreo="tucuenta@tudominio.com"
' Asunto axiliar si no lo introduce un asunto que identifique la procedencia del mail.
xasunto="Correo desde tu pagina"
' Pagina final de gracias. Si el formulario no incluye este campo oculto del formulario.
gracias_defecto="http://www.buscarportal.com";
' Página final si se produce un error al enviar el correo
error_correo="http://www.buscarportal.com/anuncios/error_correo.html";
' variable auxiliar, que produce un salto de línea
retorno=vbCrlf
' CUERPO DEL MENSAJE INICIO
' Obtención de la IP del visitante
' Empezamos a contruir el mensaje final, sumando los elementos del mensaje
mfinal=mfinal & "IP visitante: "
' Guardamos la IP del visitante
mfinal=mfinal & Request.ServerVariables("REMOTE_ADDR")
mfinal=mfinal & ": "
' Y el puerto del usuario
mfinal.=Request.ServerVariables("REMOTE_PORT")
' añadimos dos retornos de línea
mfinal=mfinal & retorno
mfinal=mfinal & retorno
' CUERPO DEL MENSAJE AÑADIDO DE CAMPOS AL MENSAJE
' vareliminar Número de botones del formulario y campos ocultos (últimos elementos) -->en este caso (1)
' Si queremos eliminar del mensaje el campo oculto de la página final vareliminar=2;
vareliminar=1
'Obtenemos el nombre del formulario, se requiere para manejar las variables
nomForm=Request.ServerVariables("SCRIPT_NAME")
'En una sola linea, obtenemos la cadena enviada por el form. Sustituimos los & por dos retornos.
'Unescapamos el resultado para que tenga caracteres raros - %45 .... Y lo sumamos la resulado final
'Esta versión, no elimina las variables finales
'mfinal=mfinal & unescape(Replace(Request.ServerVariables (QUERY_STRING), "&", retorno & retorno))
'recomedamos esta forma.
'creamos un array con los resultados de partir los parámetros de la consulta por &
parametros=Split(Request.ServerVariables (QUERY_STRING), "&")
'Por cada elemento obtenido, menos las variables a eliminar (ultimos parametros no deseados del formulario)
for i=1 to parametros.count-vareliminar
'Añadimos cada parametro obtenido unescapándolo para convertir los caracteres %numero
mfinal=mfinal & unescape(parametros(i))
'Añadimos retornos para separar cada elemento
mfinal=mfinal & retorno
mfinal=mfinal & retorno
next i
' Si no hay asunto, o no contiene nada, le damos al email un asunto defecto
if asunto is Nothing then
asunto="correo desde la web"
' Si hay asunto, añadimos un prefijo propio para identificar que es email desde la web.
else
asunto ="Asunto-> " & asunto
endif
' CABECERAS DE CORREO
' nombre, correo son variables que contienen los valores de: nombre y email del formulario.
' campos y variables --> nombre, nombre - correo, correo. No pueden ser modificados
' Han de mantenerse en el formulario para utilizar el mismo script con distintos formularios
objMail.From = correo ' Responder al correo
objMail.To = micorreo ' Tu correo
objMail.CC = ""
objMail.BCC = ""
objMail.Subject = asunto
objMail.Importance = 1
objMail.Body = mfinal 'texto del mensaje a enviar
' ENVÍO DEL CORREO
' Para finalizar, envíamos el email, y comprobamos el resultado
objMail.Send
' Si quisíesemos enviar un acuse de recibo, o autorespondedor, crearíamos otro objeto objmail2, y repetiríamos el proceso de creación del email, cambiando correo por micorreo, y viceversa, además del resto de modificaciones necesarias.
' COMPROBACIÓN
'Si no se ha enviado el correo por problemas del host, objMail, no se libera, en ese caso error
'Me imagino, que habrá otras formas de chequear el envío, como con el objeto Application
If Not objMail Is Nothing Then
if pagina_gracias is Nothing then
Response.Redirect(gracias_defecto)
else
Response.Redirect(pagina_gracias)
endif
else
Response.Redirect(error_correo)
endif
'liberamos el objeto mail, de lo contario, podría dar problemas
SET objMail = NOTHING
%> |
|
|
|
| Recuerde, que este código, tiene asociado un form, común al script php, que usted puede ver aquí |
|
|
 |
|
 |
|
© Héctor Fernández Pereda, Europe, Spain, Asturias ---- 