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
%>
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!
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!!!.
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!
Tengo su servicio de hosting desde hace varios años y no lo cambiaría por nada; simplemente por la predisposición en ayudar e intentar solucionar cada problema presentado, mostrando velocidad y profesionalismo al mismo tiempo. Un servicio humano y técnico realmente inmejorable.
Excelente servicio y pronta respuesta ante cualquier tipo de consulta o problema. Los conozco desde el comienzo, nunca un inconveniente. Gracias!!
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, felicitaciones son gente de confianza, estamos muy conformes con el servicio que nos prestan .Sigan creciendo y los mejores deseos de prosperidad!!!
Excelente servicio y soporte tecnico, el mejor servicio de hosting de Bahia Blanca, nunca un problema! gracias gente!!!
Excelente la atención, hace pocos meses contraté Hosting Bahía y ante cada inconveniente y recibido una atención técnica espectacular. Muy buen servicio sin problemas
Felicitaciones Hosting por su nueva pagina y gracias por sus servicios. Saludos
Excelente atención, servicio y resultados. Muchas gracias!
Gran servicio, rápida respuesta y buena atención sigan así!
Excelente servicio y soporte tecnico, el mejor servicio de hosting de Bahia Blanca, nunca un problema! gracias gente!!!
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 y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
Me han brindado mucha confianza, ante algunos problemas rápidamente se propusieron a ayudarme brindándome un soporte excelente. Muy recomendable. Muchas gracias!
Hará año y medio que trabajo con ellos. La web no es mi palo específico, ellos siempre lo supieron interpretar y me han atendido de diez. Rápido, seguro, con onda. Excelente! #GoodShow!
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
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 y rápido asesoramiento en las soluciones a los inconvenientes que me surjen referentes a los servicios que me brindan!!! 100% recomendables!!
Excelente servicio y respuesta inmediata! Muy atentos!
Excelente servicio y muy buena atencion! Satisfecho 100%
Tenía que hacer dos registros NIC. Gracias a la asistencia y predisposición de Martín, tanto en la oficina como la asistencia técnica telefónica, pude lograr mi objetivo. Excelente.
Tenía que hacer dos registros NIC. Gracias a la asistencia y predisposición de Martín, tanto en la oficina como la asistencia técnica telefónica, pude lograr mi objetivo. Excelente.
Impecable el servicio y la rapidez en solucionar nuestros problemas! Gracias por ayudarnos!!
Excelente atención y asistencia al cliente. Soporte de 10!!! Me alegra contar con uds para mi empresa!!!
Muy satisfecha con el servicio brindado y la atención día a día.
El mejor servicio!!!!
Tuve un problema con el espacio en disco apenas subi mi página web y mis consultas fueron respondidas inmediatamente. Muy buena atención!
