Re: "Quick Mail" applescript
Re: "Quick Mail" applescript
- Subject: Re: "Quick Mail" applescript
- From: Rob Jorgensen <email@hidden>
- Date: Fri, 30 Jul 2004 09:04:01 -0400
At 9:31 PM +1200 7/30/04, Jamie Kahn Genet wrote:
>
Can someone who upgraded from 10.2 to 10.3 email me or give me a URL for
>
the "Quick Mail" AppleScript (found in Script Menulet), please? It does
>
not come with Panther.
Here's the one that I have on my OS X 10.2.8 system. I don't use Mail so I can't vouch for the script (some of Apple's scripts for Mail were found to be buggy).
Note: Line wrapping might have occurred during the transmission of this message.
-- Rob
(*
Quick Mail
Copyright ) 2001 Apple Computer, Inc.
You may incorporate this Apple sample code into your program(s) without
restriction. This Apple sample code has been provided "AS IS" and the
responsibility for its operation is yours. You are not permitted to
redistribute this Apple sample code as "Apple sample code" after having
made changes. If you're going to redistribute the code, we require
that you make it clear that the code was descended from Apple sample
code, but that you've made changes.
*)
property default_address : ""
property carriage_return : return as text
if the default_address is "" then
display dialog "Enter the default address:" default answer default_address
set the default_address to text returned of the result
end if
repeat
display dialog "Default address: " & default_address & carriage_return & carriage_return & ,
"Enter the subject:" default answer "" buttons {"Cancel", "Set Prefs", "OK"} default button 3
copy the result as list to {mail_subject, button_pressed}
if the button_pressed is "OK" then
exit repeat
else if the button_pressed is "Set Prefs" then
display dialog "Enter the default address:" default answer default_address buttons {"Skip", "OK"} default button 2
set the default_address to text returned of the result
end if
end repeat
--Alter Spaces in subject for URL format
set {TID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, " "}
set words_of_subject to every text item of mail_subject
set AppleScript's text item delimiters to " "
set mail_subject to every item of words_of_subject as text
set AppleScript's text item delimiters to TID
open location "
mailto:"; & default_address & "?subject=" & mail_subject
_______________________________________________
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.