Items Property

Get/Set specified MailFilter object.

Data Type: Object - read-only

Usage Example

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 oUsers, oUser
Set oUsers = oDomain.UserCollection
Set oUser = oUsers.Items(CStr(oSvr.User))

Dim oFilters, oFilter
Set oFilters = oUser.FilterCollection
Set oFilter = CreateObject("EmailArchitectObjects.MailFilter")

'add a filter named "my filter". 
'If "subject" contains "delivery report" Then
'  this email will be deleted.
'End If
oFilter.PutItem "name", "my filter" 
oFilter.PutItem "subject", "contains"
oFilter.PutItem "subject:content", "delivery report"
oFilter.PutItem "subject:matchcase", ""
oFilter.PutItem "actionType", "delete"

oFilters.Items("") = oFilter
oFilters.Update

See Also

MailFilter