Methods
GetItem | Get specified item. |
PutItem | Put specified item. |
RemoveItem | Remove specified item. |
Properties
Content | Encoded content of filter. |
Remarks
MailFilter object presents a customized domain or user rule.
Usage Example
Function fnGetRules( Byref oFilter ) Dim i, nCount, s, name, actionType arCondition = Array( "From Header", "To/Cc Header", "Subject", "Headers", "Body Text", "Attachment Name", "Message Body" ) arNames = Array( "from", "to", "subject", "headers", "bodytext", "attachments", "messagebody" ) s = "If ... " & Chr(13) & Chr(10) & Chr(13) & Chr(10) nCount = UBound(arNames) For i = LBound(arNames) To nCount name = arNames(i) If oFilter.GetItem( name ) <> "" Then s = s & " " & arCondition(i) & " " & oFilter.GetItem( name ) & _ ": " & oFilter.GetItem( name & ":content" ) & _ Chr(13) & Chr(10) End If Next s = s & Chr(13) & Chr(10) s = s & "Then ... " & Chr(13) & Chr(10) & Chr(13) & Chr(10) s = s & " " actionType = oFilter.GetItem("actionType") If actionType = "cc" Then s = s & "Send a copy of message to: " & oFilter.GetItem("actionType:content") ElseIf actionType = "forward" Then s = s & "Forward message to: " & oFilter.GetItem("actionType:content") ElseIf actionType = "bounce" Then s = s & "Bounce message" ElseIf actionType = "delete" Then s = s & "Delete message" Else s = s & "End to call next rules" End If fnGetRules = s End Function Dim server, user, password, requestAddr server = "localhost" user = "hunter@emailarchitect.net" password = "mypassword" requestAddr = "192.168.0.1" Dim oSvr Set oSvr = CreateObject("EmailArchitectObjects.ServerRoot") r = oSvr.Connect( server, user, password, 0, requestAddr ) If r <> 0 Then WScript.Echo( "connect server failed!" ) WScript.Quit End If Dim oDomains, oDomain Set oDomains = oSvr.DomainCollection Set oDomain = oDomains.Items(CStr(oSvr.Domain)) Dim oFilters, oFilter Set oFilters = oDomain.IncomingFilters 'enumerate all incoming filters of current domain Dim i, nCount nCount = oFilters.Count For i = 0 To nCount-1 Set oFilter = oFilters.Items(CLng(i)) WScript.Echo( fnGetRules( oFilter )) Next