Hi Michael,
When walking through the code, it fails at that same line as befo
Set Folder = Application.Session.GetDefaultFolder(olFolderSpam)
I assume that you believe that it has to do with not finding the correct
folder?
Will the function you gave me tell me this? If so, how do I run this within
Outlook (I am an advanced programmer in VBA for access and excel, but outlook
is a different animal).
Thanks for your continued support!
"Michael Bauer [MVP - Outlook]" wrote:
Am Sun, 20 Aug 2006 14:56:02 -0700 schrieb Ariel:
Ariel, please walk through the code execution step by step (F8) and watch
what happens. Don´t use an "On Error Resume Next" statement for debugging.
It all depends on that the folder will be found, so you don´t need to
"assume" but to know the folder :-)
BTW: Any folder named "Spam" is not the default Junk Folder.
--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.VBOffice.net --
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!