Miguel Puga Muñoz
www.mpuga.com
Contacto






           INICIO

        APUNTES

       ASESORIAS

       CONTACTO
Inicio   |   Curriculum   |   Apuntes   |   Asesorias   |   Contacto                   Copyright © 2009 MPuga.com - Derechos Reservados - M&M
Informaciones:

(No hay informaciones añadidas)
<%if request.form("Mensaje")="" then %>

NOMBRE

EMAIL

CURSO

MENSAJE

<% else 'Declaramos las variables a usar Dim Nombre, Email, Curso, Mensaje, OBJ_EMAIL 'Obtenemos los valores del formulario Nombre = Request.Form("Nombre") Email = Request.Form("Email") Curso = Request.Form("Curso") Mensaje = Request.Form("Mensaje") 'Creación del objeto Set OBJ_EMAIL = Server.CreateObject("JMail.Message") OBJ_EMAIL.From = "email_origen@servidor.com" 'No hace falta especificar un email valido OBJ_EMAIL.MailServerUserName = "info@mpuga.com" OBJ_EMAIL.MailServerPassword = "miguel15" OBJ_EMAIL.AddRecipient "mpuga@corpbanca.cl, miguel.puga@corpbanca.cl,miguel.puga.m@gmail.com", "Sr. Miguel Puga" OBJ_EMAIL.Subject = "Correo desde Mpuga.com" OBJ_EMAIL.Body = "Don(a)" & Nombre & chr(13) & chr(10) & Email & chr(13) & chr(10) & "Estudiante de: " & Curso & chr(13) & chr(10) & "Ha escrito el siguiente mensaje:" & chr(13) & chr(10) & Mensaje ' Cuerpo del mensaje OBJ_EMAIL.Send( "mail.mpuga.com") 'Cierra el Objeto Set OBJ_EMAIL = Nothing Response.Write("

El correo electronico ha sido enviado correctamente

Pronto recibiras una respuesta.

En unos segundos seras devuelto a la pagina principal...") %> <% end if %>