This ain't exactly a barn burner, but here's an AppleScript to add photos selected in iPhoto in the Shutterfly SmartUpload application. It's based heavily on Apple's "Open in Preview.scpt" script.
tell application "iPhoto"
activate
try
copy (my selected_images()) to these_images
if these_images is false then error "Please select some images."
-- get image paths and convert POSIX paths to alias references
set these_files to {}
repeat with i from 1 to the count of these_images
set this_file to the image path of item i of these_images
set this_file to (this_file as POSIX file) as alias
set the end of these_files to this_file
end repeat
on error error_message number error_number
if the error_number is not -128 then
display dialog error_message buttons {"OK"} default button 1
end if
return "user cancelled"
end try
end tell
tell application "Shutterfly SmartUpload?"
activate
repeat with i from 1 to the count of these_files
set this_file to item i of these_files
--open this_file
AddImage this_file
end repeat
end tell
on selected_images()
tell application "iPhoto"
try
-- get selection
set these_items to the selection
-- check for single album selected
if the class of item 1 of these_items is album then error
-- return the list of selected photos
return these_items
on error
return false
end try
end tell
end selected_images
[robg adds: I haven't tested this one...]
Mac OS X Hints
http://hints.macworld.com/article.php?story=20030421104517797