mark deleted items as read in Microsoft Outlook

DeleteItemsMarkAsRead

if application "Microsoft Outlook" is running then
	tell application "Microsoft Outlook"
		set deletedMessages to messages of deleted items
		repeat with aMessage in deletedMessages
			if is read of aMessage is not true then
				set aMessage's is read to true
			end if
		end repeat
	end tell
end if