Thursday, September 18, 2008

Adding Entries to the Safe Sender,Safe Recipients and Blocked Senders in Exchange 2007 via a script workaround

The following is an extension to the Junk Mail enable script for 2007 i posted here. Using the same OWA automation workaround this extends the ability of this script to also add entries to the Safe Senders, Safe Recipients and Blocked Sender by re-using the cmds from OWA 2007.

To add these entires the following XML is posted to /ev.owa?oeh=1&ns=JunkEmail&ev=Add

<params><iLT>1</iLT><sNE>" & emEmailAddress & "</sNE><fFrmOpt>1</fFrmOpt></params>

The <iLT>1</iLT> is the only things that changes eg

<iLT>0</iLT> Adds to Safe Senders
<iLT>1</iLT> Adds to Safe Recipients
<iLT>2</iLT> Adds to Blocked Senders

Make sure you read the original post I've linked above which documents the objects used and the potential issue around using this type of method which is just a quick workaround.

I've put a download of this script here the code looks like

snServername = "servername"
mnMailboxname = "mailboxname"
domain = "domain"
strpassword = "password"

Targetmailbox = "mailbox@domain.com"

strusername = domain & "\" & mnMailboxname
szXml = "destination=http://" & snServername & "/owa/&flags=0&username=" & strusername
szXml = szXml & "&password=" & strpassword & "&SubmitCreds=Log On&forcedownlevel=0&trusted=0"


set req = createobject("MSXML2.ServerXMLHTTP.6.0")
req.Open "post", "http://" & snServername & "/owa/auth/owaauth.dll", False
req.SetOption 2, 13056
req.send szXml

reqhedrarry = split(req.GetAllResponseHeaders(), vbCrLf,-1,1)
for each ent in reqhedrarry
wscript.echo ent
Next

Call UpdateJunk(Targetmailbox)
call AddToSafeSenders(Targetmailbox,"address@domain.com")
call AddToBlockedSenders(Targetmailbox,"address@domain.com")
call AddToSafeRecipients(Targetmailbox,"address@domain.com")

Sub UpdateJunk(mbMailbox)

xmlstr = "<params><fEnbl>1</fEnbl></params>"
req.Open "POST", "http://" & snServername & "/owa/" & mbMailbox & "/ev.owa?oeh=1&ns=JunkEmail&ev=Enable", False
req.setRequestHeader "Content-Type", "text/xml; charset=""UTF-8"""
req.setRequestHeader "Content-Length", Len(xmlstr)
req.send xmlstr
wscript.echo req.status
reqhedrarry = split(req.GetAllResponseHeaders(), vbCrLf,-1,1)
for each ent in reqhedrarry
wscript.echo ent
Next
If InStr(req.responsetext,"name=lngFrm") Then
wscript.echo "Mailbox has not been logged onto before via OWA"
'Create a regular expression object
Dim objRegExp
Set objRegExp = New RegExp

objRegExp.Pattern = "<option selected value=""(.*?)"">"
objRegExp.IgnoreCase = True
objRegExp.Global = True

Dim objMatches
Set objMatches = objRegExp.Execute(req.responsetext)
If objMatches.count = 2 then
lcidarry = Split(objMatches(0).Value,Chr(34))
wscript.echo lcidarry(1)
tzidarry = Split(objMatches(1).Value,Chr(34))
wscript.echo tzidarry(1)
pstring = "lcid=" & lcidarry(1) & "&tzid=" & tzidarry(1)
req.Open "POST", "http://" & snServername & "/owa/" & mbMailbox & "/lang.owa", False
req.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
req.setRequestHeader "Content-Length", Len(pstring)
' req.SetRequestHeader "cookie", reqCadata
req.send pstring
if instr(req.responsetext,"errMsg") then
wscript.echo "Permission Error"
else
wscript.echo req.status
If req.status = 200 and not instr(req.responsetext,"errMsg") Then
Call UpdateJunk(mbMailbox)
Else
wscript.echo "Failed to set Default OWA settings"
End if
end if

Else
wscript.echo "Script failed to retrieve default values"
End if
Else
wscript.echo "Junk Mail Setting Updated"
End if
End sub

Sub AddToSafeSenders(mbMailbox,emEmailAddress)

xmlstr = "<params><iLT>1</iLT><sNE>" & emEmailAddress & "</sNE><fFrmOpt>1</fFrmOpt></params>"
req.Open "POST", "http://" & snServername & "/owa/" & mbMailbox & "/ev.owa?oeh=1&ns=JunkEmail&ev=Add", False
req.setRequestHeader "Content-Type", "text/xml; charset=""UTF-8"""
req.setRequestHeader "Content-Length", Len(xmlstr)
req.send xmlstr
wscript.echo req.status
reqhedrarry = split(req.GetAllResponseHeaders(), vbCrLf,-1,1)
for each ent in reqhedrarry
wscript.echo ent
Next
wscript.echo req.responsetext

end Sub

Sub AddToBlockedSenders(mbMailbox,emEmailAddress)

xmlstr = "<params><iLT>2</iLT><sNE>" & emEmailAddress & "</sNE><fFrmOpt>1</fFrmOpt></params>"
req.Open "POST", "http://" & snServername & "/owa/" & mbMailbox & "/ev.owa?oeh=1&ns=JunkEmail&ev=Add", False
req.setRequestHeader "Content-Type", "text/xml; charset=""UTF-8"""
req.setRequestHeader "Content-Length", Len(xmlstr)
req.send xmlstr
wscript.echo req.status
reqhedrarry = split(req.GetAllResponseHeaders(), vbCrLf,-1,1)
for each ent in reqhedrarry
wscript.echo ent
Next
wscript.echo req.responsetext

end Sub

Sub AddToSafeRecipients(mbMailbox,emEmailAddress)

xmlstr = "<params><iLT>3</iLT><sNE>" & emEmailAddress & "</sNE><fFrmOpt>1</fFrmOpt></params>"
req.Open "POST", "http://" & snServername & "/owa/" & mbMailbox & "/ev.owa?oeh=1&ns=JunkEmail&ev=Add", False
req.setRequestHeader "Content-Type", "text/xml; charset=""UTF-8"""
req.setRequestHeader "Content-Length", Len(xmlstr)
req.send xmlstr
wscript.echo req.status
reqhedrarry = split(req.GetAllResponseHeaders(), vbCrLf,-1,1)
for each ent in reqhedrarry
wscript.echo ent
Next
wscript.echo req.responsetext

end Sub

4 comments:

Anonymous said...

How can you add the entries to all mailboxes in Exchange 2007 servers ?? And not just one box...
Thanks!

Br. Toni Tanska, MCP

Glen said...

These are per user setting so this is just a method of setting them on a particular mailbox. If you what system wide whitelists you should be configuing the Anti-spam agents on your hub or edge server see http://exchangepedia.com/blog/2007/01/exchange-2007-content-filter-whitelist.html. The other option is Safelist Aggregation http://technet.microsoft.com/en-us/library/bb125168(EXCHG.80).aspx

Cheers
Glen

Anonymous said...

Thanks.
The problem is that i have added these senders to bypass the content filtering but still they go to the junk-email folder. I think the Outlook (versions 2002 and 2003) spam filters deside that the messages are spam. The hubs i have did have the antispam installed - i did remove the antispam agents earlier, so the messages relayed to the hub from internal servers should not even be scanned, but still the messages go to the junk-email folder. The only sulution i can think of is that all the boxes should be scripted to allow these few addresses... Br, Toni

Anonymous said...

Ok. I will try that. Thank you very much!
Br, Toni