applescript - Mojave ベータ 10 でメール添付ファイルの AppleScript が機能しない

Question

次のスクリプトは High Sierra では問題なく動作しますが、Mojave ではメール メッセージにファイルを添付できません。メッセージのタイトル、内容、受信者は正しく設定されていますが、添付ファイルは正しく設定されていません。何か案は？

set theAttachment to (choose file with prompt "Select file for attachment...")

tell application "Mail"

    set theMessage to make new outgoing message with properties {visible:true, subject:"File Attachment Test", content:"Some test content" & linefeed & linefeed}

    tell theMessage
        make new to recipient at end of to recipients with properties {name:"John Doe", address:"johndoe@domain.com"}
    end tell

    tell content of theMessage
        make new attachment with properties {file name:theAttachment} at after last paragraph
    end tell

end tell