{"id":1069,"date":"2010-09-01T12:54:53","date_gmt":"2010-09-01T15:54:53","guid":{"rendered":"http:\/\/www.radians.com.ar\/blog\/?p=1069"},"modified":"2010-09-01T14:26:24","modified_gmt":"2010-09-01T17:26:24","slug":"agregando-un-disclaimer-a-nuestros-mensajes-salientes-smtp-por-medio-de-un-vbscript-en-exchange-server-2003-howto","status":"publish","type":"post","link":"https:\/\/www.radians.com.ar\/blog\/?p=1069","title":{"rendered":"Agregando un Disclaimer a nuestros mensajes salientes SMTP por medio de un VBScript en Exchange Server 2003 {HOWTO}"},"content":{"rendered":"

Hoy vamos a ver como podemos agregar un disclaimer en los mensajes salientes de nuestro Exchange Server 2003 por medio de un VBScript. Para poder hacer esto vamos a necesitar las herramientas SDK de Exchange<\/a> (Ver secci\u00f3n de links para su descarga). <\/p>\n

La instalaci\u00f3n es muy sencilla:<\/p>\n

\"ExchangeSDK01\"<\/a>\"ExchangeSDK02\"<\/a>\"ExchangeSDK03\"<\/a>\"ExchangeSDK04\"<\/a>\"ExchangeSDK05\"<\/a>\"ExchangeSDK06\"<\/a><\/p>\n

Ahora tenemos que hacer el script que contendr\u00e1 nuestro Disclaimer. Debe tener el siguiente formato:<\/p>\n

<SCRIPT LANGUAGE="VBScript">
Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
   TextDisclaimer = vbCrLf & "DISCLAIMER:" & vbCrLf & "This message is intended only for the use of the individual or entity to which it is addressed and may contain information which is privileged, confidential, proprietary, or exempt from disclosure under applicable law. If you are not the intended recipient or the person responsible for delivering the message to the intended recipient, you are strictly prohibited from disclosing, distributing, copying, or in any way using this message. If you have received this communication in error, please notify the sender and destroy and delete any copies you may have
received."
   HTMLDisclaimer = "<p><\/p><p>DISCLAIMER:<br>This message is intended only for the use of the individual or entity to which it is addressed and may contain information which is privileged, confidential, proprietary, or exempt from disclosure under applicable law. If you are not the intended recipient or the person responsible for delivering the message to the intended recipient, you are strictly prohibited from disclosing, distributing, copying, or in any way using this message. If you have received this communication in error, please notify the sender and destroy and delete any copies you may have
received."<\/font><\/p>\n

   If Msg.HTMLBody <> "" Then
      ‘Search for the "<\/body>" tag and insert our disclaimer before that tag.
      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<\/font><\/p>\n

   If Msg.TextBody <> "" Then
      Msg.TextBody = Msg.TextBody & vbCrLf & TextDisclaimer & vbCrLf
   End If
   
   ‘Commit the content changes to the transport ADO Stream object.
   Msg.DataSource.Save ‘ Commit the changes into the transport Stream<\/font><\/p>\n

   EventStatus = cdoRunNextSink
End Sub
<\/SCRIPT>
<\/font><\/p>\n

Una vez hecho esto, lo que debemos hacer es registrar el receptor de eventos, utilizando el  archivo Smtpreg.vbs<\/font><\/em><\/strong>. Desde un s\u00edmbolo del sistema, vamos a la carpeta C:\\Program Files\\Exchange SDK\\SDK\\Support\\CDO\\Scripts<\/font><\/strong><\/em> y escribimos lo siguiente:<\/p>\n