Visiting all messages
Visiting all messages
- Subject: Visiting all messages
- From: Gil Dawson <email@hidden>
- Date: Fri, 30 Sep 2005 09:26:34 -0700
Title: Visiting all messages
Hi--
I wanted an AppleScript that would visit every message in my
Eudora mailboxes and nested mail folders. It took quite a bit of
experimenting to figure out how Eudora wanted things to be said, but I
think I finally got it, so I thought I'd share it with y'all.
I'd appreciate any suggestions to make it better. Or, if
you've done something similar, I'd like to see how yours works.
--Gil
property zero : 0
property recursionLevel
: zero
tell application "Eudora"
my VisitBoxes(a reference to application "Eudora")
end tell
on VisitBoxes(refObj)
set recursionLevel
to recursionLevel + 1
set indent
to ""
repeat with j
from 1 to
recursionLevel
set
indent to indent & "
"
end repeat
tell application
"Eudora"
tell refObj
set
i to
1
repeat
while exists mailbox (i)
log indent & "Mailbox (" & i & ")="
& name of mailbox (i) & ¬
": "
& (count of messages in
mailbox (i))
set
i to
i + 1
end
repeat
set
j to
1
repeat
while exists mail folder
(j)
log indent & "mail folder (" & j & ")="
& name of mail
folder (j)
my
VisitBoxes(a reference to mail folder (j))
set
j to
j + 1
end
repeat
end tell
end tell
set
recursionLevel to recursionLevel - 1
end
VisitBoxes
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden