Mac Forum / Applications / Eudora / September 2004

Assuming this is not spam, talk to Earthlink about an exception.
Alternately, create nicknames that include say half of the email
addresses (or less, depending on how many they are) and send the emails
in groups.  

To be not-spam, the messages must have been solicited directly by each
of the addressees, with the solicitation confirmed by an opt-in process.
(In other words, make sure someone isn't arranging a mailbomb by signing
up someone else's address.  If someone asks to be on your list, send
them an email to confirm it; if they fail to respond in the affirmative,
send them no further messages.)

The script below will have Eudora send no mopre than 10 sendable
messages every 10 minutes. You can easily change both numbers by editing
those 2 properties.

It concerns itself only with messages that are sendable. So make sure
the status of the messages you want it to act upon is "Sendable". (A
message is sendable when it is saved without queueing it. You can change
a message's status by selecting it in the Out box and go to
Message->Change-Status->Sendable). It should not affect queued messages.

(*
Paste into Script Editor (Beware of linebreaks inserted by Usenet
entities!)
Save as "Application" and make sure to chek the "Stay Open" option
*)

-- settings:
property interval : 10 -- minutes
property queuelength : 10 -- messages per interval minutes

on idle
  tell application "System Events"
     if exists (every application process whose creator type is "CSOm")
then
        tell application "Eudora"
           try
              set MessageCount to (get count of messages of mailbox
named "Out")
              set aMessage to 1
              set queueables to {}
              repeat MessageCount times
                 set {theMessage, itsStatus} to (get {id, status} of
message aMessage of mailbox named "Out")
                 if (itsStatus is sendable) then
                    set queueables to queueables & theMessage
                    if (count of items of queueables) > (queuelength -
1) then
                       exit repeat
                    end if
                 end if
                 set aMessage to aMessage + 1
              end repeat
              repeat with aMessage in queueables
                 set status of message id aMessage of mailbox named
"Out" to queued
              end repeat
              if not queueables = {} then
                 connect with sending
              end if
           on error m number n
              log {n, m}
           end try
        end tell
     end if
  end tell
  return interval * 60
end idle