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!