iPhoto script

[Andrew M. Miller]

Title: iPhoto script

(Sorry for the HTML...but wanted to keep the script as intact as possible)

Apple just released some Applescripts to allow emailing a picture direct from iPhoto (make new message, attach picture, etc.) Unfortunately, the Applescript is written for Mail. I use both Entourage X and Entourage 2001 (for PGP stuff). Is there an intrepid AppleScripter out there who could rewrite the script for either or both?

The only part of the script that specifically calls the Mail client is the very end. Here it is. (it does reference some variables earlier.) If you want the full script, you can download it from http://www.apple.com/applescript/iphoto/

Thanks for any help.

       -- ADD THE IMAGES TO A NEW MAIL MESSAGE
       tell application "Mail"
            activate
           set the new_message to ¬
                make new compose message at beginning of every compose message
           tell new_message
               make new recipient at beginning of to recipients with properties {address:default_address, display name:default_recipient}
                set the subject to email_subject
               set the content to return --"Here are some images for you." & return
               tell content
                   repeat with this_imagefile in the new_files
                       set this_imagefile to the contents of this_imagefile
                       make new text attachment with properties {file name:this_imagefile} at before the first word of the first paragraph
                   end repeat
               end tell
           end tell
           make new message editor at beginning of every message editor
           set compose message of first message editor to new_message
       end tell
   on error error_message number error_number
       if the error_number is not -128 then
           tell application "Finder"
                activate
               beep
               display dialog error_message buttons {"Cancel"} default button 1
            end tell
       end if
   end try
end process_list
--
Andrew Miller
Network Support
Bob Jones University
[EMAIL PROTECTED]
864.370.1800 x. 3837