answer to request 2 edit the number on the line that reads "set label of msg to 7" as per your wish to something from 0 to 9
tell application "PowerMail" set attachFolder to attachment folder set theMessages to current messages repeat with msg in theMessages set msgStatus to status of msg set attachList to attachments of msg if (count items of attachList) > 0 then repeat with attachIdx from (count items of attachList) to 1 by -1 delete attachment attachIdx of msg end repeat set label of msg to 7 end if end repeat end tell Enjoy, Jan Per Åström scripsit dd. Fri, 5 Sep 2008 21:09:16 +0200 (internet: @839) >Hi - I have been using this script for removing references to >attachments that does not exists. > >On Wed, Jun 11, 2008 at 2:02 PM, Jan M.J. Storms <[EMAIL PROTECTED]> wrote: >> adapted from some other script. I tested it and it works: >> >> tell application "PowerMail" >> set attachFolder to attachment folder >> >> set theMessages to current messages >> repeat with msg in theMessages >> set msgStatus to status of msg >> >> set attachList to attachments of msg >> if (count items of attachList) > 0 then >> repeat with attachIdx from (count items of >attachList) to 1 by -1 >> delete attachment attachIdx of msg >> end repeat >> end if >> end repeat >> end tell >> >> Success, >> >> Jan >> >> >> > >Works perfect! However I still have to problems: > >1. Finding mails with references to missing attachments. I have done >it manually but I have many thousands messages with attachments - some >of them with lost attachment. Is it possible to make a script to find >all those and select them, or even better label them yellow (or >whatever). > >2. I would also like the script above to label updated emails, I >suppose it only requires one line of code but I dont know >Applescript.... > >Thanks! > >/per å