Comments on: Outlook Default Folders

By: JP

JP — Wed, 25 Mar 2009 03:23:00 +0000

You need to escape any HTML characters when posting comments. Hopefully this will print properly:

If Err.Number <> 1004

However it should have worked in the VBA code.

By: Doug Glancy

Doug Glancy — Sat, 21 Mar 2009 18:35:00 +0000

I forgot about the less than greater than brackets. There should be a "not equal" sign between "Err.Number" and "1004?. Let's see if it works between the VB brackets.

If Err.Number 1004

By: Doug Glancy

Doug Glancy — Sat, 21 Mar 2009 18:32:00 +0000

To add to JP’s suggestion, I’d try to test for the specific error, e.g., if deleting an undeletable folder generates an error 1004 then say, “If Err.Number 1004?. This further lessens the possibility that some other error is being cloaked by the On Error Resume Next statment.

By: JP

JP — Sat, 21 Mar 2009 02:14:00 +0000

One way is to simply attempt to delete the folder, wrapping it in an "On Error Resume Next/On Error Goto 0? pair. If it's a default folder, it won't be deleted. Use "If Err = 0? to set the boolean flag to True.

You could also try renaming the folder (default folders can't be renamed), if renaming causes an error, it's a default folder and you can exit the function. Although if you can make other folders non-renameable (is that a word?), this won't work to exclude non-default folders.

And finally you could write a routine to delete folders instead, simply ignoring errors that occur, and returns boolean True if the folder delete actually succeeded. A variation of my first suggestion, if you will.

By: Dick Kusleika

Dick Kusleika — Fri, 20 Mar 2009 17:07:00 +0000

Easier? Yes. The problem is that I don’t know Outlook very well. The only reason I “realized” that I couldn’t delete a default folder was because I inadvertently tried and failed. I don’t want to mask all the other things I’m not supposed to be doing until I know what they are. But for production, On Error would be better because I *do* want to mask what I don’t know.

By: Stan Scott

Stan Scott — Fri, 20 Mar 2009 15:48:00 +0000

An interesting approach, thanks. I wonder, though, whether it wouldn't be easier to add the line "On Error Resume Next" at the top of the routine.

Stan