Right click send to mail?

Question

Is there a way to right click a file and have an option that will attach it to a new email?
Is there a way to add more files to the same email using the above technique?
Even better would be if I could right click on the Safari Downloads window and send files from their to an email.

Answer 1

....and here is another. This is the one I modified from one of Apples example scripts. What you need to do is start Automator, (in your Applications folder).
From the Actions menu, choose Utilities, then double click *Run Applescript*. A window will pop into the right hand pane.
Highlight the following from that pane; (* Your script goes here *), and replace it with the text that you see below, but +only up to the end of the line where it says end run+.
on run {input, parameters}
-- Prompt for whether an attachment is desired. If so, prompt for the location of the file.
set theResult to display dialog "Would you like to attach this file to a message?" buttons {"Yes", "No"} default button 1
set wantsAttachment to button returned of theResult
if wantsAttachment is equal to "Yes" then
set theAttachment to choose file
end if
-- Repeat this loop until the text entered has been changed from the default example text.
-- Email address validation could be done at this point.
repeat
set theResult to display dialog "Who should it go to?" default answer "Example: [email protected]"
set theAddress to text returned of theResult
if (theAddress does not start with "Example:") then
exit repeat
end if
end repeat
-- Prompt for message subject
set theResult to display dialog "What would you like the subject of the message to be?" default answer "This is the document I promised you"
set theSubject to text returned of theResult
-- Go through each account and constuct a list of possible addresses
-- to use as a return address for this message.
tell application "Mail"
set listOfSenders to {}
set everyAccount to every account
repeat with eachAccount in everyAccount
set everyEmailAddress to email addresses of eachAccount
if (everyEmailAddress is not equal to missing value) then
repeat with eachEmailAddress in everyEmailAddress
set listOfSenders to listOfSenders & {(full name of eachAccount & " <"Which account would you like to send this message from?" without multiple selections allowed
if theResult is not equal to false then
set theSender to item 1 of theResult
tell application "Mail"
-- Properties can be specified in a record when creating the message or
-- afterwards by setting individual property values.
set newMessage to make new outgoing message with properties {subject:theSubject & return & return}
tell newMessage
-- Default is false. Determines whether the compose window will
-- show on the screen or whether it will happen in the background.
set visible to true
set sender to theSender
make new to recipient at end of to recipients with properties {address:theAddress}
tell content
if (wantsAttachment is equal to "Yes") then
-- Position must be specified for attachments
make new attachment with properties {file name:theAttachment} at after the last paragraph
end if
end tell
end tell
-- Bring the new compose window to the foreground, in all its glory
activate
end tell
end if
return input
end run
Now press ⌥⌘S to save the action as a finder plug in, call it something like +Add this attachment to.........+
You should now be able to right click a document and in the menu that appears, choose, More, followed by Automator, then +Add this attachment.........+
You can play around with it and modify the text and include or remove actions if you like.