Cleaning up Eudora...
Cleaning up Eudora...
- Subject: Cleaning up Eudora...
- From: David Crowe <email@hidden>
- Date: Tue, 12 Nov 2002 13:06:57 -0700
Richard;
Eudora doesn't handle 'where' clauses etc.
This is a little routine I use for email cleanup. It does everything
with a repeat loop and consequently is as slow as molasses. But, if
you don't mind going for lunch while it runs, it may be useful. I
wouldn't advise letting it run in the background, because it will be
trying to modify mailboxes that you might be using.
- David Crowe
on Cleanup(MailboxName, ndays)
tell application "Eudora"
set MsgCount to number of messages in mailbox MailboxName
set DeleteCount to 0
set StartTime to current date
repeat with i from MsgCount to 1 by -1
if (local seconds of message i in mailbox
MailboxName) < ,
((current date) - ndays * 60 * 60 * 24) then
move (message i in mailbox
MailboxName) to end of mailbox "Trash"
set DeleteCount to DeleteCount + 1
end if
end repeat
end tell
end Cleanup
on run
Cleanup("Out", 60)
Cleanup("Pending", 120)
Cleanup(" Another Look, Recent", 120)
tell application "Eudora"
with timeout of 1600 seconds
compact
end timeout
end tell
end run
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.