使用AppleScript将邮件消息设置为纯文本

我有一个AppleScript，它可以很好地整理信息，并创建带有附件的电子邮件

我找不到脚本将消息格式设置为接收收件箱所需的“纯文本”（而不是默认的“富文本”）的方法

---

是否有AppleScript方法（或技巧）将消息格式设置为“纯文本”

在脚本中创建消息的部分之前，添加这一行

 tell application "Mail" to set default message format to plain text

在脚本的最后添加此项以重置值

 tell application "Mail" to set default message format to rich text

---

我在试图解决这个问题时发现了这个问题。最后，我提出了以下解决方案：

tell application "Mail"
    set newMessage to make new outgoing message 
        with properties {visible:true,
                         subject:"message title",
                         sender:"sender@from.address",
                         content:mailBody}
    tell newMessage
        make new to recipient with properties {address:"mail@recipient.com"}
    end tell
    activate
end tell

tell application "System Events"
    click menu item "Make Plain Text" of ((process "Mail")'s (menu bar 1)'s (menu bar item "Format")'s (menu 1))
end tell

希望有人会发现这有用，我知道我会在几个小时前

---

这在Mail版本7.3和12.4上进行了测试。较新或较旧版本可能需要不同的菜单标题。

您可以使用键盘快捷键⌘按住shift键t同时将消息格式更改为

纯文本

：

tell application "System Events" to keystroke "t" using {command down, shift down}

---

在Mail版本12.4中测试

不幸的是，这给了我一个AppleScript错误

Mail得到一个错误：无法将字符串设置为常量。

您是否尝试过自己运行该命令？我在10.6.8和Mail 4.5上都能使用它。我在10.8.1上运行Mail版本6.0。根据你的线索翻阅AppleScript字典后，我发现格式似乎已从

将默认消息格式设置为纯文本

更改为

将默认消息格式设置为纯文本

，然后将编译并运行-但不幸的是，消息仍为富文本。因此，您可以运行纯文本脚本，然后创建新消息，在正文中键入一些单词，突出显示它们，然后点击命令B使它们加粗？是的，即使我设置为纯文本，然后创建它仍然以富文本发送的消息。这是没有任何'编辑'的邮件消息对我来说。如果我检查AppleScript发送的邮件的邮件头，它们将包含

内容类型：TEXT/HTML。标题将仅包含
内容类型：text/plain如果我从Mail.app中选择纯文本手动发送邮件。