Setting Outlook 2003 Junk Email Options Programmatically

Exchange 2003 운영하다 보면 사용자가 스팸메일이 많이 들어 온다는 불만이 많다. 스팸메일을 100% 차단한다는 것은 불가능한게 사실이나 사용자의 스팸이 관리되고 있다는 최소한의 만족감을 전해 줄 필요가 있다.
최소한의 Action이라면 스팸일 가능성이 있는 메일을 정크메일 폴더로 옮겨 놓는 그런...
최초에 사용자를 생성하면 정크메일 필터링 기능이 disabled되어 있어 강제로 enable시켜줄 필요가 있다. 대개 옵션을 열어 보지 않는 게 인지상정이라 강제로 해 주고 싶은게 사실이다.

OWA Command를 사용하여 정크메일 필터링을 사용하게 해 보자.
사용자가 많은 경우 작업 후 서버를 재시작하길 권장(?)한다.

RAM FileName : JunkTurnOn.VBS
xmlstr = ""
xmlstr = xmlstr & "Cmd=options" & vbLf
xmlstr = xmlstr & "junkemailstate=1" & vbLf
xmlstr = xmlstr & "cmd=savejunkemailrule" & vbLf
Set ObjxmlHttp = CreateObject("Microsoft.XMLHTTP")
ObjxmlHttp.Open "POST", "http://server/exchange/mailbox/UserEmailAddress", False,
"UserEmailAddress", "password"
ObjxmlHttp.setRequestHeader "Accept-Language:","en-us"
ObjxmlHttp.setRequestHeader "Content-type:","application/x-www-UTF8-encoded"
ObjxmlHttp.setRequestHeader "Content-Length:", Len(xmlstr)
ObjxmlHttp.Send xmlstr
Wscript.echo ObjxmlHttp.responseText