Thanks Greg. I tried copying and pasting your Feb. script into AppleScript. Replaced my existing script. Made sure my context was top level and matched script. Made sure my outbox rule was pointing at the correct script.
Nothing in Growl and no messages to OF inbox. Like I said, it just stopped working. Everything was fine, and then it quit. I can't figure it out, and really don't know where to start. Thanks, Brett |
Did you change the location of the script? In Mountain Lion the Mail scripts activated by a rule must be located in ~/Library/Application Scripts/com.apple.mail
|
Here is the script that I am using now-should be the same as the one I posted in February but perhaps I did make a tweak or two that I don't remember to make it ML compatible.
[code] (* Waiting For Mails to OmniFocus Script by simplicityisbliss.com, Sven Fechner MailTags project and due date compatibility added by Scott Morrison, Indev Software Based on an Outbox Rule (Mail Act-On) in Mail.app this script adds specific messages to the OmniFocus Inbox with the waiting for context MailTags is required to automatically set the project and the due date. Mail Act-On (www.indev.ca) is required to define the Outbox Rule to only create tasks for those outgoing emails that are to be tracked in OmniFocus A sample Outbox rule may be if MailTags Tickle Date is After 0 days today Run Apple Script: [ThisAppleScript] The script uses Growl from the App Store for feedback notification if it is installed and running *) --!! EDIT THE PROPERTIES BELOW TO MEET YOUR NEEDS !!-- -- Do you want the actualy mail body to be added to the notes section of the OmniFocus task? -- Set to 'true' is or 'false' if no property mailBody : true -- Text between mail recipient (the person you are waiting for to come back) and the email subject property MidFix : "to follow up re:" -- Name of your Waiting For context in OmniFocus property myWFContext : "waiting" -- Default start time property timeStart : "5:00:00 AM" -- Default due time property timeDue : "7:00:00 PM" -- Default start to due date interval, in days property dateInterval : "3" -- !! STOP EDITING HERE IF NOT FAMILAR WITH APPLESCRIPT !! -- --Configuration for Growl messages property GrowlRun : false property scriptName : "Waiting For Mails to OmniFocus" property notifySuccess : "Success Notification" property notifyFail : "Failed Notification" property titleSuccess : "Waiting For Mail added" property titleFail : "Waiting For Mail to OmniFocus FAILED" property txtSuccess : " added to OmniFocus successfully" property txtFail : " to OmniFocus to add successfully" property txtIcon : "OmniFocus" on perform_mail_action(theData) --Check if Growl is running tell application "System Events" to set GrowlRun to (count of (every process whose name is "Growl")) > 0 --Setup Growl if GrowlRun then tell application "Growl" to register as application scriptName all notifications {notifySuccess, notifyFail} default notifications {notifySuccess, notifyFail} icon of application txtIcon --Get going tell application "Mail" set theMessages to |SelectedMessages| of theData --Extract the messages from the rule repeat with theMessage in theMessages set theSubject to subject of theMessage set theRecipient to name of to recipient of theMessage set theMessageID to urlencode(the message id of theMessage) of me set theStartDate to "" set theDueDate to "" try using terms from application "MailTagsHelper" set theStartDate to (due date of theMessage) as date set theStartDate to my setStartDate(theStartDate) set theDueDate to theStartDate + dateInterval * days set theDueDate to my setDueDate(theDueDate) end using terms from on error theError end try -- Check if there is one or more recipients try if (count of theRecipient) > 1 then set theRecipientName to (item 1 of theRecipient & (ASCII character 202) & "and" & (ASCII character 202) & ((count of theRecipient) - 1) as string) & (ASCII character 202) & "more" else set theRecipientName to item 1 of theRecipient end if set theTaskTitle to theRecipientName & (ASCII character 202) & MidFix & (ASCII character 202) & theSubject set messageURL to "Created from message://%3C" & (theMessageID) & "%3E" set theBody to messageURL if mailBody then set theBody to theBody & return & return & the content of theMessage -- Add waiting for context task to OmniFocus tell application "OmniFocus" tell default document set theContext to context myWFContext if theStartDate is not "" then set theTask to make new inbox task with properties {name:theTaskTitle, note:theBody, context:theContext, start date:theStartDate, due date:theDueDate} else set theTask to make new inbox task with properties {name:theTaskTitle, note:theBody, context:theContext} end if if myProject is not null then set theProject to project myProject move theTask to end of tasks of theProject end if end tell end tell on error theError do shell script "logger -t outboxrule 'Error : " & theError & "' " end try my GrowlSuccess("Mail: " & theSubject) end repeat end tell end perform_mail_action on GrowlSuccess(theMessage) if GrowlRun then tell application "Growl" to notify with name notifySuccess title titleSuccess description theMessage & txtSuccess application name scriptName end GrowlSuccess on urlencode(theText) set theTextEnc to "" repeat with eachChar in characters of theText set useChar to eachChar set eachCharNum to ASCII number of eachChar if eachCharNum = 32 then set useChar to "+" else if (eachCharNum ≠ 42) and (eachCharNum ≠ 95) and (eachCharNum < 45 or eachCharNum > 46) and (eachCharNum < 48 or eachCharNum > 57) and (eachCharNum < 65 or eachCharNum > 90) and (eachCharNum < 97 or eachCharNum > 122) then set firstDig to round (eachCharNum / 16) rounding down set secondDig to eachCharNum mod 16 if firstDig > 9 then set aNum to firstDig + 55 set firstDig to ASCII character aNum end if if secondDig > 9 then set aNum to secondDig + 55 set secondDig to ASCII character aNum end if set numHex to ("%" & (firstDig as string) & (secondDig as string)) as string set useChar to numHex end if set theTextEnc to theTextEnc & useChar as string end repeat return theTextEnc end urlencode on setStartDate(theStartDate) set theDate to (date string of theStartDate) set newDate to the (date (theDate & " " & timeStart)) return newDate end setStartDate on setDueDate(theDueDate) set theDate to (date string of theDueDate) set newDate to the (date (theDate & " " & timeDue)) return newDate end setDueDate [/code] |
Thanks Greg. I had moved my scripts to the com.apple.mail folder. I checked Console after running it this morning and this is the error I received:
Sep 25 10:27:51 Brett.local Mail[157]: Failed execution of AppleScript: /users/imac/Library/Application Scripts/com.apple.mail/Waiting For Mails to OmniFocus.scpt Error Domain=NSCocoaErrorDomain Code=257 "The file “Waiting For Mails to OmniFocus.scpt” couldn’t be opened because you don’t have permission to view it." UserInfo=0x7f95ac1762b0 {NSURL=file://localhost/users/imac/Library/Application%20Scripts/com.apple.mail/Waiting%20For%20Mails%20to%20OmniFocus.scpt, NSLocalizedFailureReason=Script file is not in the application scripts folder.} I deleted my existing script, and replaced it with yours. I still receive no Growl notification and the task isn't added to OF inbox. After replacing with your most recent script...this is my console log: Sep 25 10:35:18 Brett.local Mail[157]: Failed execution of AppleScript: /users/imac/Library/Application Scripts/com.apple.mail/Waiting For Mails to OmniFocus.scpt Error Domain=NSCocoaErrorDomain Code=257 "The file “Waiting For Mails to OmniFocus.scpt” couldn’t be opened because you don’t have permission to view it." UserInfo=0x7f95a6bcc660 {NSURL=file://localhost/users/imac/Library/Application%20Scripts/com.apple.mail/Waiting%20For%20Mails%20to%20OmniFocus.scpt, NSLocalizedFailureReason=Script file is not in the application scripts folder.} For some reason...I don't have 'permission' to access the script...and it also says it's not in the scripts folder. I don't understand the last part at all. If it wasn't in the scripts folder, I wouldn't be able to choose it from the rules section of Mail. And as an aside, I have several DEVONthink mail scripts in the same folder that are working fine. Any help? |
This may be useful-a user on the DEVONthink forum just linked to [url=https://discussions.apple.com/message/19193870#19193870]this[/url] discussion on the Apple support board in response to a similar problem with a Mail script and DEVONthink.
|
Thanks Greg. That is my exact problem. Glad to hear I'm not the only one. The interesting thing is that at one point it was working under ML, and then just stopped. Too bad they don't have a consistent workaround for it. Sounds like a ML issue.
|
[QUOTE=Eike;112009]Ok, now after having read all posts in this thread, I realize it is a known problem with nested projects, i.e. the assignment of a project via MailTags only works at the very first level of OF (projects directly under "library").
As I use folders to distinguish between different areas of responsibility, I would greatly appreciate if anybody find a way to make this script work with nested projects.[/QUOTE] Is there a solution to this problem? Most of my project are also nested within areas of responsibility. MailTags can see the nested projects, but the script creates a new "Miscellaneous" single action list and assigns tasks to that list, if I try to use a second-level project. If there is no solution, the next best workaround would be to have tasks sent to the Inbox, rather than to a new "Miscellaneous" list, where I'm likely to lose them. I'd appreciate any suggestions. [B]Update:[/B] I solved the problem of the new "Miscellaneous" list by changing OF preferences to "Clean Up Inbox items which have Both a Project and a Context." When the nested project fails, the task now stays in the Inbox. So, the only remaining question is whether there's a way to assign tasks automatically to nested projects with MailTags + a script. Thanks! |
Scripts Doesn't run at all
Hello, I have tried several (I think that all of them) scripts from this page with no success: no error in system.log, no growl warning, and of course, no effect on OF. I have Mailtags and mail act-on installed and running OK, and I've tried to use another script (MailAction.applescript) which runs (failing, but at least I've obtained an output from the script).
I have tried on my two macs with no success, for excluding general system problems. I am using ML 10.8.2 with latest stable versions from OF and Mailtags/Mail act-on I feel I am doing wrong something basic, or that What I am doing isn't possible. Could anybody help me ? |
This doesn't work anymore for me too!
|
The function "on perform_mail_action(theData)" is not longer working in Apple Mail on Mountain Lion. I found a workaround and changed the script from Greg:
[CODE] (* Waiting For Mails to OmniFocus Script by simplicityisbliss.com, Sven Fechner MailTags project and due date compatibility added by Scott Morrison, Indev Software Based on an Outbox Rule (Mail Act-On) in Mail.app this script adds specific messages to the OmniFocus Inbox with the waiting for context MailTags is required to automatically set the project and the due date. Mail Act-On (www.indev.ca) is required to define the Outbox Rule to only create tasks for those outgoing emails that are to be tracked in OmniFocus A sample Outbox rule may be if MailTags Tickle Date is After 0 days today Run Apple Script: [ThisAppleScript] The script uses Growl from the App Store for feedback notification if it is installed and running *) --!! EDIT THE PROPERTIES BELOW TO MEET YOUR NEEDS !!-- -- Do you want the actualy mail body to be added to the notes section of the OmniFocus task? -- Set to 'true' is or 'false' if no property mailBody : true -- Text between mail recipient (the person you are waiting for to come back) and the email subject property MidFix : "to follow up re:" -- Name of your Waiting For context in OmniFocus property myWFContext : "waiting" -- Default start time property timeStart : "5:00:00 AM" -- Default due time property timeDue : "7:00:00 PM" -- Default start to due date interval, in days property dateInterval : "3" -- !! STOP EDITING HERE IF NOT FAMILAR WITH APPLESCRIPT !! -- --Configuration for Growl messages property GrowlRun : false property scriptName : "Waiting For Mails to OmniFocus" property notifySuccess : "Success Notification" property notifyFail : "Failed Notification" property titleSuccess : "Waiting For Mail added" property titleFail : "Waiting For Mail to OmniFocus FAILED" property txtSuccess : " added to OmniFocus successfully" property txtFail : " to OmniFocus to add successfully" property txtIcon : "OmniFocus" using terms from application "Mail" on perform mail action with messages theMessages --Check if Growl is running tell application "System Events" to set GrowlRun to (count of (every process whose name is "Growl")) > 0 --Setup Growl if GrowlRun then tell application "Growl" to register as application scriptName all notifications {notifySuccess, notifyFail} default notifications {notifySuccess, notifyFail} icon of application txtIcon --Get going tell application "Mail" repeat with theMessage in theMessages set theSubject to subject of theMessage set theRecipient to name of to recipient of theMessage set theMessageID to urlencode(the message id of theMessage) of me set theStartDate to "" set theDueDate to "" try using terms from application "MailTagsHelper" set theStartDate to (due date of theMessage) as date set theStartDate to my setStartDate(theStartDate) set theDueDate to theStartDate + dateInterval * days set theDueDate to my setDueDate(theDueDate) end using terms from on error theError end try -- Check if there is one or more recipients try if (count of theRecipient) > 1 then set theRecipientName to (item 1 of theRecipient & (ASCII character 202) & "and" & (ASCII character 202) & ((count of theRecipient) - 1) as string) & (ASCII character 202) & "more" else set theRecipientName to item 1 of theRecipient end if set theTaskTitle to theRecipientName & (ASCII character 202) & MidFix & (ASCII character 202) & theSubject set messageURL to "Created from message://%3C" & (theMessageID) & "%3E" set theBody to messageURL if mailBody then set theBody to theBody & return & return & the content of theMessage -- Add waiting for context task to OmniFocus tell application "OmniFocus" tell default document set theContext to context myWFContext if theStartDate is not "" then set theTask to make new inbox task with properties {name:theTaskTitle, note:theBody, context:theContext, start date:theStartDate, due date:theDueDate} else set theTask to make new inbox task with properties {name:theTaskTitle, note:theBody, context:theContext} end if if myProject is not null then set theProject to project myProject move theTask to end of tasks of theProject end if end tell end tell on error theError do shell script "logger -t outboxrule 'Error : " & theError & "' " end try my GrowlSuccess("Mail: " & theSubject) end repeat end tell end perform mail action with messages end using terms from on GrowlSuccess(theMessage) if GrowlRun then tell application "Growl" to notify with name notifySuccess title titleSuccess description theMessage & txtSuccess application name scriptName end GrowlSuccess on urlencode(theText) set theTextEnc to "" repeat with eachChar in characters of theText set useChar to eachChar set eachCharNum to ASCII number of eachChar if eachCharNum = 32 then set useChar to "+" else if (eachCharNum ≠ 42) and (eachCharNum ≠ 95) and (eachCharNum < 45 or eachCharNum > 46) and (eachCharNum < 48 or eachCharNum > 57) and (eachCharNum < 65 or eachCharNum > 90) and (eachCharNum < 97 or eachCharNum > 122) then set firstDig to round (eachCharNum / 16) rounding down set secondDig to eachCharNum mod 16 if firstDig > 9 then set aNum to firstDig + 55 set firstDig to ASCII character aNum end if if secondDig > 9 then set aNum to secondDig + 55 set secondDig to ASCII character aNum end if set numHex to ("%" & (firstDig as string) & (secondDig as string)) as string set useChar to numHex end if set theTextEnc to theTextEnc & useChar as string end repeat return theTextEnc end urlencode on setStartDate(theStartDate) set theDate to (date string of theStartDate) set newDate to the (date (theDate & " " & timeStart)) return newDate end setStartDate on setDueDate(theDueDate) set theDate to (date string of theDueDate) set newDate to the (date (theDate & " " & timeDue)) return newDate end setDueDate [/CODE] |
All times are GMT -8. The time now is 12:45 PM. |
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2024, vBulletin Solutions, Inc.