Re: Eudora: sending to more than 50 recipients
Re: Eudora: sending to more than 50 recipients
- Subject: Re: Eudora: sending to more than 50 recipients
- From: Chris Page <email@hidden>
- Date: Tue, 23 Oct 2001 16:11:19 -0700
[Sent to me privately, but I'll answer this on the list.]
nigh on 2001.10.23 3:43 PM, Will Gosney at email@hidden wrote:
>
Is there a way to get the palm desktop to send email via Eudora vs
>
Emailer? I have Eudora set as the default in Internet config?
If you look in the Palm Desktop scripts folder you'll see a script named
something like "Create ClarisEmailer Message". Make a copy of that, then
modify it to create messages using Eudora instead of Emailer, then assign
that script to the e-mail field (using the pop-up menu to the right of the
field).
The next version of Palm Desktop will use a more generic script that uses
the Internet preferences to determine which mail program to use. For your
convenience, here's a copy of that script (note that I'm releasing this
without warranty or support):
using terms from application "Palm Desktop"
set fullName to full name of address 0
set emailAddr to text of address 0
end using terms from
if (emailAddr is "" and fullName is "") then
-- if there is no e-mail address or name, go ahead and create an empty
-- address URL, which will create an empty message with no address.
-- Alternatively, could change this to exit the script, to do nothing.
set emailAddr to "
mailto:";
else
-- if the address starts with "
mailto:"; or contains name delimiters
-- ('<>', '()', '""') assume it is exactly the way the user wants it and
-- don't alter it. Otherwise, try to add the user name to the address.
if emailAddr does not start with "
mailto:"; then
if not (emailAddr contains "<" or emailAddr contains "(" or \
emailAddr contains "\"") then
set emailAddr to fullName & "<" & emailAddr & ">"
end if
set emailAddr to "
mailto:"; & emailAddr
end if
end if
-- Replace characters not allowed in URLs with their hex encoding
set replacementChars to {{" ", " "}, {"<", "<"}, {">", ">"}}
repeat with replaceItem in replacementChars
set emailAddr to replaceText(emailAddr, item 1 of replaceItem, \
item 2 of replaceItem)
end repeat
-- Create a new message with the address, using the user's preferred mail
-- application
open location emailAddr
-- A utility function to replace one sub-string with another
on replaceText(theText, findStr, replaceStr)
set OldDelims to AppleScript's text item delimiters
set AppleScript's text item delimiters to findStr
set newText to text items of theText
set AppleScript's text item delimiters to replaceStr
set newText to newText as text
set AppleScript's text item delimiters to OldDelims
return newText
end replaceText
--
Chris Page
Mac OS Lead, Palm Desktop
Palm, Inc.
One of the symptoms of an approaching nervous breakdown is the belief that
one9s work is a giant talking wheel of cheese. - Bertell Russrand