Re: Eudora Help, Please
Re: Eudora Help, Please
- Subject: Re: Eudora Help, Please
- From: John Delacour <email@hidden>
- Date: Sat, 12 Jul 2003 22:30:45 +0100
- Mac-eudora-version: 6.0a26
At 11:16 am -0700 12/7/03, Marconi wrote:
tell application "Eudora"
open a text document
set spamlist to selection
set HowMany to count of messages in spamlist
repeat with thismessage from 1 to HowMany
set show all headers to true
set ReceivedLine to text of (get field "Received: from")
Paste ReceivedLine into text document -- followed by a newline
end repeat -- move on to next message
end tell
I hope it's clear what I'm trying to do... Can anyone guide me to
the correct syntax?
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.
I'm presuming you're running OS X.
set d to "1/1"
set _doc to "eu" & (current date) - (get date d) & ".txt"
set fU to "/tmp/" & _doc
set f to POSIX file fU
open for access f with write permission
set eof f to 0
write return to f
close access f
set my text item delimiters to return & return
set _headerlist to {}
tell application "Eudora"
repeat
try
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"
on error e
exit repeat
end try
end repeat
open {f}
end tell
set my text item delimiters to ""
repeat with h in _headerlist
set _lines to paragraphs of h
repeat with _line in _lines
if _line begins with "Received: from" then
tell application "Eudora"
set selected text to _line & return
end tell
end if
end repeat
end repeat
--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.