A reference to - usage examples for Eudora
A reference to - usage examples for Eudora
- Subject: A reference to - usage examples for Eudora
- From: Doug McNutt <email@hidden>
- Date: Fri, 8 Aug 2003 19:44:26 -0600
Lest I be chastised as a bitchy academic who just complains about meanings of words I offer these.
******
This one will move a block of selected messages to a junk mailbox and mark them for removal from the server. I find it useful when I read the boss' messages in the morning before he gets in.
******
tell application "Eudora"
set storbx to a reference to mailbox "SPAM"
repeat
try
set status of message 1 to already read
on error
exit repeat -- Quit the loop when messages are gone
end try
set thismsg to a reference to message 1
if is on server of message 1 then
set will be deleted of message 1 to true
end if
move thismsg to end of storbx
end repeat
end tell
******
And this which will "fix" dates of a block of selected messages though it still asks about saving each one. I don't think there is any way to fix that. The original concept is from Barry Wainwright.
******
tell application "Eudora"
activate -- have to click the Save boxes
set TID to AppleScript's text item delimiters
set AppleScript's text item delimiters to {";"}
set storbx to a reference to mailbox (name of front window)
repeat
try
set thismsg to a reference to message 0 -- this will not error
get field "Date" of message 0 -- this one will error
on error
exit repeat -- Quit the loop when messages are gone
end try
set rcvd to field "received" of message 0 -- multiple Received's as a list.
try
set rcvtext to item 1 of rcvd -- fails if rcvd is not a list
on error
set rcvtext to rcvd -- rcvd must have been a text variable
end try
set rdate to last text item of rcvtext
set field "Date" of message 0 to rdate
-- open thismsg -- Doesn't kill the alert dialog.
-- save thismsg
-- close thismsg
move thismsg to end of storbx
end repeat
set AppleScript's text item delimiters to TID
end tell
******
--
--> There are 10 kinds of people: those who understand binary, and those who don't <--
_______________________________________________
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.