Re: Eudora Help, Please
Re: Eudora Help, Please
- Subject: Re: Eudora Help, Please
- From: John Delacour <email@hidden>
- Date: Sun, 13 Jul 2003 01:34:28 +0100
- Mac-eudora-version: 6.0a26
At 4:54 pm -0700 12/7/03, Marconi wrote:
At 10:30 PM +0100 7/12/03, John Delacour wrote:
>This script will work for a selection in the In mailbox, which
must be frontmost. If you want it to work with other mailboxes, it
needs some modification.
It will always be the mailbox named "Spam."
Then write "Spam" instead of ":In", but the mailbox must be frontmost
and have the messages selected. It would be simpler to work with all
the messages rather than a selection, but uit makes no difference.
>I'm presuming you're running OS X.
Yup.
>set d to "1/1"
set _doc to "eu" & (current date) - (get date d) & ".txt"
set fU to "/tmp/" & _doc
Any reason I couldn't create this file elsewhere? Like in my own
home directory?
Of course not
set d to "1/1"
set _doc to "eu" & (current date) - (get date d) & ".txt"
set f to "" & (path to "cusr") & _doc as file specification
set fU to POSIX path of f
or
set f to "" & (path to "cusr") & "Received_from.txt" as file specification
set fU to POSIX path of f
> set m to a reference to message ""
set s to whole text of m
set end of _headerlist to text item 1 of s
move m to end of mailbox ":In"
Ummm, what does moving m accomplish?
Nothing but what you need.
> if _line begins with "Received: from" then
tell application "Eudora"
set selected text to _line & return
end tell
And when do we write this line to fu?
Did you run the script? Study what it does in the Event Viewer.
Also, I don't see where this limits itself to just the selected
messages in the mailbox. Is message "" something special?
It's the current message.
(Actually, when run, I'll be doing the whole "Spam" mailbox. I
wanted to limit it to just the selection while coding and testing
the script -- to minimize damage from things gone awry as I debug.)
That's much easier then:
tell app "Eudora" to set _junk to file of mailbox ":Spam"
set f to "" & (path to "cusr") & "Received_from.txt" as file specification
open for access f with write permission
open for access _junk
repeat
try
set s to read _junk until return
if s begins with "Received: from" then write s to f
on error
exit repeat
end try
end repeat
close access _junk
close access f
tell app "Eudora" to open {f}
--JD
.
_______________________________________________
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.