Следующий скрипт прекрасно работает в High Sierra, но не может прикрепить файлы к почтовому сообщению в Мохаве. Название сообщения, содержание и получатель установлены правильно, но не вложение. Есть идеи?
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