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

Traductions disponibles Traductions disponibles
Numéro d'article: 186204 - Voir les produits auxquels s'applique cet article
Ancien nº de publication de cet article : F186204
Agrandir tout | Réduire tout

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

Numéro d'article: 186204 - Dernière mise à jour: vendredi 20 janvier 2006 - Version: 2.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Collaboration Data Objects 1.2 for NT Server
Mots-clés : 
kbasp kbcdonts kbgrpdsmsg kbhowto kbhtml kbmsg kbvbscript KB186204
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com