COMMENT FAIRE : Ajout d'une exclusion de responsabilit� � des messages SMTP sortants dans Visual Basic

Num�ro d'article: 317327 - Voir les produits auxquels s'applique cet article

Ancien n� de publication de cet article�: F317327

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.

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

Cr�ez un nouveau fichier DLL ActiveX Microsoft Visual Basic. Nommez le projet SMTPEventSink et nommez le module Exclusion.
Dans les r�f�rences du projet, ajoutez Biblioth�que Microsoft CDO pour Exchange 2000 et Biblioth�que Server Extension Objects COM.

Collez le code suivant dans le module�:

Dim TextDisclaimer As String
Dim HTMLDisclaimer As String

Implements IEventIsCacheable
Implements CDO.ISMTPOnArrival

Private Sub IEventIsCacheable_IsCacheable()
    ' Renvoie uniquement S_OK.
End Sub

Private Sub Class_Initialize()
  'A FAIRE : remplacez l'exemple de texte d'exclusion de responsabilit� par votre propre texte.
  TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "Sample Discliamer Text."
  HTMLDisclaimer = "<p></p><p>DISCLAIMER:<br>Sample Disclaimer Text"
End Sub

Private Sub ISMTPOnArrival_OnArrival(ByVal Msg As CDO.IMessage, EventStatus As CDO.CdoEventStatus)
    If Msg.HTMLBody <> "" Then
        Dim szPartI As String
        Dim szPartII As String
        Dim pos As Integer
        
        'Recherchez la balise "</body>" et ins�rez notre exclusion de responsabilit� avant 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
    EventStatus = cdoRunNextSink
End Sub

Remplacez l'exemple de texte d'exclusion de responsabilit� par votre propre texte, puis cr�ez la�DLL.

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�:

cscript smtpreg.vbs /add 1 OnArrival SMTPDisclaimer SMTPEventSink.Disclaimer "mail from=*"

Si cette 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 SMTPDisclaimer

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�:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_managing_event_bindings.asp

(http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_managing_event_bindings.asp)

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.

Retour au d�but | Envoyer des commentaires

Propri�t�s

Num�ro d'article: 317327 - Derni�re mise � jour: mardi 23 ao�t 2005 - Version: 5.1

Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):

Microsoft Exchange Server 2000 Service Pack 1sur le syst�me suivant

Microsoft Windows 2000 Service Pack 1
Microsoft Windows 2000 Service Pack 2
Microsoft Windows 2000 Service Pack 3

Microsoft Exchange 2000 Server Service Pack 2sur le syst�me suivant

Microsoft Windows 2000 Service Pack 1
Microsoft Windows 2000 Service Pack 2
Microsoft Windows 2000 Service Pack 3

Collaboration Data Objects for Exchange 2000
Microsoft Collaboration Data Objects 2.0

kbhowto kbhowtomaster KB317327

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.

Retour au d�but | Envoyer des commentaires