Safari Mail    comment

tell application "Safari"
set the_text to text of document of window 1
set the_subject to URL of document of window 1
end tell

tell application "Mail"
set newMessage to make new outgoing message with properties {subject:the_subject, content:the_text & return & return}
tell newMessage
set visible to true
end tell
activate
end tell

 

 

 


©2003 The Liquid Information Company    www.liquidinformation.org