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

Id. de artículo: 186204 - Ver los productos a los que se aplica este artículo
Este artículo se publicó anteriormente con el número E186204
Expandir todo | Contraer todo

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).
Volver al principio | Enviar comentarios

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.
Volver al principio | Enviar comentarios

Referencias

Ayuda de Collaboration Data Objects; busque en "Collaboraton Data Objects for NTS Component"; "NewMail Object (CDONTS Library)"
Volver al principio | Enviar comentarios

Propiedades

Id. de artículo: 186204 - Última revisión: martes, 11 de abril de 2000 - Versión: 1.0
La información de este artículo se refiere a:
  • Microsoft Collaboration Data Objects 1.2 for NT Server
Palabras clave: 
kbasp kbcdonts kbgrpdsmsg kbhowto kbhtml kbmsg kbvbscript KB186204
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.
Volver al principio | Enviar comentarios

Enviar comentarios

 
Volver al principioVolver al principio