E-mail Files

Summary: Creates a new message in Mail with the selected files attached.
Requires: EagleFiler, Apple Mail
Install Location: ~/Library/Scripts/Applications/EagleFiler/
Last Modified: 2019-10-02

Description

Creates a new message in Mail with the selected files attached. The files’ notes are added to the body of the message.

Installation Instructions · Download in Compiled Format · Download in Text Format

Script

set _body to ""
set _includeNotes to true
tell application "EagleFiler"
    tell browser window 1
        set _records to selected records
        set _files to {}
        repeat with _record in _records
            copy file of _record to end of _files
            if _includeNotes then
                set _body to _body & _record's note text & return
            end if
        end repeat
    end tell
end tell
tell application "Mail"
    make new outgoing message with properties {visible:true}
    tell the result
        set content to _body
        try -- based on iPhoto script
            set _signature to the message signature
            name of _signature
            set _useSignature to true
        on error
            set _useSignature to false
        end try
        repeat with _file in _files
            make new attachment at end with properties {file name:_file's POSIX path}
        end repeat
        if _useSignature is true then
            set message signature to _signature
        end if
    end tell
end tell