在不打开 mail.app 的情况下从剪贴板发送电子邮件 - 有条件

Question

我问了Send email from clipboard without opening mail.app的问题并得到了代码

set a to "myemail@mail.com"
tell application "Mail"
    tell (make new outgoing message)
        set subject to (the clipboard)
        set content to "content"
        make new to recipient at end of to recipients with properties {address:a}
        send
    end tell
end tell

现在我想知道，我怎么能有一个脚本来做同样的事情，但是这样修改它：如果主题是前 10 个单词，并且如果剪贴板超过 10 个单词，那么剪贴板被切断了。例如像这样“你好宝贝这是一个长消息发送... [见注释]”然后整个消息（即“你好宝贝这个是与我的新电子邮件一起发送的长消息，再见。”）在电子邮件的内容中。

Answer 1

将脚本中的set subject ... 和set content ... 行替换为以下内容：

如果（（剪贴板）的字数）大于 10 则 将 oldDelims 设置为 AppleScript 的文本项分隔符 将 AppleScript 的文本项分隔符设置为“” 将主题设置为 (((剪贴板) 的第 1 到 10 个单词) & "... [see notes]") 作为文本 将 AppleScript 的文本项分隔符设置为 oldDelims 将内容设置为（剪贴板） 别的 设置主题（剪贴板） 将内容设置为“内容” 万一

参考链接：

• count of gives the number of elements in a list
• words of splits a text string into a list, with each element representing a word
• AppleScript's text item delimiters can be manipulated to help split and join lists with different delimiters
• the through keyword can be used to get a subrange of items from a list

---

@adayzdone 有一个好处 - 有时使用 words of 将字符串拆分为列表，然后使用 text item delimiters 重新组装可能会弄乱输入数据。你可以这样做：

将 oldDelims 设置为 AppleScript 的文本项分隔符 将 AppleScript 的文本项分隔符设置为“” 将 cblist 设置为（剪贴板）的文本项 将 AppleScript 的文本项分隔符设置为 oldDelims 如果（cblist 的计数）大于 10，则 将 oldDelims 设置为 AppleScript 的文本项分隔符 将 AppleScript 的文本项分隔符设置为“” 将主题设置为 ((cblist 的项目 1 到 10) & "... [see notes]") 作为文本 将 AppleScript 的文本项分隔符设置为 oldDelims 将内容设置为（剪贴板） 别的 设置主题（剪贴板） 将内容设置为“内容” 万一