期限迄に終わらなかったタスクの期限を明日に設定(延期)するスクリプト。
期限迄に終わらせろよという突っ込みは無しで・・・。
tell application "OmniFocus" tell front document tell document window 1 set theSelectedItems to selected trees of content set tomorrow to (current date) + 1 * days repeat with theItem in theSelectedItems set theTask to value of theItem set dueDate to due date of theTask if dueDate is not missing value then if dueDate < tomorrow then set due date of theTask to tomorrow end if end if end repeat end tell end tell end tell