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.