applescriptで下書きメールを保存する

メールを作成した後、送信せずにしばらく待つとメールが下書きに保存される。明示的に下書きに保存する方法は見つからなかった。

set theToAddress to "[e-mail]"
set theSubject to "メールタイトル"
set theBody to "メール本文"

tell application "Mail"
    -- メール作成
    set newMessage to make new outgoing message with properties {subject:theSubject, content:theBody}

    tell newMessage
        --受取人の指定
        make new to recipient at end of to recipients with properties {address:theToAddress}

        --メール送信しない
        --send
    end tell
end tell