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

Exención de responsabilidades de contenido KB retirado

Este artículo se refiere a 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)"
Propiedades

Id. de artículo: 186204 - Última revisión: 04/11/2000 - Revisión: 1

Comentarios