Someone care to validate this works as expected. In my limited tests, it seemed to work.

GetExchangeServer() -
http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=204696&Main=204696#Post204696