COMMENT FAIRE : Ajout d'une exclusion de responsabilité à des messages SMTP sortants dans le script Visual Basic

Ancien nº de publication de cet article : F317680
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Pour obtenir la version Microsoft Visual Basic de cet article, consultez l'article 317327.

Contenu de cette tâche

Résumé
Cet article explique en détail la procédure d'utilisation d'un récepteur d'événements de transport SMTP pour ajouter une exclusion de responsabilité à des messages SMTP sortants.

Début de page

Création du récepteur d'événements

Pour créer un récepteur d'événements, collez le code suivant dans un nouveau fichier et enregistrez-le sous EventSinkScript.vbs :
<SCRIPT LANGUAGE="VBScript">Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)	TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Disclaimer added in a VBScript."	HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer added in a VBScript."	If Msg.HTMLBody <> "" Then	       	'Recherchez la balise "</body>" et insérez notre exclusion de responsabilité devant cette balise.	        pos = InStr(1, Msg.HTMLBody, "</body>", vbTextCompare)        	szPartI = Left(Msg.HTMLBody, pos - 1)	        szPartII = Right(Msg.HTMLBody, Len(Msg.HTMLBody) - (pos - 1))        	Msg.HTMLBody = szPartI + HTMLDisclaimer + szPartII                	Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf	 Else        	Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf	 End If        	'Validez les modifications apportées au contenu dans l'objet de transport ADO Stream.	 Msg.DataSource.Save ' Validez les modifications dans le transport Stream	pEventStatus = cdoRunNextSinkEnd Sub</SCRIPT>
Début de page

Inscription du récepteur d'événements

Pour inscrire votre récepteur d'événements, utilisez le fichier Smtpreg.vbs, lequel est installé avec le Kit de développement Microsoft Exchange (SDK). À partir d'une invite de commande, recherchez le dossier « ...\Exchange SDK\SDK\Support\CDO\Scripts » et tapez la commande suivante (vérifiez que le chemin de EventSinkScript.vbs est correct) :
cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink "mail from=*"
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName "C:\EventSinkScript.vbs"
Si la commande réussit, vous recevez un message généré par le script qui signale la réussite.

Pour annuler l'inscription de cet événement, tapez la commande suivante :
cscript smtpreg.vbs /remove 1 OnArrival SMTPScriptingHost
Pour plus d'informations sur l'inscription d'événements à l'aide de Smtpreg.vbs, consultez la rubrique « Managing Event Bindings » sur la gestion de la liaison d'événements du site Web MSDN à l'adresse suivante :Début de page

Test du récepteur d'événements

Pour tester votre récepteur d'événements, envoyez un message électronique à un destinataire SMTP qui est externe à votre organisation. Le destinataire doit recevoir un message modifié dans lequel l'exclusion de responsabilité est ajoutée à la fin du message.

Remarque : Si vous utilisez un client MAPI tel que Microsoft Outlook pour envoyer le message électronique, le destinataire ne reçoit pas un message modifié. En effet, les messages soumis par le biais de MAPI ne sont pas au format SMTP lorsque le message déclenche l'événement de transport SMTP. Par conséquent, les modifications apportées par le code de l'événement ne sont pas conservées.

Début de page
Propriétés

ID d'article : 317680 - Dernière mise à jour : 12/07/2015 08:56:26 - Révision : 5.1

Microsoft Exchange Server 2000 Service Pack 1, Microsoft Exchange 2000 Server Service Pack 2, Collaboration Data Objects for Exchange 2000, Microsoft Collaboration Data Objects 2.0

  • kbnosurvey kbarchive kbhowto kbhowtomaster KB317680
Commentaires