Ejemplo para crear un formulario de envío de correos en ASP:

<%@LANGUAGE="VBSCRIPT" %>

<!– Ejemplo de Formulario de envio de correos utilizando ASP –>

<!– Este codigo debe ser colocado en un archivo de extension .asp –>





<!–METADATA TYPE="TypeLib" FILE="E:\WINDOWS\system32\cdosys.dll" –>



<!– Formulario para completar con los datos –>

<form action="test_mail.asp" method="POST">

        E-mail destinatario: <input type="text" name="destinatario" width="50"></input><br/>

        Titulo Consulta: <input type="text" name="TituloConsulta" width="50" ></input><br/>

      Texto Consulta: <TEXTAREA NAME="Consulta"      ROWS="10"  COLS="50">    </TEXTAREA>   <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



 DestinatarioCorreo = Request("destinatario")

 CuentaDesdeDondeSeEenvia = "CuentaDeCorreo" ‘debe ser una creada desde el panel de control nombre@dominio

 TextoConsulta= Request("Consulta")

 TituloConsulta= Request("TituloConsulta")



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 = TextoConsulta

        ‘ 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

%>