This hint is over on MacOSXhints. It is an AppleScript that has Mail 
speak the name of whomever is sending you mail. Kind of neat if you are 
like having your Mac tell you what it is up to.

(Note: You will need Script Editor to get this to work)

Paste the following into Script Editor. Create a new rule for ALL mail 
messages that runs this script and make sure that rule is the first in 
the rules list. More info is available at http://www.macosxhints.com

                                Jerry

p.s. There is also a link there to info that will have Mail read the 
entire message to you if you wish.

on perform_mail_action(info)
        tell application "Mail"
                set theMessages to |SelectedMessages| of info
                repeat with thisMessage in theMessages
                        set AppleScript's text item delimiters to {""}
                        set thisSender to sender of thisMessage as string
                        set brkpos to offset of "<" in thisSender
                        if (brkpos is greater than 1) then
                                set thisSender to (text items 1 through (brkpos 
- 1)) of thisSender 
as string
                                if thisSender contains "\"" then
                                        set AppleScript's text item delimiters 
to {"\""}
                                        set thisSender to text item 2 of 
thisSender as string
                                end if
                        else
                                if (brkpos is equal to 1) then
                                        set thisSender to (text items 2 through 
-1) of thisSender as string
                                end if
                                set AppleScript's text item delimiters to {"@"}
                                set thisSender to text item 1 of thisSender as 
string
                        end if
                        tell application "Finder" to say "Mail from " & 
thisSender
                end repeat
        end tell
end perform_mail_action

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/enriched
Size: 6458 bytes
Desc: not available
Url : 
http://www.math.louisville.edu/pipermail/macgroup/attachments/20030306/86639f3c/attachment.bin
 

Reply via email to