<% ' Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP DestinatarioCorreo = Request("destinatario") CuentaDesdeDondeSeEenvia = "info@muebleselpuerto.com" 'debe ser una creada desde el panel de control nombre@dominio TextoConsulta= Request("Consulta") TituloConsulta= Request("TituloConsulta") nombre= Request("nombre") usuario=request("usuario") If Request("enviar") = 1 Then If Not Request("usuario") = "" And Not Request("destinatario") = "" Then ' Se crean los objetos necesarios para el envío del correo Set oMail = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' Se configuran los parametros necesarios para el envío iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1" iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 iConf.Fields.Update ' Se asignan las propiedades de configuración al objeto Set oMail.Configuration = iConf oMail.To = DestinatarioCorreo oMail.From = CuentaDesdeDondeSeEenvia oMail.Subject = TituloConsulta oMail.TextBody = "Nombre: " + nombre + "| " + "Email: " + usuario + "| " + " Consulta: " + TextoConsulta ' Se envía el correo oMail.Send ' Se destruyen los objetos Set iConf = Nothing Set Flds = Nothing Response.Write("El formulario se envio correctamente, MUCHAS GRACIAS") Else ' Respuesta en caso de que no se completen todos los datos Response.Write("Por favor complete todos los campos" ) End If End If %>