How to add Files from Finder to Evernote and keep a permanent relation

As a follow-up to my post on how to automatically add files to Evernote, keeping persistent links, here is a slightly reworded automator workflow that I use to do the same thing: Mark one or multiple files in Finder and then Hit Cmd-E to have them added to Evernote’s Inbox, while at the same time having those notes in Evernote contain hyperlinks to the original file which are persistent even if the original file is moved around.

So without further ado, here’s the script (it again, optionally, uses Growl):

(*

	Append a file to Evernote as it is added to a folder

*)
use scripting additions
use framework "Quartz"

--
-- Configuration: Target Notebook
--
property theNotebook : "[Inbox]"

--
-- Configuration: Growl app Name and Notification Title
--
property theApp : "File Appender"
property theNotification : "File added"
property isGrowlRunning : false




(*
  ======================================
  // Import the File
  ======================================  
*)
on run {input, parameters}
	my registerGrowl()
	
	repeat with theFile in input
		set the aFilePath to theFile as text
		tell application "Finder" to set aFileName to name of alias aFilePath
		tell application "System Events" to set aFileURL to URL of alias aFilePath
		
		-- Utilize NSURL to get a persistent reference
		set aRef to (current application's class "NSURL"'s URLWithString:aFileURL)
		set aRef to aRef's fileReferenceURL()'s absoluteString() as text
		set aFileURL to aRef
		
		-- Display the file we are going to add
		displayMessage("Adding " & aFileName)
		
		tell application "Evernote"
			try
				-- Create a note with a dummy HTML, since file:// will be removed by Evernote at this stage
				set aNote to create note title aFileName with html "" & aFileName & "

" notebook theNotebook -- Get back the HTML Content of the newly created note set aNoteHTML to (HTML content of item 1 of aNote) -- Replace the dummy HTML by the link of to the file set aEditHTML to my replaceString(aNoteHTML, "http://www.google.com", aFileURL) -- Replace the HTML content into the note set (HTML content of item 1 of aNote) to aEditHTML -- Append the actual file to the note tell aNote to append attachment aFilePath on error error_message number error_number if the error_number is equal to 4 then displayMessage("Your Evernote account does not support the import of this type of file.") else displayMessage("Import into Evernote failed: " & "Error(" & error_number & "): " & error_message) end if end try end tell end repeat end run (* ====================================== // Display a Message ====================================== *) on displayMessage(aMessage) if my isGrowlRunning then tell application id "com.Growl.GrowlHelperApp" notify with name theNotification title theNotification description aMessage application name theApp end tell else display alert theApp message aMessage as warning end if end displayMessage (* ====================================== // Connect to Growl ====================================== *) on registerGrowl() tell application "System Events" set isGrowlRunning to (count of (every process whose bundle identifier is "com.Growl.GrowlHelperApp")) > 0 end tell if isGrowlRunning then tell application id "com.Growl.GrowlHelperApp" set the allNotificationsList to {theNotification} set the enabledNotificationsList to {theNotification} register as application theApp all notifications allNotificationsList default notifications enabledNotificationsList icon of application "Script Editor" end tell end if end registerGrowl (* ====================================== // Replace String ====================================== *) on replaceString(theString, theOriginalString, theNewString) set {od, AppleScript's text item delimiters} to {AppleScript's text item delimiters, theOriginalString} set theStringParts to text items of theString if (count of theStringParts) is greater than 1 then set theString to text item 1 of theStringParts as string repeat with eachPart in items 2 thru -1 of theStringParts set theString to theString & theNewString & eachPart as string end repeat end if set AppleScript's text item delimiters to od return theString end replaceString

This script is pasted into Automator like so:

Bildschirmfoto 2016-01-14 um 11.38.32

And it is bound to Cmd+E using Better Touch Tool, like so:

 

Bildschirmfoto 2016-01-14 um 11.40.19

Share