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
%>
Muchos años trabajando con Hosting Bahia, y siempre un servicio excelente! Saludos al equipo!
Excelente servicio y pronta respuesta ante cualquier tipo de consulta o problema. Los conozco desde el comienzo, nunca un inconveniente. Gracias!!
Agradecemos el apoyo de Hosting Bahia por brindarnos el espacio virtual para que el proyecto Bahiarecicla.com.ar pueda hacerse realidad. Asi como Hosting Bahia brindó su apoyo, comprometemos por éste medio a los bahienses, para que entre todos podamos hacer del reciclado, un modo de vida!!!.
La verdad siempre hemos tenido una atención impecable, tenemos nuestro sitio y el de todos nuestros clientes alojado con la gente de Hosting Bahía, muy pero muy recomendable!
Hace poco abrimos nuestro comercio y estamos muy conformes, el servicio funciona de maravillas y el servidor ofrece todo tipo de prestaciones avanzadas, sumamente útiles a la hora de diseñar un sitio web.
Excelente el apoyo que me dieron con los tramites en nic.ar La calidad y calidez en la atención es de destacar!! Gracias Martín!!
Excelente servicio y soporte tecnico, el mejor servicio de hosting de Bahia Blanca, nunca un problema! gracias gente!!!
Excelente servicio y atención. Muchas Gracias HB. http://gomces.com/
Increíble servicio, gran soporte y excelente relación calidad/precio. Gracias Chicos!
muy buen servicio de hosting, siempre al servicio del cliente la verdad que muy atentos!!!
Felicitaciones por sus excelentes servicios, responsabilidad y rapidez, les deseamos lo mejor... MN PARTICIPACIONES (www.mnparticipaciones.com.ar)
El mejor servicio!!!!
Excelente y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
Muy buena atención, excelente respuesta a los pocos problemas encontrados!! Gracias por la atencón y felices fiestas!!
Tenemos alojada la página de Cáritas Bahía Blanca y realmente el servicio técnico siempre fue muy bueno. Las consultas telefónicas son respondidas con mucha amabilidad y eficacia y cumplen en el envío de mails cuando uno requiere alguna ayuda por esa via. Recomendables.
FELICITACIONES POR LA WEB NUEVA ¡ SIGAN CRECIENDO ABRAZO NIXEL
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!!!
Excelente servicio, siempre que manifesté duda o consulta me respondieron al instante y resolvieron mis inquietudes.
Siempre puedo contar con su asesoramiento para cualquier duda o consulta, estoy muy conforme con el servicio. Gracias!
Muy buena atención, excelente respuesta a los pocos problemas encontrados!! Gracias por la atencón y felices fiestas!!
Ya hace dos años que somos clientes y la atención ha sido excelente. El servicio es muy bueno y han resuelto las dificultades que se han presentado. Totalmente recomendable.
Somos clientes desde hace 5 años y la verdad que el servicio es impecable. Saludos y felicidades. REVIN SA.-
Excelente atención y asistencia al cliente. Soporte de 10!!! Me alegra contar con uds para mi empresa!!!
Chicos! excelente servicio! la verdad que muy conforme porque ademas siempre estan para resolverme todos los problemas :) muchas gracias! Desde ya super confiables, responsables y recomendables... Felicitaciones!!!
Excelente atención y servicio, incomparable.
Excelente atención, servicio y resultados. Muchas gracias!
Excelente servicio y excelente soporte técnico, siempre que tuve algún problema para resolver situaciones de hosting ellos respondieron inmediatamente, claramente y dando los pasos a seguir y si yo no podía resolverlo, Hosting Bahía lo hacía por mí. LOS FELICITO !! MI PUNTAJE: SUPER SUPER 10
Gran servicio, rápida respuesta y buena atención sigan así!
El mejor servicio!!!!
