Script to nuke messages in Outlook 2011

Question

Level 2

232 points

Script to nuke messages in Outlook 2011

I have the following script for Entourage, and thought it would work under Outlook but it does not. it hangs on the first 'message'

Anybody know how to fix this?

FYI the script deletes a selected message immediately bypassing the trash.

on run
tell application "Microsoft Outlook"
if the class of the front window is message window then
set theMsg to the displayed message of the front window
my ProcessMsg(theMsg)
else
set theMessages to the selection
repeat with theMsg in theMessages
my ProcessMsg(theMsg)
end repeat
end if
end tell
end run

-- process the messages
on ProcessMsg(theMsg)
tell application "Microsoft Outlook"
move theMsg to deleted items folder
delete theMsg
end tell
end ProcessMsg

MBP, MM, MBP - 10.6 + Windooz XP on a hard partition

Posted on Mar 1, 2011 6:07 AM

Reply

Answer 1

Best reply

CoderN8

Level 1

10 points

Mar 1, 2011 12:37 PM in response to ChangeAgent

Outlook 2011 introduced a new command called "permanently delete". The old script tries to do a double-delete. It worked, but my Outlook client would hang for a long time before the script ended. Here's a new script that uses this new Outlook 2011 command:

tell application "Microsoft Outlook"
set theMsgs to the current messages -- selected messages
try
repeat with theMsg in theMsgs
permanently delete theMsg
end repeat
on error errMsg number errNum
set theSubject to subject of theMsg
set theFolder to name of «class stor» of theMsg
beep
display dialog errMsg & return & return & errNum & return & return & "(Erroring on message: " & theSubject & " in " & theFolder & ")" with icon 2
end try
end tell

Reply

Answer 2

ChangeAgent Author

Level 2

232 points

Mar 2, 2011 12:50 AM in response to CoderN8

Thnaks CoderN8

Works a dream! If you end the name of the script with > XXX\cD

Control D will operate it.

Thanks.

Reply

Answer 3

Oct 28, 2011 5:14 AM in response to ChangeAgent

Hey Guys just wanted to say thanks for the great script.

ChangeAgent just a quick question you mention creating the shortcut by adding > XXX\cD to the end of the name.

Is this in the Apple Script editor itself or just rename the file?

I saved the script as a script bundle...

Thanks.

Reply

Answer 4

ChangeAgent Author

Level 2

232 points

Apr 16, 2012 4:10 AM in response to Elfstones65

Elfstones65 wrote:

or just rename the file?

Sorry only just now realised I never answered. ad this to the title of your script in the Outlook script folder

\cD

Reply

Answer 5

Apr 16, 2012 4:41 AM in response to ChangeAgent

Thanks I managed to figure it out, 🙂. Also noticed today after installing the SP2 for the Office that the directory has changed...

to /Users/<user>/Library/Application Support/Microsoft/Office/Outlook Script Menu Items

Cheers

Reply

Answer 6

ChangeAgent Author

Level 2

232 points

Apr 16, 2012 5:06 AM in response to Elfstones65

Elfstones65 wrote:

Also noticed today after installing the SP2 for the Office that the directory has changed...

to /Users/<user>/Library/Application Support/Microsoft/Office/Outlook Script Menu Items

Yeah noticed that too. (and the install made me realise I never answered your question) and had a bit of a headache it wanted to rebuild the database after the install and looped telling it could not etc. Thank God for backups.

I have an other question, to do with deleting. If I nuke or delete something from the trash and I do a search for it, it is still there. I have a tread about this here: http://answers.microsoft.com/en-us/mac/forum/macoffice2011-macoutlook/deleted-me ssage-are-still-there-how-to-delete/dfad34d7-e8d7-4c0a-8f4e-52e458b43d82

Is this also the case for you? Or anybody for that matter have this problem.

Reply

Answer 7

Oct 5, 2012 7:49 AM in response to ChangeAgent

Thank you for this script, it has helped solve my desire to nuke the message from my Outlook 2011. I added a dialog to the script to ask for confirmation as sometime I little to quick with the keyboard shortcuts:

tell application "Microsoft Outlook"

set theMsgs to the current messages-- selected messages

try

set question to display dialog "Permanently Delete Message(s)?" buttons {"Yes", "No"} default button 2

set answer to button returned of question

if answer is equal to "Yes" then

repeat with theMsg in theMsgs

permanently deletetheMsg

end repeat

end if

on error errMsg number errNum

set theSubject to subject of theMsg

set theFolder to name of «class stor» of theMsg

beep

display dialog errMsg & return & return & errNum & return & return & "(Erroring on message: " & theSubject & " in " & theFolder & ")" with icon 2

end try

end tell

Reply

Answer 8

ChangeAgent Author

Level 2

232 points

Oct 5, 2012 8:59 AM in response to Sanman622

Nice one, with the script.

BTW, did you see in the earlier post? If you make the title > Nuke Message\cD, Control D will operate it.

Reply

Answer 9

Oct 5, 2012 11:15 AM in response to ChangeAgent

Yes I did, works like a charm.

Thanks

Reply

Answer 10

ChangeAgent Author

Level 2

232 points

Oct 5, 2012 1:05 PM in response to Sanman622

brilliant.

Reply