Hi Michael,

I am placing the code in the ThisOutlookSession module, so I assume that the
path is "Personal Folders\Spam."

I am not getting any error message now, but nothing is happening?

Thanks for your help.

Ariel

"Michael Bauer [MVP - Outlook]" wrote:

Am Fri, 18 Aug 2006 08:24:51 -0700 schrieb Ariel:

Hallo Ariel,

does the latter sample raise the same error? Where do you insert that code,
is it the module ThisOutlookSession (VBA) or a custom form (VBS)?

In VBS the constants are unknown, instead use their values directly; for
olFolderJunk it´s 23, for olFolderInbox it´s 11.

Here´s a samle for getting folders by their path:
www.outlookcode.com/d/code/getfolder.htm

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


Guten tag, Michael.

I am using Outlook 2003. The Spam folder is a folder under Personal
Folders.
This code does not appear to find that folder, and thus it ends without
doing
anything.

Danke,

Ariel

"Michael Bauer [MVP - Outlook]" wrote:

Am Thu, 17 Aug 2006 18:18:02 -0700 schrieb Ariel:

That´s a sampel for getting the Junk folder in OL 2003. If you use OL
2000
then you do not have that standard folder.

You need to know what folder you´re looking for. If it´s a subolder of
the
Inbox e.g. then you could also write:

Dim Folder as Outlook.Folder
Dim Items as Outlook.Items

Set Folder=Application.Session.GetDefaultFolder(olFold erInbox)
Set Folder=Folder.Folders("name")
Set Items=Folder.Items

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


Hi Michael,

I am getting an error on the line:

Set Items = Application.Session.GetDefaultFolder(olFolderJunk) .Items

Stating "Could not complete the operation. One or more parameter values
are
not valid."

Help!!!

Thanks for your quick repsonse and assistance!



"Michael Bauer [MVP - Outlook]" wrote:

Am Wed, 16 Aug 2006 12:38:01 -0700 schrieb Ariel:

Sample for the Junk folder:

Dim Items as OUtlook.Items
Set Items=Application.Session.GetDefaultFolder(olFolde rJunk).Items
While Items.Count
Items(1).Delete
Wend

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --


What code can I use to delete all messages in a folder (e.g. spam mail
folder)?

Thanks in advance!