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 telltell 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