Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Windows Windows Serveur Exchange Ajout d'une exclusion de responsabilité à des messages SMTP

Ajout d'une exclusion de responsabilité à des messages SMTP

1 réponse
Avatar
david
je veux ajouter une exclusion de responsabilit=E9 =E0 des=20
messages SMTP sortants (c'est les messages d'avertissement=20
qu'on ins=E8re automatiquement exemple : =AB Ce message=20
contient des informations confidentielles prot=E9g=E9es par le=20
secret professionnel. Au cas o=F9 il ne vous serait pas=20
destin=E9, nous vous remercions de bien vouloir nous en=20
aviser imm=E9diatement et de le supprime. =BB.
il y a @+lolo qui m'a dit d'aller sur=20
http://support.microsoft.com/?id=3D317680
j'ai suivi les instructions sans succ=E8s, le code est le=20
suivant :
<SCRIPT LANGUAGE=3D"VBScript">
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
TextDisclaimer =3D vbCrLf & "DISCLAIMER:" & vbCrLf=20
& "Sample Disclaimer added in a VBScript."
HTMLDisclaimer =3D "<p></p><p>DISCLAIMER:<br>Sample=20
Disclaimer added in a VBScript."

If Msg.HTMLBody <> "" Then
'Recherchez la balise "</body>" et ins=E9rez=20
notre exclusion de responsabilit=E9 devant cette balise.
pos =3D InStr(1, Msg.HTMLBody, "</body>",=20
vbTextCompare)
szPartI =3D Left(Msg.HTMLBody, pos - 1)
szPartII =3D Right(Msg.HTMLBody, Len
(Msg.HTMLBody) - (pos - 1))
Msg.HTMLBody =3D szPartI + HTMLDisclaimer +=20
szPartII
=20
Msg.TextBody =3D Msg.TextBody & vbCrLf &=20
TextDisclaimer & vbCrLf
Else
Msg.TextBody =3D Msg.TextBody & vbCrLf &=20
TextDisclaimer & vbCrLf
End If
=20
'Validez les modifications apport=E9es au contenu=20
dans l'objet de transport ADO Stream.
Msg.DataSource.Save ' Validez les modifications=20
dans le transport Stream

pEventStatus =3D cdoRunNextSink
End Sub
</SCRIPT>


je ne connais pas VB en plus je n'ai pas le Kit de=20
d=E9veloppement Microsoft Exchange (SDK), j'ai r=E9ussi =E0=20
t=E9l=E9charger le smtpreg.vbs
et j'ai excecut=E9 :=20
cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost=20
CDO.SS_SMTPOnArrivalSink "mail from=3D*"=20
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost=20
Sink ScriptName "C:\EventSinkScript.vbs"

Il m'a pas affich=E9 de message d'erreur, mais l'exclusion=20
ne s'ins=E8re pas au mail envoy=E9.
Est-ce que quelqu'un peut me dire ou j'ins=E8re mon message=20
dans le code en me donnant la proc=E9dure en d=E9tail, ou me=20
donner une autre solution.
Merci bcp=20
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Thierry DEMAN [MVP]
Bonsoir,

quelle est ta version de Exchange?
quels sont tes clients de messagerie?

Si tu utilises Outlook, il faut utiliser une procédure que Microsoft ne
publie plus!

J'ai récemment testé sur Exchange 2003 cette procédure qui fonctionne
encore!

=> il s'agit de créer un nouveau serveur virtuel SMTP, d'appliquer le "event
sink" à ce nouveau serveur virtuel, et d'obliger les messages sortant à
passer du 1er serveur virtuel SMTP sur le 2ème. C'est le seul moyen
d'obtenir la signature d'entreprise !!!

A bientôt

PS: je devrais publier une procédure plus complete!

--
Thierry DEMAN-BARCELÒ
MVP Exchange,SQL/Server
FAQ Exchange: http://faqexchange.dyndns.org
Site personnel: http://webfamilial.dyndns.org/thierry/pageprincipale.htm


"david" a écrit dans le message de news:
1d2b801c422ce$b2577560$
je veux ajouter une exclusion de responsabilité à des
messages SMTP sortants (c'est les messages d'avertissement
qu'on insère automatiquement exemple : « Ce message
contient des informations confidentielles protégées par le
secret professionnel. Au cas où il ne vous serait pas
destiné, nous vous remercions de bien vouloir nous en
aviser immédiatement et de le supprime. ».
il y a @+lolo qui m'a dit d'aller sur
http://support.microsoft.com/?id17680
j'ai suivi les instructions sans succès, le code est le
suivant :
<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 = cdoRunNextSink
End Sub
</SCRIPT>


je ne connais pas VB en plus je n'ai pas le Kit de
développement Microsoft Exchange (SDK), j'ai réussi à
télécharger le smtpreg.vbs
et j'ai excecuté :
cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost
CDO.SS_SMTPOnArrivalSink "mail from=*"
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost
Sink ScriptName "C:EventSinkScript.vbs"

Il m'a pas affiché de message d'erreur, mais l'exclusion
ne s'insère pas au mail envoyé.
Est-ce que quelqu'un peut me dire ou j'insère mon message
dans le code en me donnant la procédure en détail, ou me
donner une autre solution.
Merci bcp