New Identity and resend script stopped working.

-- Resend Message v1.0 (2010-10-27)

-- an applescript by Barry Wainwright <mailto:*** Email address is removed for privacy ***>

-- Restores the 'Resend' function that was in Entourage but never made it to Outlook

-- when the script is run, with a sent message selected or open, a new copy of the 

--    message will be created, with all the original recipients and attachements and 

--    from the correct sending account.

-- This script released under a Creative Commons Attribution, NonCommercial, ShareAlike 2.0 England & Wales License.

-- see <http://creativecommons.org/licenses/by-nc-sa/2.0/uk/> for full details

tell application "Microsoft Outlook"

try

set theMessage to item 1 of (get current messages)

if not (was sent of theMessage) then error -98

on error

display dialog "This script acts only on already sent messages. Please select a sent message and run the script again." buttons {"Abort"} default button 1

return -99

end try

set theSource to source of theMessage

set theAccount to account of theMessage

set newmessage to make new outgoing message with properties {account:theAccount, source:theSource}

open newmessage

end tell