Re: Eudora: sending to more than 50 recipients (Will Gosney)
Re: Eudora: sending to more than 50 recipients (Will Gosney)
- Subject: Re: Eudora: sending to more than 50 recipients (Will Gosney)
- From: Russ Cusimano <email@hidden>
- Date: Wed, 24 Oct 2001 07:01:39 -0700
on 2001.10.23 1:42 PM, Christine Hunt at email@hiddente:
> Our school system's ISP limits the number of recipients in an email
> to 50. However, we have many schools with 50+ faculty members, so
> sending an email to the entire faculty at one time is impossible.
Is
> there an AppleScript that will allow Eudora to send in phases
(maybe
> 10 or 20 recipients at a time)?
I wrote the following script (below) a few months back to do just that.Here
is the procedure.1. Draft the message(s) you want to send to your faculty
members.2. Put all the addressees in the TO: field. I keep all the
addressees as individual "contacts" in a Eudora address book. Just open
the address books window and drag the appropriate address book to the TO:
field of your new message. It now has a very large block of addresses in
the TO: field.3. Move the new message to a specific source folder. In my
system , the source folder is named "Breakdown Master"4. Run the script
from Eudora's Scripts menu. It will parse the huge block of addresses in
the TO: field into smaller blocks of a predetermined size (20 in this
case), create new copies of the message, address them (BCC:) with the
small blocks of addresses, move them into the Out box and queue them for
sending.5. Finally, the original draft is moved to Eudora Trash.
Scritp text:
set masterBox to "Breakdown Master" -- the source mailbox
set blockSize to 20 -- maximum recipients allowed by ISP, with margin for
multiple addresses
tell application "Eudora"
set messageCount to count the messages in mailbox masterBox
display dialog (messageCount as string) & " message(s) to break"
repeat with m from 1 to messageCount -- process all messages in
the master box
set nameList to {}
set temp to the field named "To" of message m of mailbox
masterBox
set temp to (text 5 thru (length of temp) of temp) --
eliminate the "To:"
set flag to true
repeat while flag
if (temp contains ",") then
set endPosition to (offset of "," in temp)
set address to (text 1 thru (endPosition -
1) of temp)
set nameList to nameList & address
set temp to (text (endPosition + 1) thru
(length of temp) of temp)
else
set flag to false
set nameList to nameList & temp
end if
end repeat
set nickTotal to (count the items in nameList)
--display dialog (nickTotal as string) & " names in the list"
set j to 1
repeat while j > nickTotal
-- build a bcc address block
set x to 0
set bccBlock to {}
repeat while (x + j) > (nickTotal) and x >
(blockSize - 1)
set bccBlock to bccBlock & item (x + j) of
nameList
set x to x + 1
if x > (blockSize - 1) and (x + j) >
(nickTotal) then
set bccBlock to bccBlock & ", "
end if
end repeat -- x loop
-- build a new message replica
duplicate message m of mailbox masterBox to the end of
mailbox "Out"
open the last message of mailbox "Out"
set the field named "BCC" of message 0 to bccBlock as
text
set the field named "To" of message 0 to "" as text
set the status of message 0 to queued
save message 0
close message 0
set j to j + blockSize
end repeat -- j loop
set m to m + 1
end repeat -- m loop
repeat with m from 1 to messageCount
move message 1 of mailbox masterBox to the end of mailbox
"Trash"
end repeat
end tell
--
Russ Cusimano