![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
|
|||
|
|||
![]()
What code can I use to delete all messages in a folder (e.g. spam mail folder)?
Thanks in advance! |
#2
|
|||
|
|||
![]()
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! |
#3
|
|||
|
|||
![]()
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! |
#4
|
|||
|
|||
![]()
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! |
#5
|
|||
|
|||
![]()
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! |
#6
|
|||
|
|||
![]()
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! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
download messages without deleting messages on server problem | Eric | Outlook - Installation | 1 | March 21st 06 07:21 PM |
deleting downloaded messages from newsgroups | R..VENKATARAMAN | Outlook Express | 4 | March 21st 06 05:24 AM |
Deleting messages in Outlook XP | Dean | Outlook - General Queries | 1 | March 14th 06 02:23 PM |
OE EXP. 6.0 Deleting Messages | ralphS | Outlook Express | 1 | February 15th 06 08:45 PM |
deleting messages | Shanny | Outlook Express | 3 | January 18th 06 05:44 PM |