Resend mail script stopped working under 365 Outlook.

I have the following script in a ‘Service’ dedicated to Outlook.

It worked a dream for years, well as you see from 2010 forward, and broke under 365.

Of course, as a Service it is created in Automator hence the additions to the script.

on run {input, parameters}
	
	-- Resend Message v1.0 (2010-10-27)
	-- an applescript by Barry Wainwright <mailto:barryw@mac.com>
	-- 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
	
	
	return input
end run

Hope somebody knows why it broke. I seem to not be able to find it.