Como adicionar um aviso de isen��o para as mensagens SMTP de sa�da no script do Visual Basic

ID do artigo: 317680 - Exibir os produtos aos quais esse artigo se aplica.

Este artigo foi publicado anteriormente em BR317680

Para obter uma vers�o deste artigo para o Microsoft Visual Basic, consulte 317327

(http://support.microsoft.com/kb/317327/ )

Expandir tudo | Recolher tudo

Sum�rio

Este artigo descreve detalhadamente como usar um coletor de eventos de transporte SMTP para adicionar um aviso de isen��o aos emails SMTP de sa�da.

Criar o coletor de eventos

Para criar um coletor de eventos, cole o seguinte c�digo em um novo arquivo e salve-o 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 o coletor de eventos

Para registrar seu coletor de eventos, use o arquivo Smtpreg.vbs, instalado com o Exchange SDK. A partir de um prompt de comando, procure pela pasta "...\Exchange SDK\SDK\Support\CDO\Scripts" e digite o seguinte (certifique-se que o caminho para EventSinkScript.vbs esteja correto):

cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost CDO.SS_SMTPOnArrivalSink "mail from=*@your-domain-here.com"
cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName "C:\EventSinkScript.vbs"

Se o comando tiver �xito, uma mensagem de �xito ser� exibida pelo script.

Para desfazer o registro desse evento, digite o seguinte:

cscript smtpreg.vbs /remove 1 OnArrival SMTPScriptingHost

Para obter informa��es adicionais sobre como registrar eventos com o Smtpreg.vbs, consulte o t�pico "Gerenciando v�nculos de eventos" no seguinte site MSDN (em ingl�s):

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/7406817f-b48f-4b62-86af-bd6703fca4f6.asp

(http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/7406817f-b48f-4b62-86af-bd6703fca4f6.asp)

Para obter informa��es adicionais, clique no n�mero abaixo para ler o artigo na Base de Dados de Conhecimento da Microsoft:

324021

(http://support.microsoft.com/kb/324021/ )

Como criar um coletor de caixa postal "coleta tudo" para o Exchange 2000

Testar o coletor de eventos

Para testar seu coletor, envie um email para um destinat�rio SMTP externo � sua organiza��o. O destinat�rio deve receber uma mensagem modificada com a declara��o adicionada no final da mensagem.

Observa��o Se voc� usa um cliente MAPI como o Microsoft Outlook para enviar o e-mail, o destinat�rio pode n�o receber a mensagem modificada. Isto porque mensagens submetida usando MAPI n�o est�o no formato SMTP quando o e-mail dispara o evento de transporte de SMTP. Ent�o, as altera��es feitas pelo c�digo do evento n�o s�o persistentes.