scripting Exchange 2K3 Disclaimer CDO VBS   

Bonjour,

 J'utilise un script VBS (voir ci dessous) afin d'ajouter un disclaimer
en fin de chaque mail sortant vers l'internet, et je me heurte a un
petit soucis l'object Msg.from renvoie le display name est non
l'adresse mail de l'utilisateur, hors nous allons changer de nom de
domaine d'ici peux et j'aurais voulu ajouter dans mon disclaimer un
texte indiquant l'ancienne ainsi que la nouvelle adresse et ce de facon
automatique par un petite traitement de la variable type

   new_email = nom.prenom@new_dom.net
   old_email = replace(new_email,"new_dom.net","old_dom.com")

 est utiliser ces deux variable dans mon script.

 Je suis preneur de toute info et/ou sur le fonctionnement et
l'utilisation du composant CDO me permettant de resoudre mon probleme

 Cordialement

 Ch.M

<SCRIPT LANGUAGE="VBScript">
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
   strFromEmail = Msg.from
   TextDisclaimer = vbcrlf & "DISCLAIMER:" & vbCrLf & "blablablabla" &
vbcrlf & Msg.From & vbcrlf
HTMLDisclaimer="<i><br><br>" & Msg.from & "<br><br>"
   If Msg.HTMLBody <> "" The
      'Search for the "</body>" tag and insert our discliamer before
that tag.
        Msg.HTMLBody = Msg.HTMLBody & "<br> <br>"
        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
   End If
    if Msg.TextBody <> "" Then
      Msg.TextBody = Msg.TextBody & vbCrLf & " "
      Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf
    End If
   Msg.DataSource.Save
   EventStatus = cdoRunNextSink
End Sub
</SCRIPT>

date: 27 Sep 2005 13:06:27 -0700   author:   unknown