Set sh = CreateObject("WScript.Shell")
sh.Run("mailto:")