Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

CÓMO: Utilizar CDONTS para recopilar y enviar por correo información de un usuario

Este artículo se publicó anteriormente con el número E186204
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.
Resumen
Este artículo contiene un ejemplo que describe cómo recopilar información de un usuario en una página .HTM y, a continuación, utilizar dicha información para enviar correo a un destinatario mediante Collaboration Data Objects para Windows NT Server (CDONTS) a través de SMTP. Este artículo incluye código de ejemplo para los archivos de HTM y ASP así como información acerca de cómo configurar el servidor SMTP predeterminado de Microsoft Management Console (MMC).
Más información
La sintaxis para enviar correo con el objeto NewMail de CDONTS es la siguiente:
   objNewMail.Send([De][, Para][, Asunto][, Cuerpo][, Importancia] )   objNewMail      Requerido. Este objeto NewMail.   De      Opcional. Cadena. Dirección de mensaje completa que se identificará como      remitente (por ejemplo, alguien@Microsoft.com)   Para     Opcional. Cadena. Una lista de direcciones completas de mensaje     de destinatarios.     Cada una de las direcciones de destinatarios individuales están separadas      por puntos y comas.     (por ejemplo, alguien@Microsoft.com)   Asunto      Opcional. Cadena. Línea de asunto para el mensaje.   Cuerpo      Opcional. Objeto o cadena IStream. Texto del mensaje. Únicamente      los programas C/C++ y Java pueden utilizar un objeto IStream       para el parámetro      Cuerpo. Deben pasar un objeto IUnknown que devuelva una      interfaz IStream en respuesta a QueryInterface. Microsoft Visual      Basic admite la interfaz Idispatch, pero no IUnknown por lo que      no puede utilizar un objeto IStream.   Importancia      Opcional. Largo. Importancia asociada con el mensaje: Alta,      Normal o Baja.  En este artículo se establece el valor requerido       dependiendo del botón de opciones que seleccione el usuario.
  1. Copie y pegue el siguiente código HTML en un archivo denominado CDONTSMail.HTM:
          <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">      <html>       <head>       <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">      <meta name="GENERATOR"      content="Microsoft FrontPage (Visual InterDev Edition) 2.0">      <title>CDONTSMail</title>      </head>      <body bgcolor="#FFFFFF">      <form action="CDONTSMail.asp" method="POST">      <table border="0">         <tr>            <td>De:</td>            <td><!--webbot bot="Validation"               b-value-required="TRUE" --><input type="text"               size="47" name="txtFrom"               value="Su dirección de Internet (Yo@MiEmpresa.com)"></td>         </tr>         <tr>            <td>Para:</td>            <td><!--webbot bot="Validation"               b-value-required="TRUE" --><input type="text"               size="47" name="txtTo"               value="Dirección del destinatario (Usted@SuEmpresa.com)"></td>         </tr>         <tr>            <td>Asunto:</td>            <td><input type="text" size="47" name="txtSubject"               value="Escriba aquí el asunto"></td>         </tr>         <tr>            <td valign="top">Mensaje:</td>            <td><textarea name="txtMessage" rows="9" cols="45">               Escriba aquí su mensaje.</textarea></td>         </tr>         <tr>            <td valign="top">Importancia:</td>            <td><input type="radio" name="optImportance"               value="2">Alta<br>               <input type="radio" checked name="optImportance"               value="1">Normal<br>               <input type="radio" name="optImportance" value="0">Baja<br>            </td>         </tr>      </table>      <p><input type="submit" name="cmdSubmit" value="Enviar">      <input type="reset" name="cmdClear" value="Borrar"> </p>      </form>      </body>      </html>
  2. Pegue el siguiente código de VBScript en un archivo denominado CDONTSMail.ASP:
          <%@ LANGUAGE="VBSCRIPT" %>      <HTML>      <HEAD>      <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">      <META HTTP-EQUIV="Content-Type" content="text/html;charset=iso-8859-1">      <TITLE>CDONTSMail</TITLE>      <%      Sub Write(strWriteThis)         'Esta subrutina registra todo         'lo que se le indique.         response.write(strWriteThis & "<br>")      end sub      %>      </HEAD>      <BODY>      <%         Dim myCDONTSMail         Dim strFrom         Dim strTo         Dim strSubject         Dim strMessage         Dim lngImportance         'Las siguientes asignaciones de variables no son necesarias         'sólo están aquí para facilitar la interpretación de la línea          'myCDONTSMail.Send. Puede poner las instrucciones         'Request.Form en la línea .Send para reducir         'la cantidad de código del archivo.         strFrom=request.form("txtDe")         strTo=request.form("txtPara")         strSubject = request.form("txtAsunto")          strBody=request.form("txtMensaje")         lngImportance = request.form("optImportancia")         'Las cuatro líneas de código siguientes son sólo         'de prueba para ver las variables que se han incluido desde el          'formulario HTM.         Write("strFrom = " & strFrom)         Write("strTo = " & strTo)         Write("strSubject = " & strSubject)         Write("strMessage = " & strBody)         Write("Importance = " & lngImportance)         Set myCDONTSMail = CreateObject("CDONTS.NewMail")         myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance         Set myCDONTSMail = Nothing         Write "Correo enviado."         %>      </BODY>      </HTML>
    NOTA: el objeto NewMail pasa a no ser válido cuando termina correctamente de realizarse el método Send y no puede volverlo a utilizar para otro mensaje. Debe establecerlo (Set) como Nothing para vaciar la memoria. El intento de acceso a un objeto NewMail enviado devuelve CdoE_INVALID_OBJECT.
  3. Pasos para configurar los Servicios de Internet Information Server (IIS). Para enviar correo desde el servidor IIS a través del servidor SMTP (suponiendo que existan diferentes equipos), lleve a cabo los siguientes pasos:

    1. En el equipo IIS, abra Microsoft Management Console (MMC).
    2. En el panel izquierdo, expanda la sección "Servicios de Internet Information Server".
    3. En el panel izquierdo, seleccione y expanda su servidor de IIS.
    4. En el panel derecho, haga clic con el botón secundario del mouse (ratón) en "Servidor SMTP predeterminado" y seleccione "Propiedades".
    5. Seleccione la ficha Entrega.
    6. En el cuadro de texto "Nombre de dominio completo", escriba el nombre del equipo de IIS.
    7. En el cuadro de texto "Host inteligente", escriba el nombre del servidor SMTP.
  4. Ejecute el archivo CDONTSMail.htm en el explorador, escriba la información necesaria y, a continuación, seleccione el botón Enviar.

    NOTA: el código anterior requiere que escriba un valor en los campos De y Para.
Referencias
Ayuda de Collaboration Data Objects; busque en "Collaboraton Data Objects for NTS Component"; "NewMail Object (CDONTS Library)"
kbDSupport kbCDONTS kbdse
Propiedades

Id. de artículo: 186204 - Última revisión: 04/11/2000 16:03:00 - Revisión: 1.0

Microsoft Collaboration Data Objects 1.2 for NT Server

  • kbasp kbcdonts kbgrpdsmsg kbhowto kbhtml kbmsg kbvbscript KB186204
Comentarios