FasdUAS 1.101.10 k l  I have modified this from the original which can be found here: http://www.scriptbuilders.net/files/savemailattachments1.0.html -Ryan Hunt www.ryanhunt.biz  l  l  Mail attachment save script by Luke Jaeger www.trickfilm.org This script will mine a list of Mail messages for attachments and save them to a destination you choose. The script creates a subfolder for each message with attachments, named with the subject of the message and its date sent. All attachments are saved with their original names. Messages without attachments are ignored. After running, the script will send a mail message detailing what was saved. The script is ready to use as a rule action in Mail - just fill in the specifics of your destination folder and recipient. I wrote this script to deal with large art files sent to me via Mail. Hope you find it useful!    l l l l l comment the first two lines ("using terms" and "on perform") and their accompanying "end" statements when testing. Uncomment them to use this script as a Mail rule function. l w i I .emalcpmanull@mssg o 0 themessages theMessages !  pmar !o 0theruletheRule kt""#$ #O %& %k ''() (l)*+ *l, ,C=here's where you tell Finder to mount your server volume, etc+-. -l/0 /r12 1m3 3$Macintosh HD:Users:HOME:Faxes: 2o "0theoutputfoldertheOutputFolder 0;5(here's where you tell it the main folder to save in).4 4l &m55null߀ Finder.appȐ (U(͐@@ MACSalisr Macintosh HDnSH+ Finder.appEL 4 CoreServiceso"  f e3Macintosh HD:System:Library:CoreServices:Finder.app Finder.app Macintosh HD&System/Library/CoreServices/Finder.app/$67 6l 78 8O t9: 9ks;;<= <l> >pjcomment the following line when running this script as a Mail.app rule function - uncomment it for testing=?@ ?l@AB AlC C"set theMessages to selectionBDE DlEF FXsGH GknIIJK JlKLM LlN N=7does the message have attachments? if not, then skip itMOP OZlQR Q>%ST Sl"U Un"VW V2 "  attc Wo 0 themessage theMessage TJ"$ Rk(hXXYZ Yl((Z[\ [l((] ]*$save the attachment to the subfolder\^_ ^l((_`a `r(-bc bl(+d dn(+ef e2)+  attc fo() 0 themessage theMessage co 0theattachmentstheAttachmentsagh gX.fij ik>akklm lr>Gno nb>Epq pl>Ar rc>Ast so>? "0theoutputfoldertheOutputFolder tm?@  TEXT qlADu unADvw v1BD  pnam woAB 0 theattachment theAttachment oo 0thepaththePathmxy xlHHyz{ zlHH| |>8if same named file already exists in subfolder, skip it {}~ }lHH *$otherwise, save it and get its size ~ lHH ZH_ HHQ lHP IHP .coredoexboolobj lHL nHL 4IL  alis oJK 0thepaththePath mHI5 IT[ .coresavefileobj oTU 0 theattachment theAttachment  kfil oVW 0thepaththePath l`` 0 theattachment theAttachment jo12 0theattachmentstheAttachmentsh lgg lgg lgg 0* set read status of theMessage to true lggP lmm 0 themessage theMessage Ho 0 themessages theMessages :m null߀)<Mail.appu -ƘWdƘDemalalisb Macintosh HDnSH+)<Mail.appKL Productivityo"M*`)</Macintosh HD:Applications:Productivity:Mail.appMail.app Macintosh HD"Applications/Productivity/Mail.app/ .emalcpmanull@mssg .emalcpmanull@mssg 0 themessages theMessages  pmar 0theruletheRule 0 themessages theMessages 0theruletheRule "0theoutputfoldertheOutputFolder 0 themessage theMessage 0theattachmentstheAttachments 0 theattachment theAttachment 0thepaththePath 53  kocl  cobj .corecnte********  attc  TEXT  pnam  alis .coredoexboolobj  kfil .coresavefileobj uEOPUOfc[l kh-jvE-EO7[l kh&,%EO/j  l YhOP[OYOPYhOP[OYUascr ޭ