Exchange 서버에 대한 포괄적인"사서함 싱크 만드는 방법

기술 자료 번역 기술 자료 번역
기술 자료: 324021 - 이 문서가 적용되는 제품 보기.
모두 확대 | 모두 축소

이 페이지에서

요약

이 문서에서는 특정 도메인으로 보낸 모든 전자 메일 메시지를 캡처할 이벤트 싱크를 만들고 다음 단일 사서함 직접 방법에 대해 설명합니다.

참고 이 문서에서 설명하는 예제 이벤트 싱크 도메인에 보내는 모든 전자 메일 메시지를 리디렉션합니다. 더 복잡한 이벤트 싱크를 만드는 방법에 대한 자세한 내용은 Exchange 소프트웨어 개발 키트 (SDK)를 참조하십시오.

스크립트 파일 만들기

다음 다섯 개의 스크립트를 만들고 Exchange 컴퓨터의 폴더에 저장하십시오.

Microsoft는 묵시적인 보증 없이 목적으로만 프로그래밍 예제를 제공합니다. 이 포함되지만, 상품성 또는 특정 목적에의 적합성에 대한 묵시적인된 보증이 제한되지 않습니다. 이 문서에서는 만들려면 및 프로시저를 디버깅하는 데 사용되는 도구 및 여기서 설명하는 프로그래밍 언어에 익숙한 사용자를 대상으로 합니다. Microsoft 지원 엔지니어는 사용자에게 도움이 되도록 특정 절차에 대한 기능을 설명할 수 있지만 추가 기능을 제공하거나 특정 요구 사항에 맞도록 프로시저를 구성하지는 이 예제를 수정하지 않습니다.

Catchall.cmd

Catchall.cmd SMTPReg.vbs 스크립트를 호출하는 파일과 Catchall 이벤트 싱크로 등록합니다. 이 .cmd 파일을 만들려면 다음과 같이 하십시오.
  1. 입력하거나 다음 코드를 메모장과 같은 텍스트 편집기에 붙여:
    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
    						
    Catchall 파일의 폴더 위치를 반영하도록 Catchall.vbs 파일에 대한 경로를 노트 수정.
  2. Catchall.cmd 파일을 저장하십시오.

Enum.cmd

Enum.cmd 등록된 이벤트 싱크를 목록 서버에서 실행하십시오. 이 파일을 만들려면 다음과 같이 하십시오.
  1. 입력하거나 다음 코드를 메모장과 같은 텍스트 편집기에 붙여:
    cscript smtpreg.vbs /enum |more
    					
  2. Enum.cmd 파일을 저장하십시오.

Catchall.vbs

Catchall.vbs 스크립트 Catchall 계정을 만드는 데 사용됩니다. 이 파일에 대한 Exchange Server 환경 사용자 지정하십시오.
  1. 입력하거나 메모장 같은 텍스트 편집기에 다음 코드를 붙여 넣습니다. 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. @example.com 항목을 바꿀 함께 @ yourdomain.com, yourdomain.com 전자 메일 메시지를 리디렉션할 도메인 위치.
  3. 2단계에서 지정한 도메인에 대한 모든 전자 메일 메시지를 리디렉션할 사서함의 SMTP 주소 bob@company.com 경우를 모두 바꿉니다.

    참고 전자 메일 메시지를 리디렉션할 도메인이 아닌 다른 도메인에 있는 모든 메일 합니다 리디렉션할 전자 메일 주소 수 있습니다. 예를 들어, 2단계에서 지정한 도메인에 @ company.com 경우 3단계에서 지정한 전자 메일 주소가 될 수 없습니다 bob @ company.com. 동일한 도메인에 있는 경우 메시지를 계속 반복 및 보낸 사람에게 반송됩니다 결국 반환됩니다.

    포괄적인 도메인에서 받는 전자 메일 주소를 사용해야 하는 경우 (전자 메일 메시지를 리디렉션할 도메인), bob@company.com, 같은 사용자, 받는 사람 정책을 같은 추가 도메인 company.local @ 추가 및 다음 사용자의 전자 메일 주소를 bob@company.local SMTP 주소를 추가합니다. bob@company.local 주소는 3단계에서 지정하려면 전자 메일 주소로 사용할 수 있습니다.

SMTPReg.vbs

Catchall 이벤트 싱크를 등록하지 스크립트를 만듭니다. 이렇게 하려면 다음과 같이 하십시오.
  1. 입력하거나 다음 코드를 메모장과 같은 텍스트 편집기에 붙여:
    '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. Smtpreg.vbs 로 파일을 저장하십시오.

Removecatchall.cmd

제거할 .cmd 파일을 만들어 (제거) 나중에 제거해야 할 경우에는 Catchall 이벤트 싱크. 이렇게 하려면 다음과 같이 하십시오.
  1. 입력하거나 다음 코드를 메모장과 같은 텍스트 편집기에 붙여:
    cscript smtpreg.vbs /remove 1 onarrival SMTPScriptingCatchAll
    					
  2. 이 파일을 Removecatchall.cmd 파일로 저장하십시오.

    참고 이를 Catchall 이벤트 싱크 제거할 경우 Removecatchall.cmd 명령 프롬프트에서 실행하여 수행할 수 있습니다.

포괄적인 이벤트 싱크 등록

  1. 리디렉션된 전자 메일 메시지를 수집하는 데 사용하는 유효한 전자 메일 계정을 만든 확인하십시오.
  2. 만든 .vbs 파일을 포함하는 디렉터리에서 다음 Catchall.cmd를 실행하십시오.
  3. Exchange System Manager에서 SMTP 서비스를 다시 시작하십시오.
  4. 이벤트 싱크를 본 이 문서의 "Catchall.vbs" 절의 2단계에서 지정한 포괄적인 도메인의 전자 메일 주소로 전자 메일 메시지를 보내 테스트하십시오. 같은 문서의 구역의 3단계에서 지정한 주소 가진 받는 사람 사서함에 메시지가 배달됩니다.

참조

Exchange 2000 SDK 구하는 방법에 대한 자세한 내용은 다음 Microsoft 웹 사이트를 방문하십시오.
http://msdn2.microsoft.com/en-us/library/aa286570.aspx

속성

기술 자료: 324021 - 마지막 검토: 2007년 12월 3일 월요일 - 수정: 5.6
본 문서의 정보는 다음의 제품에 적용됩니다.
  • 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
키워드:?
kbmt kbhowtomaster KB324021 KbMtko
기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

피드백 보내기

 

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