I use MailSuite extensively in my workflows (breaking those workflows was one of the major factors that finally pushed me off Evernote) and I am making some changes to the “File messages & attachments” script to capture Mailtags that I use in my workflow for an inbox rule and a Mail Act-On rule to file specific messages in DEVONthink.
I’m wondering if my mappings make sense, and also, thoughts about how to mapping/scripting a couple I haven’t quite figured out:
| Mailtag message property |
DEVONthink record property |
Notes |
| keywords |
tags |
working |
| project |
tags |
working, some thoughts about using this as a group or database in addition or instead |
| notes |
comment |
working |
| tickle date |
reminder |
(once, on tickle date, alert); not working |
| importance |
? |
values 1-5, could us labels?? not really a good fit, especially since I actually use the DT labels right now. |
Mailtags properties I’m not using:
- original message
- tag identifier
- server serial number
- message uuid
- preferred project and keyword colors
Some thoughts and questions for the community:
-
I use the same three domains (Home, Work, Church) as top-level projects across Mail, Todoist, and (previously) Evernote (as notebook stacks) with actual projects as sub-projects (or tags) under those domains. I have my DEVONthink database set up with three top-level groups with the same names with subgroups to match the other applications. Redundant to add the Mailtags project as a tag? Should I just file it in the right top-level group? Separate databases for each of the three projects? Wondering what others think and trying to wrap my head around the pros and cons of multiple databases.
-
What are the rules for editing and sharing the included scripts by Christian Grunenberg–I usually share my scripts on my own website once I get them working, with appropriate credit. But I’ve also only worked from scratch or from public domain or CC scripts to begin with.
-
I have not been able to find a good AppleScript example of adding a reminder to a record–and I am really stuck on this one. Going to take another crack at it today, but if anyone can help point me to a working example…
Also, really appreciate all the helpful and patient feedback around here! Has made this transition so much more fun than it would have been otherwise.
- This is largely a matter of personal preference or the requirements of a collaborative situation. Go with what makes sense to you and allows you to work efficiently with the data. Personally, I would create three separate databases, but again, that makes sense to me.
- The scripts are free to modify and share as you see fit, though the attribution block at the top of the script should remain in place.
- Here’s an example snippet for adding a reminder…
set d to date "Saturday, January 9, 2021 at 02:48:00 PM"
tell application id "DNtp"
repeat with thisRecord in (selected records)
tell thisRecord to make new reminder with properties {schedule:once, alarm:speak, alarm string:"hi", due date:d}
end repeat
end tell
The parameters for a reminder are in DEVONthink’s AppleScript dictionary.
Thanks for the nice feedback It’s appreciated.
1 Like
Got the tickle date to reminder workflow working. Thanks for the example.
Sharing in case anyone else is interested. Still tweaking, but it works:
- Make sure to update with path to your database.
- The script is sometimes creating a reminder even though no tickledate is set in MailSuite. Still trying to nail that one down.
-- Mail Rule - File messages & attachments
-- Created by Christian Grunenberg on Fri May 25 2012.
-- Copyright (c) 2012-2020. All rights reserved.
-- MailSuite routines added by rpallred
(*
======================================
// USER SWITCHES
======================================
*)
--Set this to "OFF" if you do NOT want MailTags copied into your DEVONthink item
--It must also be set to "OFF" if you do not have MailSuite installed
-- property MT_Switch : "ON" --Currently disabled
(*
======================================
// MAIN SCRIPT
======================================
*)
-- POSIX path of destination database. Global inbox is used if not specified.
property pDatabasePath : "/Users/uname/Databases/DatabaseName.dtSparse"
-- This string is used when the message subject is empty
property pNoSubjectString : "(no subject)"
using terms from application "Mail"
on perform mail action with messages theMessages for rule theRule
-- Location of destination groups.
set pMessageLocation to "/Saved Emails"
set pAttachmentLocation to pMessageLocation & "/Attachments"
tell application id "DNtp"
if pDatabasePath is "" then
set destination_database to inbox
else
set destination_database to open database of pDatabasePath -- Ensure that the database is open
end if
set message_group to create location pMessageLocation in destination_database
set attachment_group to create location pAttachmentLocation in destination_database
end tell
tell application "Mail"
set theFolder to (POSIX path of (path to temporary items))
repeat with theMessage in theMessages
try
tell theMessage
set {theDateReceived, theDateSent, theSender, theSubject, theSource, theReadFlag} to {the date received, the date sent, the sender, subject, the source, the read status}
end tell
if theSubject is equal to "" then set theSubject to pNoSubjectString
--Process MailTags Info //Subroutine wasn't working, so put it inline.
--if MT_Switch is "ON" then my mt_Process(theMessage)
using terms from application "SmallCubed MailSuite"
--Process list of MailTags Keywords
set mtListOfKeywords to the keywords of theMessage
if mtListOfKeywords is not "" then
set mtTags to mtListOfKeywords
else
set mtTags to ""
end if
--Get the MailTags project
set mtProject to the project of theMessage
if mtProject = "missing value" then set mtProject to ""
--Create devonTags from mtTags and mtProject
if mtTags is not "" then
if mtProject is not "" then
set devonTags to mtTags & ", " & mtProject
else
set devonTags to mtTags
end if
else
if mtProject is not "" then
set devonTags to mtProject
else
set devonTags to ""
end if
end if
--Get the MailTags notes
set mtNotes to the notes of theMessage as rich text
if mtNotes = "missing value" then set mtNotes to ""
--Get the Tickle Date
set mtTickle to tickle date of theMessage
if mtTickle = "missing value" then set mtTickle to ""
--Still creating a phantom reminder with a due date at import time--inconsistent.
(*
Leftover from the Evernote version--not currently used.
*)
--Create the correct importance tag
--set mtUrgencyHTML to ""
--set mtUrgency to the importance of theMessage
--if (mtUrgency is 5) then
--set mtUrgencyHTML to "<b>Importance: </b><font color=\"#ff0000\">▌Urgent</font><br>"
--else if (mtUrgency is 4) then
--set mtUrgencyHTML to "<b>Importance: </b><font color=\"#FFFF00\">▌High</font><br>"
--else if (mtUrgency is 3) then
--set mtUrgencyHTML to "<b>Importance: </b><font color=\"#2EBE60\">▌Normal</font><br>"
--else if (mtUrgency is 2) then
--set mtUrgencyHTML to "<b>Importance: </b><font color=\"#0077C8\">▌Low</font><br>"
--else if (mtUrgency is 1) then
--set mtUrgencyHTML to "<b>Importance: </b><font color=\"#666666\">▌Very Low</font><br>"
--end if
end using terms from
tell application id "DNtp"
set theRecord to create record with {name:theSubject & ".eml", type:unknown, creation date:theDateSent, modification date:theDateReceived, URL:theSender, source:(theSource as string), unread:(not theReadFlag), label:1, tags:devonTags} in message_group
set comment of theRecord to mtNotes
if mtTickle is not "" then
tell theRecord to make new reminder with properties {schedule:once, alarm:alert, alarm string:(name & " is due today!"), due date:mtTickle}
end if
perform smart rule trigger import event record theRecord
end tell
repeat with theAttachment in mail attachments of theMessage
try
if downloaded of theAttachment then
set theFile to theFolder & (name of theAttachment)
tell theAttachment to save in theFile
tell application id "DNtp"
set theAttachmentRecord to import theFile to attachment_group
set unread of theAttachmentRecord to (not theReadFlag)
set URL of theAttachmentRecord to theSender
perform smart rule trigger import event record theAttachmentRecord
end tell
end if
end try
end repeat
end try
end repeat
end tell
end perform mail action with messages
end using terms from
(*
=======================================
// MailSuite SUBROUTINES **NOT WORKING AS A SUBROUTINE**
// Inspired by example from:
// http://ojisanseiuchi.com/2016/04/25/Using-AppleScript-with-MailTags/
=======================================
*)
on mt_Process(theMessage)
using terms from application "SmallCubed MailSuite"
if active MailSuite components does not contain "MailTags" then
display dialog "MailTags is required for this script" buttons {"OK"}
return
end if
end using terms from
end mt_Process
I’ve made two small updates to this script:
- Mapped MailTags importance to DEVONthink custom metadata. You want to create a custom data with label
mailtagsimportance, or update the correct portion of the script
- Corrected an error where a message with no tickle date would import with a reminder for the time of import.
-- Mail Rule - File messages & attachments
-- Created by Christian Grunenberg on Fri May 25 2012.
-- Copyright (c) 2012-2020. All rights reserved.
-- MailSuite routines added by rpallred
-- v1.2
(*
======================================
// USER SWITCHES
======================================
*)
--Set this to "OFF" if you do NOT want MailTags copied into your DEVONthink item
--It must also be set to "OFF" if you do not have MailSuite installed
-- property MT_Switch : "ON" --Currently disabled
(*
======================================
// MAIN SCRIPT
======================================
*)
-- POSIX path of destination database. Global inbox is used if not specified.
property pDatabasePath : "/Users/uname/Databases/DatabaseName.dtSparse"
-- This string is used when the message subject is empty
property pNoSubjectString : "(no subject)"
using terms from application "Mail"
on perform mail action with messages theMessages for rule theRule
-- Location of destination groups.
set pMessageLocation to "/Saved Emails"
set pAttachmentLocation to pMessageLocation & "/Attachments"
tell application id "DNtp"
if pDatabasePath is "" then
set destination_database to inbox
else
set destination_database to open database of pDatabasePath -- Ensure that the database is open
end if
set message_group to create location pMessageLocation in destination_database
set attachment_group to create location pAttachmentLocation in destination_database
end tell
tell application "Mail"
set theFolder to (POSIX path of (path to temporary items))
repeat with theMessage in theMessages
try
tell theMessage
set {theDateReceived, theDateSent, theSender, theSubject, theSource, theReadFlag} to {the date received, the date sent, the sender, subject, the source, the read status}
end tell
if theSubject is equal to "" then set theSubject to pNoSubjectString
--Process MailTags Info //Subroutine wasn't working, so put it inline.
--if MT_Switch is "ON" then my mt_Process(theMessage)
using terms from application "SmallCubed MailSuite"
--Process list of MailTags Keywords
set mtListOfKeywords to the keywords of theMessage
if mtListOfKeywords is not "" then
set mtTags to mtListOfKeywords
else
set mtTags to ""
end if
--Get the MailTags project
set mtProject to the project of theMessage
--if mtProject = "missing value" then set mtProject to ""
--Create devonTags from mtTags and mtProject
if mtTags is not "" then
if mtProject is not "" then
set devonTags to mtTags & ", " & mtProject
else
set devonTags to mtTags
end if
else
if mtProject is not "" then
set devonTags to mtProject
else
set devonTags to ""
end if
end if
--Get the MailTags notes
set mtNotes to the notes of theMessage as rich text
if mtNotes = "missing value" then set mtNotes to ""
--Get the Tickle Date
set mtTickle to tickle date of theMessage
if mtTickle = "missing value" then
set tickleTest to "0"
else
set tickleTest to "1"
end if
--Create the correct importance tag
--Requires a custom metadata tag with identifier 'mailtagsimportance'
set messageImportance to the importance of theMessage
if (messageImportance is 5) then
set mtImportance to "Urgent"
else if (messageImportance is 4) then
set mtImportance to "High"
else if (messageImportance is 3) then
set mtImportance to "Normal"
else if (messageImportance is 2) then
set mtImportance to "Low"
else if (messageImportance is 1) then
set mtImportance to "Very Low"
end if
end using terms from
tell application id "DNtp"
set theRecord to create record with {name:theSubject & ".eml", type:unknown, creation date:theDateSent, modification date:theDateReceived, URL:theSender, source:(theSource as string), unread:(not theReadFlag), label:1, tags:devonTags} in message_group
set comment of theRecord to mtNotes
--Make sure you have created a custom meta data with the label 'mailtagsimportance' or update the script
add custom meta data mtImportance for "mailtagsimportance" to theRecord
if tickleTest = 1 then
tell theRecord to make new reminder with properties {schedule:once, alarm:alert, alarm string:(name & " is due today!"), due date:mtTickle}
end if
perform smart rule trigger import event record theRecord
end tell
repeat with theAttachment in mail attachments of theMessage
try
if downloaded of theAttachment then
set theFile to theFolder & (name of theAttachment)
tell theAttachment to save in theFile
tell application id "DNtp"
set theAttachmentRecord to import theFile to attachment_group
set unread of theAttachmentRecord to (not theReadFlag)
set URL of theAttachmentRecord to theSender
perform smart rule trigger import event record theAttachmentRecord
end tell
end if
end try
end repeat
end try
end repeat
end tell
end perform mail action with messages
end using terms from
(*
=======================================
// MailSuite SUBROUTINES **NOT WORKING AS A SUBROUTINE**
// Inspired by example from:
// http://ojisanseiuchi.com/2016/04/25/Using-AppleScript-with-MailTags/
=======================================
*)
on mt_Process(theMessage)
using terms from application "SmallCubed MailSuite"
if active MailSuite components does not contain "MailTags" then
display dialog "MailTags is required for this script" buttons {"OK"}
return
end if
end using terms from
end mt_Process
3 Likes
