--FlickrIt v.01b

--Created by Alan Joyce on 4/4/05
--Licensed under Creative Commons 2005

--Requires the changing of one variable, mentioned below, to fit your individual Flickr account.

set defaultLocation to path to pictures folder

copy (choose file with prompt "Please select the picture you want to upload to Flickr." default location defaultLocation invisibles "false") to chosenPicture
copy (chosenPicture) to picturepath

copy text returned of (display dialog "Please enter the desired picture title." default answer "My Picture") to desiredTitle

copy text returned of (display dialog "Please enter the desired picture description." default answer "A great photo.") to desiredDescription

tell application "Mail"
activate
end tell

tell application "Finder"
set visible of application process "Mail" to false
end tell

tell application "Mail"
set picture_message to (make new outgoing message at end of outgoing messages)
tell picture_message
make new to recipient at beginning of to recipients with properties {name:"Flickr Upload Service", address:"flickruploadaddress@flickr.com"} --Change this address to your Flickr upload address, which can be found here: http://www.flickr.com/profile_mailconf.gne

set the subject to desiredTitle
set the content to desiredDescription
tell content
make new attachment with properties {file name:picturepath} at before the first word of the first paragraph
end tell
end tell
send picture_message
end tell