I found part of this code here, ran it on Snow Leopard (10.6.4), and it worked for me.
on run
set mailClient to getDefaultMailClient() -- store application id
tell application id mailClient to activate -- tell mail client to do something
end run
-- Grab id of default mail client
on getDefaultMailClient()
set prefPath to (path to preferences as text) & "com.apple.LaunchServices.plist"
tell application "System Events"
try
value of property list item "LSHandlerRoleAll" of ?
(first property list item of property list item "LSHandlers" of ?
property list file prefPath whose value of property list items ?
contains "mailto")
on error
"com.apple.mail"
end try
end tell
end getDefaultMailClient
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…