none
Poner una leyenda a todos los correos en exchage 2000 RRS feed

  • Pregunta

  • HOLA , MI PREGUNTA ES COMO PUEDO PONER UNA LEYENDA A TODOS LOS CORREO QUE SALGAN DE EL SERVIDOR EXCHANGE 2000 POR EJEMPLO.

    ------------------------------------------
    MENSAJE PRIVADO
    ------------------------------------------
    PARA: PATITO@EMPRESA.COM
    DE:ALGUIEN@EMPRESA.COM
    ASUNTO:LEYENDA
    --------------------------------------------
    CUERPO DEL MENSAJE





    ------------------------------------------
    LEYENDA.
    ESTE CORREO FUE ENVIADO DE LA EMPRESA.COM
    -------------------------------------------

    COMO PUEDO HACER ESO????
    AYUDENME  POR FAVOR.

    miércoles, 19 de noviembre de 2008 16:51

Respuestas

Todas las respuestas

    • Marcado como respuesta Uriel Almendra lunes, 13 de mayo de 2013 14:42
    jueves, 27 de noviembre de 2008 15:07
    Moderador
  • Hola Pablo, estoy leyendo los articulos...

    mi pregunta es cual
    script utilizo

    ------------------------------------------------------------------------------------------------------
    cscript smtpreg.vbs /add 1 onarrival SMTPScriptingHost
    CDO.SS_SMTPOnArrivalSink “mail from=*@mi-dominio.com”
    cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingHost Sink ScriptName
    -------------------------------------------------------------------------------------------------------

    o este
    -------------------------------------------------------------------------------------------------------
    <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>
    -------------------------------------------------------------

    tambien, ya eh descargado ExchangeSDKTools, ya que no lo tenia instalado en el servidor, sin embargo
    no veo la carpeta script,
    ya que mencina la ruta \Exchange SDK\SDK\Support\CDO\Scripts

    guiame, por favor pablo.
    tambien lei el articulo de programa de terceros, pero pasando los 30 dias, se mantendra el
    Disclaimer o se dehabilitara, pasando los 30 dias...

    saludos

    lunes, 8 de diciembre de 2008 16:18
  • Hola,

     

    El segundo es el código del script que tenes que ejecutar como se indica en el primero Smile

     

    En definitiva, se usan los dos, porque en el primero ejecutas el script que armas con el código del segundo.

     

    Slds.

     

    martes, 9 de diciembre de 2008 12:56
    Moderador