applescript - 邮件附件的 AppleScript 在 Mojave beta 10 中不起作用

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