–10.12.2011 hubionmac.com

–Beweg Emails die markiert sind in einen anderen Ordner

– In den Prefs können als Quelle mehrere Ordner angegeben werden

– Unterordner werden in Form einer Liste angegeben z.B. um den Ordner Bla im Ordner Fasel anzugeben -> {“Fasel”,”Bla”}

–Beim Ziel-Ordner kann wahlweise angegeben werden, ob es sich um einen lokal oder ggf. um einen IMAP-Ordner des jeweiligen Accounts handelt

set theprefs to {¬

{AccountName:”hubionmac.com”, SourceFolders:{{“INBOX”}, {“Archive”, “Kleiner Test”}}, DestinationFolder:{“Sammel”, “Lager”}, DestinationFolderIsLocal:false}, ¬

{AccountName:”gmx.net”, SourceFolders:{{“INBOX”}, {“bla”, “blafasel”}}, DestinationFolder:{“Sammel”, “Lager”}, DestinationFolderIsLocal:false} ¬

}

–prüfer erst mal ob Mail läuft… denn extra gestartet werden soll es deswegen mal nicht

tell application “System Events”

set MailIsRunning to (count of (every process whose bundle identifier is “com.apple.mail”)) > 0

end tell

end

if MailIsRunning then

tell application “Mail”

repeat with todo in theprefs

set AccountName to AccountName of todo

set SourceFolders to SourceFolders of todo

set DestinationFolder to DestinationFolder of todo

set islocal to DestinationFolderIsLocal of todo

set TheDestinationFolder to my getFolderReference(AccountName, DestinationFolder, islocal)

repeat with SourceFolder in SourceFolders

set TheSourceFolder to my getFolderReference(AccountName, SourceFolder, false)

– get the mails that are interesting

set themails to (every message of TheSourceFolder whose flagged status is true)

–movethemails

repeat with themail in themails

move themail to TheDestinationFolder

end repeat

end repeat

end repeat

end tell

end if

on getFolderReference(AccountName, DestinationFolder, isAlwayslocal)

tell application “Mail”

set TheDestinationFolder to “”

set islocal to (get account type of account AccountName is pop)

if isAlwayslocal = true then set islocal to true

repeat with FolderName in DestinationFolder

if islocal then

if FolderName as string ≠ “INBOX” then

if TheDestinationFolder = “” then

set TheDestinationFolder to mailbox FolderName

else

set TheDestinationFolder to mailbox FolderName of TheDestinationFolder

end if

else

set TheDestinationFolder to mailbox FolderName of account AccountName

end if

else

if TheDestinationFolder = “” then

set TheDestinationFolder to mailbox FolderName of account AccountName

else

set TheDestinationFolder to mailbox FolderName of TheDestinationFolder

end if

end if

end repeat

return TheDestinationFolder

end tell

end getFolderReference

Hey REPLACEME1,

how you are doing. Do you have time for REPLACEME2?

Yours REPLACEME3

set mytemplate to choose file

set replace_list to {“my friend”, “what ever”, “hubionmac”}

set replace_markers to {}

repeat with i from 1 to count of replace_list

set replace_markers to replace_markers & {“REPLACEME” & i}

end repeat

tell application “TextEdit”

set mytextfile to open mytemplate

set mytext_parts to attribute run of mytextfile

set mylayout to properties of attribute run of mytextfile

close mytextfile

end tell

repeat with i from 1 to count of replace_list

repeat with k from 1 to count of mytext_parts

set item k of mytext_parts to my replace_chars(item k of mytext_parts as text, item i of replace_markers as text, item i of replace_list as text)

end repeat

end repeat

set mytext to mytext_parts as text

tell application “Mail”

activate

set myMessageText to make new outgoing message with properties {content:mytext, visible:true}

tell myMessageText

set globalcounter to 1

set pointer to 1

repeat with i from 1 to count of mytext_parts

set currentcount to count of every character of item i of mytext_parts

set font of characters globalcounter through (globalcounter + currentcount – 1) to (font of item i of mylayout)

set size of characters globalcounter through (globalcounter + currentcount – 1) to (size of item i of mylayout)

set color of characters globalcounter through (globalcounter + currentcount – 1) to (color of item i of mylayout)

set globalcounter to globalcounter + currentcount

end repeat

(**

–this does not work 100% since set word i does not wait for the command to finish

repeat with i from 1 to count of every word

set myword to word i

if myword is in replace_markers then

set word i to (item ((characters 14 through -1 of (myword as text)) as text as integer) of replace_list) as text

end if

end repeat**)

end tell

end tell

on replace_chars(this_text, search_string, replacement_string)

if this_text contains the search_string then

set od to AppleScript‘s text item delimiters

set AppleScript‘s text item delimiters to the search_string

set the item_list to every text item of this_text

set AppleScript‘s text item delimiters to the replacement_string

set this_text to the item_list as string

set AppleScript‘s text item delimiters to od

end if

return this_text

end replace_chars

display dialog “Delete Mail’s offline caches?” buttons {“Cancel”, “Delete”} default button 2

copy the result as list to {buttonpressed}

if the buttonpressed is “Delete” then

set thePath to (path to library folder from user domain as text) & “Mail”

tell application “Finder”

set theIMAPFolders to (every folder of folder thePath whose name begins with “IMAP”) as alias list

end tell

repeat with thisFolder in theIMAPFolders

set theCachePath to (POSIX path of thisFolder & “.OfflineCache”)

do shell script “rm -rf ” & theCachePath

end repeat

end if

– hubionmac.com 04.02.2011

– you say a folder and a search pattern for sender’s address

– and each duplicated email (sender = subject) will be marked, except the latest one

– I you feel brave you my uncomment the delete 

tell application “Mail” to set thefolder to inbox

set sender_address to “amazon”

tell application “Finder” to set startup_disk to (startup disk as alias) as text

tell application “Mail”

set mysubjects to subject of every message of thefolder whose sender contains sender_address

set AppleScript‘s text item delimiters to “

“

set mysubjects to mysubjects as text

set AppleScript‘s text item delimiters to “”

–save this list to a text tmp text file

my writeToFile(startup_disk & “tmp:mail_subjects.txt”, mysubjects, false)

–now use the unix tool unig to find all duplicated subjects

–this way because uniq is much faster on comparing thousands of lines than applescript

set duplicated_subjects to do shell script “sort </tmp/mail_subjects.txt | uniq -d | uniq”

do shell script “rm /tmp/mail_subjects.txt”

repeat with mydublicated_subject in (every paragraph of duplicated_subjects)

set current_messages to (every message of thefolder whose subject is mydublicated_subject and sender contains sender_address)

set first_loop to true

repeat with current_message in current_messages

if first_loop is true then

set last_message to current_message

set last_date to date sent of current_message

set first_loop to false

else

if last_date ≤ (date sent of current_message) then

set background color of last_message to green

–delete last_message

set last_message to current_message

set last_date to date sent of current_message

else

set background color of current_message to green

–delete current_message

end if

end if

end repeat

end repeat

end tell

on writeToFile(MacFilePathTxt, txt, add2eof)

–lastedit 18.01.2011

if add2eof is false then

try

do shell script “rm ” & quoted form of POSIX path of (MacFilePathTxt as alias)

end try

end if

set RefNum to (open for access file MacFilePathTxt with write permission)

try

if add2eof is false then

write txt to RefNum

else

write txt to RefNum starting at ((get eof RefNum) + 1)

end if

close access RefNum

return true

on error

close access RefNum

return false

end try

end writeToFile

## 22.01.2011 hubionmac.com

## Skript für Mail-Regel, druckt eintreffende Nachrichten auf Standard-Drucker

## via GUI-Scripting, nicht schön aber scheint zu funktionieren :-/

on perform_mail_action(info)

tell application “Mail”

set theMessages to |SelectedMessages| of info

repeat with thisMessage in theMessages

set a to open thisMessage

delay 1

tell application “System Events”

tell process “Mail”

##Druckdialog öffnen

keystroke “p” using command down

set p to “false”

repeat with i from 1 to 10

if (count of every sheet of window 1) > 0 then

set p to “ready”

exit repeat

end if

delay 1

end repeat

##wenn dialog offen dann drücke enter

if p = “ready” then

keystroke return

end if

set p to “notready”

##wenn dialog weg dann schließe fenster

repeat with i from 1 to 10

if (count of every sheet of window 1) = 0 then

set p to “ready”

exit repeat

end if

delay 1

end repeat

end tell

end tell

if p = “ready” then

close window 1

else

error “Langsame Kist hier, Zeit für einen neuen Mac”

end if

end repeat

end tell

end perform_mail_action

– hubionmac.com 2010-09-03

– script to be added to a Apple Mail rule

–saves PDF attachmens of new mails into a tmp folder and prints them with standard printer

## Update 15.02.2011

## – script now also prints filled pdf forms (requires pdftk to flatten forms)

## – printing app window is hidden after launch (pomps up a milsec… )

on perform_mail_action(info)

tell application “Mail”

tell application “Finder” to set mypath to (name of startup disk & “:tmp:”) as text

set theMessages to |SelectedMessages| of info

repeat with thisMessage in theMessages

try

repeat with a in (every mail attachment of thisMessage)

set current_a_name to name of a

if current_a_name ends with “.pdf” then

set current_a_name to my checkname_with_pdf_suffix(current_a_name, mypath as alias, false)

save a in mypath & current_a_name

##print pdf form workaround, this requires pdftk installed!!!

set current_a_name2 to my checkname_with_pdf_suffix(current_a_name, mypath as alias, false)

do shell script “/opt/pdflabs/pdftk/bin/pdftk ” & quoted form of POSIX path of ((mypath & current_a_name) as alias) & ” output ” & POSIX path of ((mypath) as alias) & quoted form of current_a_name2 & ” flatten;rm ” & quoted form of POSIX path of ((mypath & current_a_name) as alias)

set current_a_name to current_a_name2

##workaround –END–

my print_file_with_standard_printer(POSIX path of ((mypath & current_a_name) as alias))

else

–display dialog current_a_name

end if

end repeat

on error msg

do shell script “echo ” & quoted form of msg & ” | cat>>~/Desktop/MailscriptErrorLog.txt”

end try

end repeat

end tell

end perform_mail_action

on checkname_with_pdf_suffix(n, D, looped)

tell application “Finder”

set thefiles to name of every item of (D as alias)

end tell

if thefiles contains n then

if looped = false then

set n to ((characters 1 through -5 of n) & ” 1″ & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

else

set tmp to (last word of ((characters 1 through -5 of n) as text) as integer)

set tmpcount to (count of characters of (tmp as text)) + 5

set tmp to tmp + 1

set n to ((characters 1 through (-1 * tmpcount) of n) & tmp & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

end if

else

return n

end if

end checkname_with_pdf_suffix

on getStandardPrinter()

tell application “Printer Setup Utility”

return name of current printer & “.app”

end tell

end getStandardPrinter

on print_file_with_standard_printer(thefile)

– thefile is a unquoted POSIX path

–assumes that the printer app is stored in ~/Library/Printers/ not /Library/Printers/

tell application (my getStandardPrinter()) to activate

tell application “Mail”

do shell script “open -a ~/Library/Printers/” & quoted form of (my getStandardPrinter()) & ” ” & quoted form of thefile

##hide the printer app

tell application “Finder” to set visible of process (characters 1 through -5 of (my getStandardPrinter()) as text) to false

end tell

end print_file_with_standard_printer

– Save Mail as PDF and it’s attachments to folder

–  Created by hubionmac (29.09.2010)

– 29.09.2010 

– -Auswahl von mehren Emails wird nun auch möglich

– -Abgesendete Emails werden als solche erkannt und in einem anderen Verzeichnis mit Empfänger-Adresse im Ordnernamen gespeichert (req. by Andreas)

– 27.09.2011 made it work with local mailboxes, too

global frontmost_message_viewer

–this is the posix (unix) path of the folder you would like to store the messages in

tell application “Finder” to set mymailboxpath to POSIX path of ((desktop) as alias) & “received_mail_box/”

tell application “Finder” to set mysentmailboxpath to POSIX path of ((desktop) as alias) & “sent_mail_box/”

tell application “Mail”

set myselection to my check_message_viewer_and_return_selection()

repeat with currentMail in myselection

open currentMail

set currentSender to my (getEmail(sender of currentMail))

set currentDateSent to my getDatestring(date sent of currentMail)

set currentSubject to my replace_chars(my replace_chars(subject of currentMail, “:”, “-”), “/”, “:”) –Doppelpunkte kommen bei Dateinamen nicht so gut

if my is_in_sent_mail(currentMail) is true then

–if the file was sent FROM this email account

set sentToEmail to address of item 1 of to recipient of currentMail

set currentFolder2Store to mysentmailboxpath & sentToEmail & ” ” & currentDateSent & ” ” & currentSubject & “/” as rich text

else

–if the email was sent TO this email account 

try

set myemail to item 1 of (get email addresses of account of mailbox of currentMail)

on error

–27.09.2011 added to make it work with local mailboxes, too

set myemail to item 1 of (get address of to recipient of currentMail)

end try

set currentFolder2Store to mymailboxpath & currentDateSent & ” ” & currentSender & ” ” & currentSubject & ” send to” & myemail & “/” as rich text

end if

my create_messagefolder(currentFolder2Store)

repeat with a in (every mail attachment of currentMail)

set current_a_name to name of a

set current_a_name to my checkname_with_pdf_suffix(current_a_name, (POSIX file currentFolder2Store) as alias, false)

save a in (((POSIX file currentFolder2Store) as rich text) & current_a_name) as rich text

end repeat

set desktop_pdf_name to my checkname_with_pdf_suffix(“1.pdf”, path to desktop, false)

set the clipboard to desktop_pdf_name

tell application “System Events”

tell process “Mail”

set wc to count of every window

end tell

end tell

my print_current_mail_as_pdf()

tell application “System Events”

tell process “Mail”

repeat until (count of every window) is wc

end repeat

end tell

end tell

my move_desktop_pdf(desktop_pdf_name, currentFolder2Store)

–close last_message window

activate

tell application “System Events”

tell process “Mail”

keystroke “w” using command down

end tell

end tell

–open destination folder in finder ( did it really work? YES!! =))

–do shell script “open ” & quoted form of currentFolder2Store

end repeat

end tell

to move_desktop_pdf(desktop_pdf_name, currentFolder2Store)

–used to move the printed pdf to it’s final destination

set finalname to checkname_with_pdf_suffix(“__message.pdf”, (POSIX file currentFolder2Store) as alias, false)

try

tell application “Finder” to do shell script “mv ” & POSIX path of ((desktop) as alias) & quoted form of desktop_pdf_name & ” ” & quoted form of currentFolder2Store & quoted form of finalname

on error msg

error “Fehler beim Bewegen der gedruckten Nachricht:  ” & msg as text

end try

end move_desktop_pdf

to getEmail(mailstring)

– if an email contains the senders name like “Mr.Bla <bla@bla.com>” then returns just the email not leaves the name

if mailstring contains “<” then

return (characters ((offset of “<” in mailstring) + 1) through ((offset of “>” in mailstring) – 1) of mailstring) as text

else

return mailstring

end if

end getEmail

to getDatestring(thedate)

–format a date to a string like 2010-03-22

set monthnum to characters -2 through -1 of (“0″ & ((month of thedate) as integer)) as text

set daynum to characters -2 through -1 of (“0″ & ((day of thedate) as integer)) as text

set yearnum to year of the thedate

return yearnum & “-” & monthnum & “-” & daynum as text

end getDatestring

to create_messagefolder(thepath_posix)

–I love mkdir -p, simple, short, easy to use

try

do shell script “mkdir -p ” & quoted form of thepath_posix

on error msg

error msg

end try

end create_messagefolder

to replace_chars(this_text, search_string, replacement_string)

–this replaces characters

–used for folder and filenames, since a : must not be used for that

if this_text contains the search_string then

set AppleScript‘s text item delimiters to the search_string

set the item_list to every text item of this_text

set AppleScript‘s text item delimiters to the replacement_string

set this_text to the item_list as string

set AppleScript‘s text item delimiters to “”

end if

return this_text

end replace_chars

to checkname_with_pdf_suffix(n, D, looped)

–check if filename exists in D

– so if “A File.pdf” exists it names it “A File 1.pdf”,”A File 2.pdf”,…

tell application “Finder”

set thefiles to name of every item of (D as alias)

end tell

if thefiles contains n then

if looped = false then

set n to ((characters 1 through -5 of n) & ” 1″ & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

else

set tmp to (last word of ((characters 1 through -5 of n) as text) as integer)

set tmpcount to (count of characters of (tmp as text)) + 5

set tmp to tmp + 1

set n to ((characters 1 through (-1 * tmpcount) of n) & tmp & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

end if

else

return n

end if

end checkname_with_pdf_suffix

to print_current_mail_as_pdf()

–hopefully works on every mac in every language =)

– GUI-Scripting is not the best way, but somehow the only way at the moment :-/

tell application “Mail”

activate

tell application “System Events”

tell process “Mail”

keystroke “p” using command down

set p to “false”

repeat until 0 = 1

if (count of every sheet of window 1) > 0 then

set p to “ready”

exit repeat

end if

end repeat

if p = “ready” then

click menu button 1 of sheet 1 of window 1

delay 0.25

key code 125

key code 125

delay 0.25

set cwc to count of every window

keystroke return

repeat until 1 = 0

if (cwc + 1) = (count of every window) then

exit repeat

end if

end repeat

click text field 1 of window 1

keystroke “a” using command down

keystroke “v” using command down

keystroke “d” using command down

keystroke return

else

error “timeout”

end if

end tell

end tell

end tell

end print_current_mail_as_pdf

to check_message_viewer_and_return_selection()

– check if frontmost window is a message viewer, otherwhise tell the user to RTFM!… wait there is no manual… don’t care error change user!

tell application “Mail”

set frontmost_message_viewer to {}

repeat with i from 1 to count of every message viewer

if index of window of message viewer i = 1 then

set frontmost_message_viewer to message viewer i

exit repeat

end if

end repeat

if frontmost_message_viewer = {} then

error “Ist ja gar kein Message Viewer im Vordergrund, so kann ich einfach nicht arbeiten!”

else

return selection

end if

end tell

end check_message_viewer_and_return_selection

on is_in_sent_mail(amessage)

tell application “Mail”

set sentmailboxes to every mailbox of sent mailbox

set currentmailbox to mailbox of amessage

repeat with i from 1 to (count of sentmailboxes)

if item i of sentmailboxes = currentmailbox then

return true

end if

end repeat

return false

end tell

end is_in_sent_mail