The following script worked nice with Entourage 2004 & 2008 but Outlook 2011 throws an error at the line "open theFolder" (mail folder doesen't understand the message "open"). Any hints how to get a new window where "mail folder" is selected so that all mails of this folder are shown?
tell application "Microsoft Outlook"
-- aktuell ausgewählte Nachricht bzw. Nachrichten übertragen
set selectedMessages to current messages
-- Benutzer warnen und Vorgang beenden, wenn keine Nachrichten ausgewählt sind
if selectedMessages is {} then
display dialog "Bitte wählen Sie zuerst eine Nachricht aus, bevor Sie dieses Skript ausführen." with icon 1
return
end if
if (count of selectedMessages) = 1 then
set theMessage to item 1 of selectedMessages
set theFolder to folder of theMessage
open theFolder
end if
end tell