Nasýl yapýlýr: Exchange Server için bir "kapsamlý" posta kutusu havuzu oluþturma

Bu makalede, belirli bir etki alanýna gönderilen tüm e-posta iletilerini yakalamak için bir olay havuzu oluþturmak ve sonra bunlarý tek bir posta kutusuna yönlendirir.

Not Bu makalede açýklanan örnek olay havuzu bir etki alanýna gönderilen tüm e-posta iletilerini yeniden yönlendirir. Daha karmaþýk olay havuzlarýný oluþturma hakkýnda daha fazla bilgi için Exchange Software Development Kit'e (SDK) bakýn.

Komut dosyalarýný oluþturma

Aþaðýdaki beþ komut dosyalarý oluþturmak ve bunlarý Exchange bilgisayarýndaki bir klasörde saklamak.

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler.

Catchall.cmd

Catchall.cmd dosya SMTPReg.vbs komut dosyasýný çaðýrýr ve Catchall olay havuzunu kaydeder. Bu .cmd dosyasýný oluþturmak için aþaðýdaki adýmlarý izleyin:

1. Aþaðýdaki kodu Not Defteri gibi bir metin düzenleyicisine yapýþtýrýn veya yazýn:

   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
   						

   Not Catchall dosyalarýnýn klasör konumunu yansýtacak þekilde Catchall.vbs dosyasýnýn yolunu Deðiþtir.
2. Dosyayý Catchall.cmd kaydedin.

Enum.cmd

Enum.cmd, sunucuda kayýtlý listesi olay havuzlarýný için çalýþtýrýn. Bu dosyayý oluþturmak için <a0></a0>, aþaðýdaki adýmlarý izleyin:

1. Aþaðýdaki kodu Not Defteri gibi bir metin düzenleyicisine yapýþtýrýn veya yazýn:

   cscript smtpreg.vbs /enum |more
   					

2. Dosyayý Enum.cmd kaydedin.

Catchall.vbs

Komut dosyasý Catchall.vbs Catchall hesabý oluþturmak için kullanýlýr. Bu dosya için Exchange Server Ortamý özelleþtirin.

1. Aþaðýdaki kodu Not Defteri gibi bir metin düzenleyicisine yapýþtýrýn veya yazýn. Bu dosyayý Catchall.vbs kaydedin.

   <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. Catchall.vbs dosya ile @ yourdomain.comyourdomain.com e-posta iletilerini yeniden yönlendirmek istediðiniz etki alaný olduðu.
3. Adým 2'de belirtilen etki alanýnýn tüm e-posta iletilerini yeniden yönlendirmek istediðiniz posta kutusunun <a1>SMTP</a1> adresli bob@company.com tüm tekrarlarýný deðiþtirmek.
   
   Not Gelen e-posta iletilerini yeniden yönlendirmek istediðiniz etki alanýný farklý bir etki alanýndaki tüm posta gerekir yeniden yönlendirmek istediðiniz e-posta adresi olabilir. Örneðin, 2 numaralý adýmda belirttiðiniz etki alaný company.com ise, 3. adýmda belirttiðiniz e-posta adresini olamaz bob @ company.com. Etki alanlarý aynýysa, ileti sürekli döngü ve sonuçta teslim edilemez olarak gönderene döndürülür.
   
   Alýcýnýn e-posta adresi kapsamlý bir etki alanýnda olmasý gerekiyorsa (e-posta iletilerini yeniden yönlendirmek istediðiniz etki alanýnda) bob@company.com gibi bir ek etki alaný gibi @ company.local kullanýcý için bir alýcý ilkesi ekleyin ve sonra da kullanýcýnýn e-posta adreslerine bob@company.local bir SMTP adresi ekleyin. 3. Adýmda belirtmek için adresi bob@company.local sonra e-posta adresi olarak kullanýlabilir.

SMTPReg.vbs

Catchall olay havuzunu kaydetmek için bir komut dosyasý oluþturun. Bunu yapmak için þu adýmlarý izleyin:

1. Aþaðýdaki kodu Not Defteri gibi bir metin düzenleyicisine yapýþtýrýn veya yazýn:

   '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. Dosyayý smtpreg.vbs kaydedin.

Removecatchall.cmd

Kaldýrmak için bir .cmd dosyasý oluþturun (kaldýrma) daha sonra kaldýrmak isteyebilirsiniz düþünüyorsanýz Catchall olay havuzu. Bunu yapmak için þu adýmlarý izleyin:

1. Aþaðýdaki kodu Not Defteri gibi bir metin düzenleyicisine yapýþtýrýn veya yazýn:

   cscript smtpreg.vbs /remove 1 onarrival SMTPScriptingCatchAll
   					

2. Bu dosyayý Removecatchall.cmd kaydedin.
   
   Not Olay havuzunu Catchall kaldýrmak isterseniz, bunu bir komut isteminden Removecatchall.cmd çalýþtýrarak yapabilirsiniz.

Kapsamlý bir olay havuzunu kaydetme

1. Yeniden yönlendirilen e-posta iletileri toplamak için bir geçerli bir e-posta hesabýnýzla oluþturduðunuz doðrulayýn.
2. Catchall.cmd oluþturduðunuz .vbs dosyalarýný içeren dizinden çalýþtýrýn.
3. SMTP hizmeti, Exchange Sistem Yöneticisi'nde yeniden baþlatýn.
4. E-posta adresi, bu makalenin "Catchall.vbs" Bölüm 2 numaralý adýmda belirttiðiniz etki alaný kapsamlý olarak bir e-posta iletisi göndererek olay havuzunu sýnama. Iletinin, ayný makale bölümünün 3. adýmda belirttiðiniz adresle alýcýnýn posta kutusuna teslim edilir.

Exchange 2000 SDK'ü edinme hakkýnda ek bilgi için aþaðýdaki Microsoft Web sitesini ziyaret edin: