Re: OE reply to list
Re: OE reply to list
- Subject: Re: OE reply to list
- From: Paul Berkowitz <email@hidden>
- Date: Sun, 25 Aug 2002 23:57:43 -0700
On 8/25/02 11:23 PM, "Andy Wylie" <email@hidden> wrote:
>
after several false starts finding the provided tools wanting I got this
>
skanky thing together...
Andy,
I can't quite make out what this is doing, wading through all the 'tell
something to if' constructions. Are you just trying to set the account to
reply from an account other than the one you receive the messages at? How is
it you're receiving the messages at an account other than the one you're
subscribed from? Don't you have your Reply Preferences set to reply from the
account at which messages are received, rather than always from your default
account? That's in the Reply and Forward prefs.
You must have an unusual setup. I find replying to mailing lists very easy,
since I always reply from the account at which messages arrive. It's sending
new messages and forgetting to change the account that I always found
tricky. I wrote a script 'Mailing List Account' to take care of that - it
runs from a schedule every minute and always sets the account correctly for
all my mailing lists without my having to remember to even run the script.
The bit at the beginning using Jon's is just for resetting to defaults. You
can always omit that and just re-compile the script instead. After setting
up once, run the script from a schedule every 1 minute. You have to enter
your mailing lists with the Mailing List manager, of course. The setup lets
you choose which mailing lists to include in this scheme.
---------------------------------------
property MLAccount : ""
property listAddresses : {}
try -- Jon's Commands
set keyspressed to (keys pressed)
tell application "Outlook Express"
if keyspressed = {"Command", "Control"} and frontmost then set
{MLAccount, listAddresses} to {"", {}}
end tell
end try
if MLAccount = "" then
tell application "Outlook Express"
try
set POPNames to name of every POP account
on error
set POPNames to {}
end try
try
set IMAPnames to name of every IMAP account
on error
set IMAPnames to {}
end try
set allNames to POPNames & IMAPnames
set listAccount to choose from list allNames with prompt "Select
account for sending email to selected mailing lists:"
if listAccount is false then return
set accountName to item 1 of listAccount
if listAccount is in POPNames then
set MLAccount to POP account accountName
else if listAccount is in IMAPnames then
set MLAccount to IMAP account accountName
end if
set mailingListNames to name of every mailing list
set whichLists to choose from list mailingListNames with prompt
"Command-click or shift-click which mailing lists to send email from " &
(name of MLAccount) & " account:" with multiple selections allowed
if mailingListNames = false then return
repeat with i from 1 to (count whichLists)
set listName to item i of whichLists
set end of listAddresses to list address of mailing list
listName
end repeat
return
end tell
else
tell application "Outlook Express"
if (class of window 1 = draft window) then
set theMsg to window 1
set theRecipients to every recipient of theMsg
repeat with theRecipient in theRecipients
set theAddress to address of the address of theRecipient
if {theAddress} is in listAddresses then
set account of theMsg to MLAccount
exit repeat
end if
end repeat
end if
end tell
end if
--
Paul Berkowitz
_______________________________________________
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.