Re: Misc Eudora questions
Re: Misc Eudora questions
- Subject: Re: Misc Eudora questions
- From: John Delacour <email@hidden>
- Date: Mon, 5 Aug 2002 11:27:09 +0100
I wrote:
By the way, you know you never need to send messages out to see the
result; you can just send them to the desktop with a special
personality and read them immediately. In fact you could automate
it so that the raw message for sending immediately opened for you in
a text window.
Here's how to do it. I'm afraid that in spite of the Finder kicking
at the end, the Finder will not update properly, so you may need to
try a few times and be content for the Finder not to see the last
item. Plus ga change et plus c'est la mjme chose!
set dsk to path to desktop folder
tell application "Finder" to list folder dsk
--return result
set smtp to "!mac!" & dsk & "!test!0000"
tell application "Eudora"
set rAddress to get setting 5
if not (exists personality "junk") then
set name of (make personality) to "junk"
end if
tell personality "junk"
set setting 3 to "!" & dsk & "mail:in"
set setting 5 to rAddress
set setting 4 to smtp
set setting 91 to "y"
end tell
set msg to (make message at end of mailbox 2)
set p to a reference to personality "junk"
tell msg
set its personality to p
set field "subject" to "uutest"
set field "to" to rAddress
set field "" to ASCII character 193
set field "X-Eudora-Version" to "5.2a5"
queue
end tell
connect with sending without checking
end tell
tell application "Finder"
activate
open item dsk
update item dsk
document files in item dsk whose name begins with "D.mac"
open last item of result using application file id "ttxt"
end tell
_______________________________________________
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.