How to Utilisation de CDONTS pour collecter et envoyer des informations de messagerie à partir d'un utilisateur

Exclusion de responsabilité du contenu obsolète de la base de connaissances

Cet article a été rédigé sur les produits pour lesquels Microsoft n’offre plus aucune prise en charge. Par conséquent, cet article est proposé « en l’état » et ne sera plus mis à jour.

Résumé

Cet article contient un exemple qui décrit la procédure à suivre pour collecter des informations à partir d'un utilisateur sur une page .HTM, puis utiliser ces dernières pour envoyer du courrier à un destinataire à l'aide des objets CDONTS (Collaboration Data Objects pour Windows NT Server) sur SMTP. Cet article inclut un exemple de code pour les fichiers HTM et ASP, ainsi que des informations sur la façon de configurer le serveur SMTP par défaut de votre console MMC.

Plus d'informations

Pour envoyer un courrier avec l'objet NewMail de CDONTS, vous devez utiliser la syntaxe suivante :

objNewMail.Send([From][, To][, Subject][, Body][, Importance] )

objNewMail
Obligatoire. Cet objet NewMail.

From
Facultatif. String. Adresse complète de messagerie à identifier comme
l'expéditeur (par exemple, personne@Microsoft.com)

To
Facultatif. String. Liste d'adresses complètes de messagerie des
destinataires.
Les adresses individuelles de destinataire sont séparées par des points-
virgules.
(Par exemple, personne@Microsoft.com)

Subject
Facultatif. String. Ligne objet du message.

Body
Facultatif. Objet IStream ou String. Texte du message. Seuls
les programmes C/C++ et Java peuvent utiliser un objet IStream pour le
paramètre Body. Ils doivent passer un objet IUnknown qui retourne une
interface IStream en réponse à QueryInterface. Microsoft Visual
Basic prenant en charge l'interface IDispatch et pas IUnknown, il
ne peut utiliser un objet IStream.

Importance
Facultatif. Long. Importance associée au message, Haute (High),
Normale ou Faible (Low). Cet article définit la valeur requise selon
le bouton d'option sélectionné par l'utilisateur.

  1. Copiez et collez le code HTML suivant dans un fichier nommé 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>From:</td>
    <td><!--webbot bot="Validation"
    b-value-required="TRUE" --><input type="text"
    size="47" name="txtFrom"
    value="Votre adresse Internet (Me@MyCompany.com)"></td>
    </tr>
    <tr>
    <td>To:</td>
    <td><!--webbot bot="Validation"
    b-value-required="TRUE" --><input type="text"
    size="47" name="txtTo"
    value="L'adresse du destinataire (Vous@Societe.com)"></td>
    </tr>
    <tr>
    <td>Subject:</td>
    <td><input type="text" size="47" name="txtSubject"
    value="Entrez un objet ici"></td>
    </tr>
    <tr>
    <td valign="top">Message:</td>
    <td><textarea name="txtMessage" rows="9" cols="45">
    Tapez votre message ici.</textarea></td>
    </tr>
    <tr>
    <td valign="top">Importance:</td>
    <td><input type="radio" name="optImportance"
    value="2">High<br>
    <input type="radio" checked name="optImportance"
    value="1">Normal<br>
    <input type="radio" name="optImportance" value="0">Low<br>
    </td>
    </tr>
    </table>
    <p><input type="submit" name="cmdSubmit" value="Submit">
    <input type="reset" name="cmdClear" value="Clear"> </p>
    </form>
    </body>
    </html>

  2. Collez le code VBScript suivant dans un fichier nommé 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)
    'Cette sous-routine écrit simplement toutes les informations
    'qui lui sont passées.
    response.write(strWriteThis & "<br>")
    end sub

    %>
    </HEAD>
    <BODY>

    <%
    Dim myCDONTSMail
    Dim strFrom
    Dim strTo
    Dim strSubject
    Dim strMessage
    Dim lngImportance
    'Les affectations de variable suivantes ne sont pas requises
    'elles n'ont pour but ici que de faciliter l'interprétation de
    'la ligne myCDONTSMail.Send. Vous pouvez mettre
    'les instructions Request.Form sur la ligne .Send pour couper
    'sur la quantité de code contenue dans le fichier.
    strFrom=request.form("txtFrom")
    strTo=request.form("txtTo")
    strSubject = request.form("txtSubject")
    strBody=request.form("txtMessage")
    lngImportance = request.form("optImportance")

    'Les quatre lignes suivantes de code permettent de tester
    'les variables qui ont été mises dans le
    'formulaire 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 "Un courrier a été envoyé."
    %>
    </BODY>
    </HTML>

    REMARQUE : L'objet NewMail devient non valide à la fin de l'exécution de la méthode Send et vous ne pouvez pas l'utiliser de nouveau pour un autre message. Vous devez le définir sur Nothing pour libérer de la mémoire. Si vous essayez d'accéder à un objet NewMail envoyé, vous recevrez un CdoE_INVALID_OBJECT.
  3. Étapes à suivre pour configurer Internet Information Server (IIS) Pour envoyer un courrier à partir de votre serveur IIS par l'intermédiaire de votre serveur SMTP (si nous supposons qu'il s'agit de deux ordinateurs), procédez comme suit :


    1. Sur votre ordinateur IIS, ouvrez Microsoft Management Console (MMC).
    2. Dans le volet gauche, développez la section "Internet Information Server".
    3. Dans le volet gauche, sélectionnez et développez votre serveur IIS.
    4. Dans le volet droit, cliquez avec le bouton droit sur "Serveur SMTP par défaut" et sélectionnez "Propriétés".
    5. Sélectionnez l'onglet "Remise".
    6. Dans la zone de texte "Nom de domaine complet", entrez le nom de l'ordinateur IIS.
    7. Dans la zone de texte "Hôte actif", entrez le nom de votre serveur SMTP.
  4. Exécutez le fichier CDONTSMail.htm dans votre navigateur, tapez les informations requises, puis sélectionnez le bouton Envoyer.


    REMARQUE : Le code ci-dessus vous oblige à entrer une valeur dans les champs From et To.

Références

Aide sur les Objets de données de collaboration ; recherchez la rubrique "Objets de données de collaboration pour le composant NTS" : "Objet NewMail (Bibliothèque CDONTS)"
Propriétés

ID d'article : 186204 - Dernière mise à jour : 20 janv. 2006 - Révision : 1

Commentaires