El siguiente ejemplo genera un formulario y realiza las operaciones necesarias para el envio de e-mails mediante ASP y CDO, en plataformas Microsoft Windows 2003
<%@LANGUAGE="VBSCRIPT" %>
<!--METADATA TYPE="TypeLib" FILE="E:\WINDOWS\system32\cdosys.dll" -->
<!-- Formulario para completar con los datos -->
<form action="test_mail.asp" method="POST">
Usuario smtp: <input type="text" value="" name="usuario"></input> <br />
(El usuario puede encontrarlo en el panel de control, E-mail, Administrar cuentas)<br/>
Contraseña smtp: <input type="password" value="" name="passwd"></input><br/>
(La contraseña de su correo electrónico)
E-mail destinatario: <input type="text" name="destinatario" width="50"></input><br/>
<input type="submit" value="Enviar e-mail" /><input type="hidden" name="enviar" value="1"/>
</form>
<!-- Fin Formulario para completar con los datos -->
<%
' Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP
If Request("enviar") = 1 Then
If Not Request("usuario") = "" And Not Request("passwd") = "" 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.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Se completan los datos del usuario y la contraseña necesarios para el envio
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Request("usuario")
'usuario smtp
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Request("passwd")
'password para STMP
iConf.Fields.Update
' Se asignan las propiedades de configuración al objeto
Set oMail.Configuration = iConf
' Destinatario del correo
oMail.To = Request("destinatario")
' Remitente del correo
oMail.From = "noreply@ferozowindows.com.ar"
' Subject o asunto
oMail.Subject = "E-mail de prueba"
' Cuerpo del mensaje
oMail.TextBody = "Este es un e-mail enviado desde la página de ejemplo de Ferozo Windows Edition"
' Se envía el correo
oMail.Send
' Se destruyen los objetos
Set iConf = Nothing
Set Flds = Nothing
Else
' Respuesta en caso de que no se completen todos los datos
Response.Write("Complete todos los campos para ejecutar el ejemplo")
End If
End If
%>
Impecable el servicio y la rapidez en solucionar nuestros problemas! Gracias por ayudarnos!!
Increíble servicio, gran soporte y excelente relación calidad/precio. Gracias Chicos!
Gran servicio, rápida respuesta y buena atención sigan así!
Mi negocio es cliente desde mas de 6 años, uno de los primeros, y siempre recibiendo un excelente servicio personalizado que es lo que mas vale. Saludos a Hosting Bahia y sigan asi :D
Excelente y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
Excelente y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
Genios, excelente servicio, muy personalizado, de 10!!
Excelente servicio y soporte tecnico, el mejor servicio de hosting de Bahia Blanca, nunca un problema! gracias gente!!!
Excelente servicio y muy buena atencion! Satisfecho 100%
Sin duda son los mejores de la ciudad y la zona. La relación precio/producto es excelente y además de la altísima calidad y su gran variedad de servicios, cuentan con personal altamente calificado para dar soporte a sus clientes. Su trayectoria los avala. Gracias por todo!
Excelente, felicitaciones son gente de confianza, estamos muy conformes con el servicio que nos prestan .Sigan creciendo y los mejores deseos de prosperidad!!!
Hace mas de dos años que somos clientes de Hosting Bahia y la verdad es que estamos muy conformes en todo sentido. Atencion, funcionalidad,etc. Muy recomendables !! Abrazo CHENQUEANUNCIOS.COM
Excelente calidad y atención... Más que recomendables! Supieron ayudarme y asesorarme en todo y estuvieron siempre disponibles... Buenísimo que podamos contar con un servicio así en Bahía... Muchísimas gracias y ojalá mucha gente más se sume porque el servicio lo vale! EXCELENTE!
Gente de primera, excelente respuesta, SUMAMENTE CONFIABLES! A seguir para adelante! Tauro Computación
Increíble servicio, gran soporte y excelente relación calidad/precio. Gracias Chicos!
MUY BUENA ATENCION,MARTIN DEL SOPORTE SIEMPRE DISPUESTO,HACE MUCHOS AÑOS SOY CLIENTE,SALUDOS.TODO CARTEL
Impecable el servicio y la rapidez en solucionar nuestros problemas! Gracias por ayudarnos!!
Excelente atencion!! un servicio impecable! las consultas son respondidas al momento!!
Hace mas de una década que somos clientes, siempre al lado de nuestra empresa apoyándonos y asesorándonos de forma activa. Un equipo del mas alto nivel!
muy buen servicio de hosting, siempre al servicio del cliente la verdad que muy atentos!!!
Excelente servicio y muy buena atencion! Satisfecho 100%
Excelente servicio y muy buena atencion! Satisfecho 100%
Impecable el servicio y la rapidez en solucionar nuestros problemas! Gracias por ayudarnos!!
Tenemos alojado nuestro sitio web con Hosting Bahia y realmente el servicio técnico siempre fue muy bueno. Las consultas telefónicas siempre son atendidas con mucha amabilidad y eficacia y cumplen en tiempo y forma cuando se comprometen a enviar algun mail para brindar alguna ayuda por esa via. Recomendable!
Como siempre, excelente servicio y asesoramiento y muy buena predisposición para dar una mano!!!! 100% recomendables!!
Excelente servicio y pronta respuesta ante cualquier tipo de consulta o problema. Los conozco desde el comienzo, nunca un inconveniente. Gracias!!
Excelente nivel en el servicio, igual en la atencion...felicitaciones!!! desde www.mcdigitalmarketing.com.ar
FELICITACIONES POR LA WEB NUEVA ¡ SIGAN CRECIENDO ABRAZO NIXEL
Excelente atención y gran servicio. Muy recomendable
Muy buen servicio, nunca he tenido ningún problema
