Cómo agregar una renuncia a los mensajes SMTP de salida en una secuencia de comandos de Visual Basic

Seleccione idioma Seleccione idioma
Id. de artículo: 317680 - Ver los productos a los que se aplica este artículo
Para obtener una versión de este artículo para Microsoft Visual Basic, vea 317327.
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo paso a paso se muestra cómo utilizar un receptor de eventos de transporte SMTP para agregar una renuncia a los mensajes de correo electrónico SMTP salientes.

Crear el receptor de eventos

Para crear un receptor de eventos, pegue el código siguiente en un archivo nuevo y guárdelo como 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
      '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

   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

   EventStatus = cdoRunNextSink
End Sub
</SCRIPT>

Registrar el receptor de eventos

Para registrar el receptor de eventos, utilice el archivo Smtpreg.vbs, que se instala con el SDK de Exchange. Desde un símbolo del sistema, vaya a la carpeta ...\Exchange SDK\SDK\Support\CDO\Scripts y escriba lo siguiente (asegúrese de que la ruta de acceso a EventSinkScript.vbs sea correcta):
cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink "mail from=*@suDominio.com"
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName "C:\EventSinkScript.vbs"
Si el comando se ejecuta correctamente, aparecerá un mensaje de confirmación generado por la secuencia de comandos.

Para anular el registro de este evento, escriba lo siguiente:
cscript smtpreg.vbs /remove 1 OnArrival SMTPScriptingHost
Para obtener más información acerca de cómo registrar eventos con Smtpreg.vbs, vea el tema "Managing Event Bindings" (Administrar enlaces de eventos) en el siguiente sitio Web de MSDN:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/7406817f-b48f-4b62-86af-bd6703fca4f6.asp
Para obtener más información al respecto, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
324021 Cómo crear un receptor de buzón para capturar todos los mensajes en Exchange 2000

Probar el receptor de eventos

Para probar su receptor, envíe un mensaje de correo electrónico a un destinatario SMTP externo a su organización. El destinatario debe recibir un mensaje modificado con la renuncia incluida al final del mensaje.

Nota
Si utiliza un cliente MAPI, como Microsoft Outlook, para enviar el mensaje de correo electrónico, el destinatario no recibirá un mensaje modificado. Esto se debe a que los mensajes que se envían con MAPI no tienen un formato SMTP cuando se desencadena el evento de transporte SMTP. Por tanto, los cambios realizados en el código del evento no se conservan.

Referencias

Para obtener más información al respecto, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
273233 No puede modificar los mensajes MAPI que se capturan en un receptor de eventos de transporte SMTP

Propiedades

Id. de artículo: 317680 - Última revisión: lunes, 26 de noviembre de 2007 - Versión: 9.3
La información de este artículo se refiere a:
  • Microsoft Exchange Server 2003 Enterprise Edition
  • Microsoft Exchange Server 2003 Standard Edition
  • Microsoft Exchange 2000 Server Standard Edition
  • Collaboration Data Objects for Exchange 2000
  • Microsoft Collaboration Data Objects 2.0
Palabras clave: 
kbhowtomaster KB317680

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com