通过 AppleScript 发送带有附件的电子邮件

Question

所以我希望能够使用 applescript 发送带有附件的电子邮件。我有一位老师经常让我们做实验并要求我们通过电子邮件发送它们，所以我决定结合榛子和 Applescript 来使这更容易。

基本上，当我将文档导出到文件夹中的 pdf 时，榛子会检测到它并将其发送到另一个文件夹，然后该文件夹调用发送带有附件的电子邮件所需的脚本。完成后，淡褐色将文件放回原始文件夹中，并在名称后附加一个 _sent 以便它不会再次发送。（除非文件刚刚导出为 pdf，否则该文件夹始终为空）

我的问题是这些文件没有附加到电子邮件中。（大多数时候我的脚本会出错，说它没有成功运行，但这不是重点）。

我在使用 automator 时遇到了同样的问题，没有附加文件。我尝试了几个代码，但总是遇到同样的问题。发送的电子邮件不附带任何文件。这是代码：

tell application "Finder"
set folderPath to folder "Macintosh HD:Users:user_directory:Desktop:Send_Mail"
set fileList to name of file 1 in folderPath
end tell

set theSubject to fileList
set theBody to "Hello sir. Here is my " & fileList
set theAddress to "Some Email"
set theAttachment to fileList
set theSender to "Some Sender"

tell application "Mail"
set theNewMessage to make new outgoing message with properties {subject:theSubject,         content:theBody & return & return, visible:true}
    tell theNewMessage
    set visibile to true
    set sender to theSender
    make new to recipient at end of to recipients with properties {address:theAddress}
    try
        make new attachment with properties {file name:fileList} at after the last word of the last paragraph
        set message_attachment to 0
        log "message_attachment = " & message_attachment
    on error
        set message_attachment to 1
    end try
    #tell content
    #   make new attachment with properties {file name:theAttachment, path:fileList}

    #end tell
    #send
    end tell
end tell

我在事件日志中得到的唯一消息是“缺失值”。我不明白可能会丢失什么。

Answer 1

您正在混淆文件名和文件路径 -附件的文件名属性是要附加的文件。您还应该在 try 语句中记录任何错误，以便您可以看到它是什么 - 例如，您将在尝试使用 Finder 引用而不是别名作为附件时遇到错误。

tell application "Finder"
    set folderPath to folder "Macintosh HD:Users:user_directory:Desktop:Send_Mail:"
    set theFile to first file in folderPath as alias
    set fileName to name of theFile
end tell

set theSubject to fileName
set theBody to "Hello sir. Here is my " & fileName
set theAddress to "Some Email"
set theAttachment to theFile
set theSender to "Some Sender"

tell application "Mail"
    set theNewMessage to make new outgoing message with properties {subject:theSubject, content:theBody & return & return, visible:true}
    tell theNewMessage
        set visibile to true
        set sender to theSender
        make new to recipient at end of to recipients with properties {address:theAddress}
        try
            make new attachment with properties {file name:theAttachment} at after the last word of the last paragraph
            set message_attachment to 0
        on error errmess -- oops
            log errmess -- log the error
            set message_attachment to 1
        end try
        log "message_attachment = " & message_attachment
        #send
    end tell
end tell