Send Link From Firefox to Mail.app

I know there's a "send link" command in Firefox, but for some reason it doesn't work.

I just checked with the French version of Firefox 3.5.3. On my computer, the “send link” command (« Envoyer un lien vers la page… » in French) works perfectly well in Snow Leopard.

Nevertheless, the following script should do what you are asking for:

tell application "Firefox" to activate
tell application "System Events"
keystroke "l" using {command down} -- select the URL
delay 0.25
keystroke "c" using {command down} -- copy the URL to the clipboard
end tell
delay 0.25
tell application "Mail"
set newMessage to make new outgoing message with properties {content:(the clipboard) & return & return, visible:true}
activate
end tell

If you wish to improve the above script, you might have a look at the example script “Create New Message.scpt” in the folder “Library/Scripts/Mail Scripts” of your Macintosh HD.

Message was edited by: Pierre L. — added two “delay 0.25” (hoping it will work properly now)