Mail.app 的 applescript 可以复制外发邮件并作为新格式的邮件发送

Question

因此，我一直在寻找一种方法，在 Mail.app 中使用 AppleScript 按顺序执行以下操作：

1. 拦截传出消息（我们称其为“A”）
2. 制作并精确复制消息（我们称其为“B”）传出消息“A”
3. 格式化该新制作的消息（“B”）的文本/内容等
4. 发送该新格式化的消息（“B”），
5. 忽略原始消息（“A”）。

为什么我要做一些看起来如此迟钝的事情？

• Apple 的 Mail.app 令人惊讶的是不会格式化您的邮件的传出内容。< /a>
• 通过执行基本消息>偏好>等等，它仅更改您通过Mail.app看到的消息的字体样式。当您的收件人收到消息时，选择的字体是客户端的默认字体（对于 Outlook 等客户端来说，可能是令人讨厌的 Times New Roman）。

那么为什么不直接要求一个 Applescript 来直接格式化您的外发消息呢？

• （现在我们要做的事情...）
• Apple 不允许我们将当前发出的消息作为对象来获取，这是愚蠢的。
• 然而，Apple 确实允许我们通过对象获取“新创建的消息”（通过创建新的传出消息）。

仍在学习 Applescript 的使用方法，因此，如果有人可以编写一个执行请求的 AppleScript，我将不胜感激。

我的目的是当我点击“发送消息”（通过可爱的键盘大师）时触发Applescript。

这是我可以想出的Applescript框架代码：

set theFont to "Lucida Sans, Lucida Sans Unicode, Lucida Grande, Verdana, Arial"
set theSize to 12
tell application "Mail"
    -- 1. intercept an outgoing message
    set outMsg to front outgoing message


    -- 2. make and exact duplicate of this outgoing message
    -- need a little help with extracting...
            set fmtMsg to make new outgoing message with properties 
        {   sender:,
            subject:”Convert”, 
            content:”Please convert and send”
            message signature:,
            to recipient:,
            cc recipient:,
            bcc recipient:
        }


    tell fmtMsg
                    -- 3. format the text/content etc of this newly made message
        set font of content to theFont
        set size of content to (theSize)
        -- set visible to true

                    -- 4. send this newly formatted message
        send

                    -- 5. disregard the original one.
                    -- help?
    end tell


end tell

干杯。

Answer 1

我没有太多使用邮件，但我编写了一个应该完成这项工作的脚本...

set the mail_recipient to the text returned of (display dialog "To:" default answer "")
set the mail_subject to the text returned of (display dialog "Subject:" default answer "")
set the mail_content to the text returned of (display dialog "Enter your message here (for a new line type \"\\n\"):" default answer "")
set prevTIDs to AppleScript's text item delimiters
set AppleScript's text item delimiters to "\\" & "n"
set this_text to every text item of the mail_content
set AppleScript's text item delimiters to return
set the mail_content to this_text as string
tell application "Mail"
    tell (make new outgoing message with properties {visible:true, subject:mail_subject, content:mail_content})
        make new to recipient at the end of to recipients with properties {address:mail_recipient}
        send
    end tell
end tell

我没有在脚本中添加错误检查（检查收件人的有效地址）。

正如您所说，您无法更改收件人的字体；这可能会被视为骚扰。

如果这个脚本不令人满意，请告诉我，我会为您更改。 :)

更新： 我刚刚阅读了有关在 Mail 中使用 AppleScript 的内容，并且刚刚意识到 Mail 对于 AppleScript 有巨大的限制。我认为最好的选择是使用 GUI 脚本。这个脚本有点hacky，但它应该可以工作。

tell application "System Events" to tell process "Mail" to set the mail_subject to (get the value of the first text box)
tell application "Mail" to set this_message to the content of the first message of mailbox "Sent" whose subject is the mail_subject

更新2：

tell application "System Events"
    tell process "Mail"
        set the mail_recipient to (get the value of the first text field)
        set the mail_subject to (get the value of the fourth text field)
        set the mail_content to (get the value of the last text field)
        my create_new_message(mail_recipient, mail_subject, mail_content)
    end tell
end tell

on create_new_message(recipient, subject, content)
    tell application "Mail"
         quit saving no
         activate
         tell (make new outgoing message with properties {subject:|subject|, content:|content|)
             make new recipient at the end of to recipients with properties {address:|recipient|}
             send
         end tell
    end tell
end create_new_message