Cómo crear un receptor de "general" del buzón para Exchange Server

Seleccione idioma Seleccione idioma
Id. de artículo: 324021 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo se describe cómo crear un receptor de sucesos para capturar todos los mensajes de correo electrónico que se envían a un dominio determinado y, a continuación, dirigirlos a un único buzón.

Nota Receptor de eventos ejemplo descrito en este artículo redirige todos los mensajes de correo electrónico que se envían a un dominio. Para obtener información acerca de cómo crear receptores de sucesos más complejos, vea el Kit de desarrollo de software (SDK) de Exchange.

Crear los archivos de secuencias de comandos

Cree las siguientes secuencias de comandos de cinco y, a continuación, almacenarlos en una carpeta en el equipo de Exchange.

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus requisitos específicos.

Catchall.cmd

El archivo de catchall.cmd llama a la secuencia de comandos SMTPReg.vbs y registra el receptor de sucesos catchall. Para crear este archivo .cmd, siga estos pasos:
  1. Escriba o pegue el código siguiente en un editor de texto, como el Bloc de notas:
    cscript smtpreg.vbs /add 1 onarrival SMTPScriptingCatchAll CDO.SS_SMTPOnArrivalSink "mail from=*"
    
    cscript smtpreg.vbs /setprop 1 onarrival SMTPScriptingCatchAll Sink ScriptName d:\mec\catchall\catchall.vbs
    
    cscript smtpreg.vbs /delprop 1 onarrival SMTPScriptingCatchAll Source Rule
    						
    Nota modificar la ruta de acceso del archivo catchall.vbs para reflejar la ubicación de carpeta de los archivos catchall.
  2. Guarde el archivo como catchall.cmd .

Enum.cmd

Ejecutar Enum.cmd a lista de receptores de sucesos que están registrados en el servidor. Para crear este archivo, siga estos pasos:
  1. Escriba o pegue el código siguiente en un editor de texto, como el Bloc de notas:
    cscript smtpreg.vbs /enum |more
    					
  2. Guarde el archivo como Enum.cmd .

Catchall.vbs

La secuencia de comandos catchall.vbs se utiliza para crear la cuenta catchall. Personalizar este archivo para su entorno de Exchange Server.
  1. Escriba o pegue el código siguiente en un editor de texto, como el Bloc de notas. Guarde este archivo como catchall.vbs .
    <SCRIPT LANGUAGE="VBSCRIPT">
    '
    ' For information about this namespace, see 
    '   http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_schema_smtpenvelope.asp
    '
    Const RECIP_LIST = "http://schemas.microsoft.com/cdo/smtpenvelope/recipientlist"
    '
    ' For information about the CdoEventStatus enumeration, see 
    '   http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdosys/html/_cdosys_cdoeventstatus_enum.asp
    '
    Const CDO_RUN_NEXT_SINK = 0
    '
    ' OnArrival sink entry point
    '
    Sub ISMTPOnArrival_OnArrival(ByVal Msg, EventStatus)
      On Error Resume Next
      Dim objFields
      
      Set objFields = Msg.EnvelopeFields
      objFields(RECIP_LIST).Value = FixupRecipList(objFields(RECIP_LIST).Value)
      objFields.Update
      
      Msg.DataSource.Save ' Commit changes
      EventStatus = CDO_RUN_NEXT_SINK
    End Sub
    '
    '  Change any @example.com recipient(s) to bob@company.com
    '
    Function FixupRecipList(strList)
      On Error Resume Next
      Dim strFixedList
      Dim nDomainPart
      Dim nNamePart
      Dim nNextAddress
      strFixedList = strList
      While (InStr(LCase(strFixedList),"@example.com"))
        nDomainPart = InStr(LCase(strFixedList),"@example.com")
        nNamePart = InStrRev(strFixedList,";",nDomainPart)
        nNextAddress = InStr(nDomainPart+Len("@example.com;"),strFixedList,"SMTP:")
        If (0 = nNamePart) Then
          ' @example.com is first name in recipient list
          If (0 = nNextAddress) Then
            ' @example.com is the last name in the recipient list
            strFixedList = "SMTP:bob@company.com;"
          Else
            ' @example.com is not the last name in the recipient list
            strFixedList = "SMTP:bob@company.com;" & Right(strFixedList,Len(strFixedList)-nNextAddress+1)
          End If
        Else
          ' @example.com is not the first name in recipient list
          If (0 = nNextAddress) Then
            ' @example.com is the last name in the recipient list
            strFixedList = Left(strFixedList,nNamePart) & "SMTP:bob@company.com;"
          Else
            ' @example.com is not the last name in the recipient list
            strFixedList = Left(strFixedList,nNamePart) & "SMTP:bob@company.com;" & Right(strFixedList,Len(strFixedList)-nNextAddress+1)
          End If
        End If
      Wend
      FixupRecipList = strFixedList
    End Function
    
    </SCRIPT>
    					
  2. Edite el archivo catchall.vbs para reemplazar apariciones de @ ejemplo.com con @ yourdomain.com, donde yourdomain.com es el dominio desde el que desea redirigir los mensajes de correo electrónico.
  3. Reemplace todas las apariciones de bob@company.com con la dirección SMTP del buzón al que desea redirigir todos los mensajes de correo electrónico para el dominio que especificó en el paso 2.

    Nota La dirección de correo electrónico a la que desea redirigir todo correo debe ser de un dominio diferente del dominio desde el que desea redirigir los mensajes de correo electrónico de. Por ejemplo, si el dominio que especifique en el paso 2 es @ company.com, no puede ser la dirección de correo electrónico que especifique en el paso 3 bob @ company.com. Si los dominios son los mismos, el mensaje repetirá continuamente y finalmente se devolverá al remitente como no entregable.

    Si el destinatario debe tiene una dirección de correo electrónico en el dominio general (el dominio desde el que desea redirigir los mensajes de correo electrónico), como bob@company.com, agregue un dominio adicional como @ company.local a la directiva de destinatario para el usuario y, a continuación, agregar una dirección SMTP de bob@company.local a direcciones de correo electrónico del usuario. La dirección de bob@company.local puede utilizarse como dirección de correo electrónico para especificar en el paso 3.

SMTPReg.vbs

Crear una secuencia de comandos para registrar el receptor de eventos catchall. Para ello, siga estos pasos:
  1. Escriba o pegue el código siguiente en un editor de texto, como el Bloc de notas:
    'THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT 
    'WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, 
    'INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 
    'OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR 
    'PURPOSE
    
    '------------------------------------------------------------------------------
    'FILE DESCRIPTION: Script for registering for SMTP Protocol sinks. 
    '
    'File Name: smtpreg.vbs
    ' 
    '
    ' Copyright (c) Microsoft Corporation 1993-1998. All rights reserved.
    '------------------------------------------------------------------------------
    Option Explicit
    
    '
    '
    ' the OnArrival event GUID
    Const GUIDComCatOnArrival = "{ff3caa23-00b9-11d2-9dfb-00C04FA322BA}"
    ' the SMTP source type
    Const GUIDSourceType = "{FB65C4DC-E468-11D1-AA67-00C04FA345F6}"
    ' 
    Const GUIDCat = "{871736c0-fd85-11d0-869a-00c04fd65616}"
    Const GUIDSources = "{DBC71A31-1F4B-11d0-869D-80C04FD65616}"
    
    ' the SMTP service display name.  This is used to key which service to
    ' edit
    Const szService = "smtpsvc"
    
    ' the event manager object.  This is used to communicate with the 
    ' event binding database.
    Dim EventManager
    Set EventManager = WScript.CreateObject("Event.Manager")
    
    '
    ' register a new sink with event manager
    '
    ' iInstance - the instance to work against
    ' szEvent - OnArrival
    ' szDisplayName - the display name for this new sink
    ' szProgID - the progid to call for this event
    ' szRule - the rule to set for this event
    '
    public sub RegisterSink(iInstance, szEvent, szDisplayName, szProgID, szRule)
    	Dim SourceType
    	Dim szSourceDisplayName
    	Dim Source
    	Dim Binding
    	Dim GUIDComCat
    	Dim PrioVal
    
    	' figure out which event they are trying to register with and set
    	' the comcat for this event in GUIDComCat
    	select case LCase(szEvent)
    		case "onarrival"
    			GUIDComCat = GUIDComCatOnArrival
    		case else
    			WScript.echo "invalid event: " & szEvent
    			exit sub
    	end select
    	' enumerate through each of the registered instances for the SMTP source
    	' type and look for the display name that matches the instance display
    	' name
    	set SourceType = EventManager.SourceTypes(GUIDSourceType)
    	szSourceDisplayName = szService & " " & iInstance
    	for each Source in SourceType.Sources
    		if Source.DisplayName = szSourceDisplayName then
    			' You have found the instance that you want. Now add a new binding
    			' with the right event GUID.  by not specifying a GUID to the
    			' Add method you get server events to create a new ID for this
    			' event
    			set Binding = Source.GetBindingManager.Bindings(GUIDComCat).Add("")
    			' set the binding properties
    			Binding.DisplayName = szDisplayName
    			Binding.SinkClass = szProgID
    			' register a rule with the binding
    			Binding.SourceProperties.Add "Rule", szRule
    			' register a priority with the binding
    			PrioVal = GetNextPrio(Source, GUIDComCat)
    			If PrioVal < 0 then
    				WScript.Echo "assigning priority to default value (24575)"
    				Binding.SourceProperties.Add "Priority", 24575
    			else	
    				WScript.Echo "assigning priority (" & PrioVal & " of 32767)"
    				Binding.SourceProperties.Add "Priority", PrioVal
    			end if
    			' save the binding
    			Binding.Save
    			WScript.Echo "registered " & szDisplayName
    			exit sub
    		end if
    	next
    end sub
    
    '
    ' iterate through the bindings in a source, find the binding
    ' with the lowest priority, and return the next priority value.
    ' If the next value exceeds the range, return -1.
    '
    public function GetNextPrio(oSource, GUIDComCat)
    	' it's possible that priority values will not be
    	' numbers, so you add error handling for this case
    	on error resume next
    
    	Dim Bindings
    	Dim Binding
    	Dim nLowestPrio
    	Dim nPrioVal
    	nLowestPrio = 0
    	set Bindings = oSource.GetBindingManager.Bindings(GUIDComCat)
    	' if the bindings collection is empty, then this is the first
    	' sink. It receives the highest priority (0).
    	if Bindings.Count = 0 then
    		GetNextPrio = 0
    	else
    		' get the lowest existing priority value
    		for each Binding in Bindings
    			nPrioVal = Binding.SourceProperties.Item("Priority")
    			if CInt(nPrioVal) > nLowestPrio then
    				if err.number = 13 then
    					err.clear
    				else
    					nLowestPrio = CInt(nPrioVal)
    				end if
    			end if
    		next 
    		' assign priority values in increments of 10 so priorities
    		' can be shuffled later without the need to reorder all
    		' binding priorities.  Valid priority values are 0 - 32767
    		if nLowestPrio + 10 > 32767 then
    			GetNextPrio = -1
    		else
    			GetNextPrio = nLowestPrio + 10
    		end if
    	end if
    end function  
    
    '
    ' Search for a previously registered sink with the passed in name
    '
    ' iInstance - the instance to work against
    ' szEvent - OnArrival
    ' szDisplayName - the display name of the event to check
    ' bCheckError - Any errors returned
    public sub CheckSink(iInstance, szEvent, szDisplayName, bCheckError)
    	Dim SourceType
    	Dim GUIDComCat
    	Dim szSourceDisplayName
    	Dim Source
    	Dim Bindings
    	Dim Binding
    
    	bCheckError = FALSE
    	select case LCase(szEvent)
    		case "onarrival"
    			GUIDComCat = GUIDComCatOnArrival
    		case else
    			WScript.echo "invalid event: " & szEvent
    			exit sub
    	end select
    
    	' find the source for this instance
    	set SourceType = EventManager.SourceTypes(GUIDSourceType)
    	szSourceDisplayName = szService & " " & iInstance
    	for each Source in SourceType.Sources
    		if Source.DisplayName = szSourceDisplayName then
    			' find the binding by display name.  to do this, enumerate
    			' all of the bindings and try to match on the display name
    			set Bindings = Source.GetBindingManager.Bindings(GUIDComCat)
    			for each Binding in Bindings
    				if Binding.DisplayName = szDisplayName then
    					' you have found the binding, now log an error
    					WScript.Echo "Binding with the name " & szDisplayName & " already exists"
    					exit sub 
    				end if
    			next
    		end if
    	next
    	bCheckError = TRUE
    end sub
    
    '
    ' unregister a previously registered sink
    '
    ' iInstance - the instance to work against
    ' szEvent - OnArrival
    ' szDisplayName - the display name of the event to remove
    '
    public sub UnregisterSink(iInstance, szEvent, szDisplayName)
    	Dim SourceType
    	Dim GUIDComCat
    	Dim szSourceDisplayName
    	Dim Source
    	Dim Bindings
    	Dim Binding
    
    	select case LCase(szEvent)
    		case "onarrival"
    			GUIDComCat = GUIDComCatOnArrival
    		case else
    			WScript.echo "invalid event: " & szEvent
    			exit sub
    	end select
    
    	' find the source for this instance
    	set SourceType = EventManager.SourceTypes(GUIDSourceType)
    	szSourceDisplayName = szService & " " & iInstance
    	for each Source in SourceType.Sources
    		if Source.DisplayName = szSourceDisplayName then
    			' find the binding by display name.  to do this, enumerate
    			' all of the bindings and try to match on the display name
    			set Bindings = Source.GetBindingManager.Bindings(GUIDComCat)
    			for each Binding in Bindings
    				if Binding.DisplayName = szDisplayName then
    					' you have found the binding, now remove it
    					Bindings.Remove(Binding.ID)
    					WScript.Echo "removed " & szDisplayName & " " & Binding.ID
    				end if
    			next
    		end if
    	next
    end sub
    
    '
    ' add or remove a property from the source or sink propertybag for an event
    '
    ' iInstance - the SMTP instance to edit
    ' szEvent - the event type (OnArrival)
    ' szDisplayName - the display name of the event
    ' szPropertyBag - the property bag to edit ("source" or "sink")
    ' szOperation - "add" or "remove"
    ' szPropertyName - the name to edit in the property bag
    ' szPropertyValue - the value to assign to the name (ignored for remove)
    '
    public sub EditProperty(iInstance, szEvent, szDisplayName, szPropertyBag, szOperation, szPropertyName, szPropertyValue)
    	Dim SourceType
    	Dim GUIDComCat
    	Dim szSourceDisplayName
    	Dim Source
    	Dim Bindings
    	Dim Binding
    	Dim PropertyBag
    
    	select case LCase(szEvent)
    		case "onarrival"
    			GUIDComCat = GUIDComCatOnArrival
    		case else
    			WScript.echo "invalid event: " & szEvent
    			exit sub
    	end select
    
    	' find the source for this instance
    	set SourceType = EventManager.SourceTypes(GUIDSourceType)
    	szSourceDisplayName = szService & " " & iInstance
    	for each Source in SourceType.Sources
    		if Source.DisplayName = szSourceDisplayName then
    			set Bindings = Source.GetBindingManager.Bindings(GUIDComCat)
    			' find the binding by display name.  to do this, enumerate
    			' all of the bindings and try to match on the display name
    			for each Binding in Bindings
    				if Binding.DisplayName = szDisplayName then
    					' figure out which set of properties you want to modify
    					' based on the szPropertyBag parameter
    					select case LCase(szPropertyBag)
    						case "source"
    							set PropertyBag = Binding.SourceProperties
    						case "sink"
    							set PropertyBag = Binding.SinkProperties
    						case else
    							WScript.echo "invalid propertybag: " & szPropertyBag
    							exit sub
    					end select
    					' figure out what operation you want to perform
    					select case LCase(szOperation)
    						case "remove"
    							' they want to remove szPropertyName from the
    							' property bag
    							PropertyBag.Remove szPropertyName
    							WScript.echo "removed property " & szPropertyName
    						case "add"
    							' add szPropertyName to the property bag and 
    							' set its value to szValue.  if this value
    							' already exists then this will change  the value
    							' it to szValue.
    							PropertyBag.Add szPropertyName, szPropertyValue
    							WScript.echo "set property " & szPropertyName & " to " & szPropertyValue
    						case else
    							WScript.echo "invalid operation: " & szOperation
    							exit sub
    					end select
    					' save the binding
    					Binding.Save
    				end if
    			next
    		end if
    	next
    end sub
    
    '
    ' this helper function takes an IEventSource object and a event category
    ' and dumps all of the bindings for this category under the source
    '
    ' Source - the IEventSource object to display the bindings for
    ' GUIDComCat - the event category to display the bindings for
    '
    public sub DisplaySinksHelper(Source, GUIDComCat)
    	Dim Binding
    	Dim propval
    	' walk each of the registered bindings for this component category
    	for each Binding in Source.GetBindingManager.Bindings(GUIDComCat)
    		' display the binding properties
    		WScript.echo "    Binding " & Binding.ID & " {"
    		WScript.echo "      DisplayName = " & Binding.DisplayName
    		WScript.echo "      SinkClass = " & Binding.SinkClass
    		if Binding.Enabled = True then
    			WScript.echo "      Status = Enabled"
    		else
    			WScript.echo "      Status = Disabled"
    		end if
    
    		' walk each of the source properties and display them
    		WScript.echo "      SourceProperties {"
    		for each propval in Binding.SourceProperties
    			WScript.echo "        " & propval & " = " & Binding.SourceProperties.Item(propval)
    		next
    		WScript.echo "      }"
    
    		' walk each of the sink properties and display them
    		WScript.echo "      SinkProperties {"
    		for each Propval in Binding.SinkProperties
    			WScript.echo "        " & propval & " = " & Binding.SinkProperties.Item(Propval)
    		next
    		WScript.echo "      }"
    		WScript.echo "    }"
    	next
    end sub
    
    '
    ' dumps all of the information in the binding database related to SMTP
    '
    public sub DisplaySinks
    	Dim SourceType
    	Dim Source
    
    	' look for each of the sources registered for the SMTP source type
    	set SourceType = EventManager.SourceTypes(GUIDSourceType)
    	for each Source in SourceType.Sources
    		' display the source properties
    		WScript.echo "Source " & Source.ID & " {"
    		WScript.echo "  DisplayName = " & Source.DisplayName
    		' display all of the sinks registered for the OnArrival event
    		WScript.echo "  OnArrival Sinks {"
    		call DisplaySinksHelper(Source, GUIDComCatOnArrival)
    		WScript.echo "  }"
    	next
    end sub
    
    '
    ' enable/disable a registered sink
    '
    ' iInstance - the instance to work against
    ' szEvent - OnArrival
    ' szDisplayName - the display name for this new sink
    '
    public sub SetSinkEnabled(iInstance, szEvent, szDisplayName, szEnable)
    	Dim SourceType
    	Dim GUIDComCat
    	Dim szSourceDisplayName
    	Dim Source
    	Dim Bindings
    	Dim Binding
    
    	select case LCase(szEvent)
    		case "onarrival"
    			GUIDComCat = GUIDComCatOnArrival
    		case else
    			WScript.echo "invalid event: " + szEvent
    			exit sub
    	end select
    
    	' find the source for this instance
    	set SourceType = EventManager.SourceTypes(GUIDSourceType)
    	szSourceDisplayName = szService + " " + iInstance
    	for each Source in SourceType.Sources
    		if Source.DisplayName = szSourceDisplayName then
    			' find the binding by display name.  to do this, enumerate
    			' all of the bindings and try to match on the display name
    			set Bindings = Source.GetBindingManager.Bindings(GUIDComCat)
    			for each Binding in Bindings
    				if Binding.DisplayName = szDisplayName then
    					' You have found the binding, now enable/disable it
    					' You do not need "case else' because szEnable's value
    					' is set internally, not by users
    					select case LCase(szEnable)
    						case "true"
    							Binding.Enabled = True
    							Binding.Save
    							WScript.Echo "enabled " + szDisplayName + " " + Binding.ID
    						case "false"
    							Binding.Enabled = False
    							Binding.Save
    							WScript.Echo "disabled " + szDisplayName + " " + Binding.ID
    						end select
    				end if
    			next
    		end if
    	next
    end sub
    
    ' 
    ' display usage information for this script
    '
    public sub DisplayUsage
    	WScript.echo "usage: cscript smtpreg.vbs <command> <arguments>"
    	WScript.echo "  commands:"
    	WScript.echo "    /add <Instance> <Event> <DisplayName> <SinkClass> <Rule>"
    	WScript.echo "    /remove <Instance> <Event> <DisplayName>"
    	WScript.echo "    /setprop <Instance> <Event> <DisplayName> <PropertyBag> <PropertyName> "
    	WScript.echo "             <PropertyValue>"
    	WScript.echo "    /delprop <Instance> <Event> <DisplayName> <PropertyBag> <PropertyName>"
    	WScript.echo "    /enable <Instance> <Event> <DisplayName>"
    	WScript.echo "    /disable <Instance> <Event> <DisplayName>"
    	WScript.echo "    /enum"
    	WScript.echo "  arguments:"
    	WScript.echo "    <Instance> is the SMTP instance to work against"
    	WScript.echo "    <Event> can be OnArrival"
    	WScript.echo "    <DisplayName> is the display name of the event to edit"
    	WScript.echo "    <SinkClass> is the sink class for the event"
    	WScript.echo "    <Rule> is the rule to use for the event"	
    	WScript.echo "    <PropertyBag> can be Source or Sink"
    	WScript.echo "    <PropertyName> is the name of the property to edit"
    	WScript.echo "    <PropertyValue> is the value to assign to the property"
    end sub
    
    
    Dim iInstance
    Dim szEvent
    Dim szDisplayName
    Dim szSinkClass
    Dim szRule
    Dim szPropertyBag
    Dim szPropertyName
    Dim szPropertyValue
    dim bCheck
    
    '
    ' this is the main body of our script.  it reads the command line parameters
    ' specified and then calls the appropriate function to perform the operation
    '
    if WScript.Arguments.Count = 0 then
    	call DisplayUsage
    else 
    	Select Case LCase(WScript.Arguments(0))
    		Case "/add"
    			if not WScript.Arguments.Count = 6 then
    				call DisplayUsage
    			else
    				iInstance = WScript.Arguments(1)
    				szEvent = WScript.Arguments(2)
    				szDisplayName = WScript.Arguments(3)
    				szSinkClass = WScript.Arguments(4)
    				szRule = WScript.Arguments(5)
    				call CheckSink(iInstance, szEvent, szDisplayName, bCheck)
    				if bCheck = TRUE then
    					call RegisterSink(iInstance, szEvent, szDisplayName, szSinkClass, szRule)
    				End if
    			end if
    		Case "/remove"
    			if not WScript.Arguments.Count = 4 then
    				call DisplayUsage
    			else
    				iInstance = WScript.Arguments(1)
    				szEvent = WScript.Arguments(2)
    				szDisplayName = WScript.Arguments(3)
    				call UnregisterSink(iInstance, szEvent, szDisplayName)
    			end if	
    		Case "/setprop"
    			if not WScript.Arguments.Count = 7 then
    				call DisplayUsage
    			else
    				iInstance = WScript.Arguments(1)
    				szEvent = WScript.Arguments(2)
    				szDisplayName = WScript.Arguments(3)
    				szPropertyBag = WScript.Arguments(4)
    				szPropertyName = WScript.Arguments(5)
    				szPropertyValue = WScript.Arguments(6)
    				call EditProperty(iInstance, szEvent, szDisplayName, szPropertyBag, "add", szPropertyName, szPropertyValue)
    			end if
    		Case "/delprop"
    			if not WScript.Arguments.Count = 6 then
    				call DisplayUsage
    			else
    				iInstance = WScript.Arguments(1)
    				szEvent = WScript.Arguments(2)
    				szDisplayName = WScript.Arguments(3)
    				szPropertyBag = WScript.Arguments(4)
    				szPropertyName = WScript.Arguments(5)
    				call EditProperty(iInstance, szEvent, szDisplayName, szPropertyBag, "remove", szPropertyName, "")		
    			end if
    		Case "/enable"
    			if not WScript.Arguments.Count = 4 then
    				call DisplayUsage
    			else
    				iInstance = WScript.Arguments(1)
    				szEvent = WScript.Arguments(2)
    				szDisplayName = WScript.Arguments(3)
    				call SetSinkEnabled(iInstance, szEvent, szDisplayName, "True")
    			end if
    		Case "/disable"
    			if not WScript.Arguments.Count = 4 then
    				call DisplayUsage
    			else
    				iInstance = WScript.Arguments(1)
    				szEvent = WScript.Arguments(2)
    				szDisplayName = WScript.Arguments(3)
    				call SetSinkEnabled(iInstance, szEvent, szDisplayName, "False")
    			end if
    		Case "/enum"
    			if not WScript.Arguments.Count = 1 then
    				call DisplayUsage
    			else
    				call DisplaySinks
    			end if
    		Case Else
    			call DisplayUsage
    	End Select
    end if
    
    					
  2. Guarde el archivo como Smtpreg.vbs .

Removecatchall.cmd

Crear un archivo .cmd para quitar (desinstalar) el receptor de sucesos catchall si piensa que puede que desee quitar de más adelante. Para ello, siga estos pasos:
  1. Escriba o pegue el código siguiente en un editor de texto, como el Bloc de notas:
    cscript smtpreg.vbs /remove 1 onarrival SMTPScriptingCatchAll
    					
  2. Guarde este archivo como Removecatchall.cmd .

    Nota Si desea quitar el receptor de sucesos catchall, puede hacerlo ejecutando Removecatchall.cmd desde un símbolo del sistema.

Registrar el receptor de eventos general

  1. Compruebe que ha creado una cuenta de correo electrónico válida con la que recopilar los mensajes de correo electrónico redirigida.
  2. Ejecute el catchall.cmd desde el directorio que contiene los archivos .vbs que creó.
  3. Reinicie el servicio SMTP en el administrador del sistema de Exchange.
  4. Probar el receptor de sucesos enviando un mensaje de correo electrónico a una dirección de correo electrónico en el dominio general que especificó en el paso 2 de la sección "Catchall.vbs" de este artículo. El mensaje se entrega al buzón del destinatario con la dirección especificada en el paso 3 de esa misma sección del artículo.

Referencias

Para obtener información adicional acerca de cómo obtener el SDK de Exchange 2000, visite el siguiente sitio Web:
http://msdn2.microsoft.com/en-us/library/aa286570.aspx

Propiedades

Id. de artículo: 324021 - Última revisión: lunes, 03 de diciembre de 2007 - Versión: 5.6
La información de este artículo se refiere a:
  • Microsoft Exchange 2000 Server Standard Edition
  • Microsoft Exchange Server 2003 Enterprise Edition
  • Microsoft Exchange Server 2003 Standard Edition
  • Microsoft Windows Small Business Server 2003 Premium Edition
  • Microsoft Windows Small Business Server 2003 Standard Edition
Palabras clave: 
kbmt kbhowtomaster KB324021 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 324021

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