IPhoto 9.4 to Outlook 2011 V 14.2.4 [10.8.2] Need AS specialist :-)

Question

Hi
Is there anything to do with Outlook 2011 V 14.2.4 (with Apple script) to make it work (Sending email from iPhoto to outlook) with iPhoto 9.4 in Mountain Lion .
The script made by Apple in iPhoto 9.4 (Contents/Ressources/ Scripts) is :
-- Microsoft Entourage.applescript
-- Scope
-- Copyright (c) 2003 Apple Computer. All rights reserved.
on mail_images(email_subject, default_address, image_count, new_files,new_captions, new_comments, cancel_string)
          try
                    tell application "Microsoft Outlook"
  activate
                              set theAccount to default account
                              tell drafts of theAccount
                                        set new_message to make new outgoing message with properties {subject:email_subject, content:"",account:theAccount}
                              end tell
                              set sig to content of new_message
                              tell new_message
                                        if image_count is 0 then
                                                  set the content to new_captions
                                        else
                                                  set the content to return & return
                                        end if
                                        repeat with image_idx from 1 to image_count
                                                  set this_caption to item image_idx ofnew_captions
                                                  set this_comment to item image_idx ofnew_comments
                                                  set comments to ""
                                                  if this_caption is not " " then
                                                            set comments to this_caption & return
                                                  end if
                                                  if this_comment is not " " then
                                                            set comments to comments &this_comment & return
                                                  end if
                                                  if comments is not "" then
                                                            set the content to content & comments &return
                                                  end if
                                                  set this_imagefile to item image_idx of new_files
  -- convert the image path from UNIX to Mac
                                                  set this_imagefile_path to (POSIX filethis_imagefile) as string
  make new attachment at new_message with properties {filethis_imagefile_path)}
                                        end repeat
                                        set the content to content & sig
                              end tell
  open new_message
                    end tell
          on error error_message number error_number
  log error_message & " " & error_number
                    if the error_number is not -128 then
                              tell application "Finder"
                                        beep
  display dialog error_message buttons {cancel_string} default button 1
                              end tell
                    end if
          end try
end mail_images
property ASDScriptUniqueIdentifier : "Microsoft Outlook.applescript"
This do not work with Outlook 2011.
Outlook client is correctly select in the iPhoto preferences.
When i want to send a picture, Outlook opens but no window opens with the new message with the picture ...
Any idea ?
Thx !

Answer 1

Hi
Is there anything to do with Outlook 2011 V 14.2.4 (with Apple script) to make it work (Sending email from iPhoto to outlook) with iPhoto 9.4 in Mountain Lion .
The script made by Apple in iPhoto 9.4 (Contents/Ressources/ Scripts) is :
-- Microsoft Entourage.applescript
-- Scope
-- Copyright (c) 2003 Apple Computer. All rights reserved.
on mail_images(email_subject, default_address, image_count, new_files,new_captions, new_comments, cancel_string)
          try
                    tell application "Microsoft Outlook"
  activate
                              set theAccount to default account
                              tell drafts of theAccount
                                        set new_message to make new outgoing message with properties {subject:email_subject, content:"",account:theAccount}
                              end tell
                              set sig to content of new_message
                              tell new_message
                                        if image_count is 0 then
                                                  set the content to new_captions
                                        else
                                                  set the content to return & return
                                        end if
                                        repeat with image_idx from 1 to image_count
                                                  set this_caption to item image_idx ofnew_captions
                                                  set this_comment to item image_idx ofnew_comments
                                                  set comments to ""
                                                  if this_caption is not " " then
                                                            set comments to this_caption & return
                                                  end if
                                                  if this_comment is not " " then
                                                            set comments to comments &this_comment & return
                                                  end if
                                                  if comments is not "" then
                                                            set the content to content & comments &return
                                                  end if
                                                  set this_imagefile to item image_idx of new_files
  -- convert the image path from UNIX to Mac
                                                  set this_imagefile_path to (POSIX filethis_imagefile) as string
  make new attachment at new_message with properties {filethis_imagefile_path)}
                                        end repeat
                                        set the content to content & sig
                              end tell
  open new_message
                    end tell
          on error error_message number error_number
  log error_message & " " & error_number
                    if the error_number is not -128 then
                              tell application "Finder"
                                        beep
  display dialog error_message buttons {cancel_string} default button 1
                              end tell
                    end if
          end try
end mail_images
property ASDScriptUniqueIdentifier : "Microsoft Outlook.applescript"
This do not work with Outlook 2011.
Outlook client is correctly select in the iPhoto preferences.
When i want to send a picture, Outlook opens but no window opens with the new message with the picture ...
Any idea ?
Thx !