Does this work?
tell application id "DNtp" activate close every think window load workspace "Diaries" end tell