Macro to empty junk mail folder

[andrew-k]

Can anyone show me the code for a macro that empties the junk mail folder?

 

[Diane Poremsky [MVP]]

How about...
R-click on the folder
Properties
Set AutoArchive to x days.
tools, options, other
enable autoarchive, run it every xx days

--
Diane Poremsky [MVP - Outlook]





EMO - a weekly newsletter about Outlook and Exchange:
(e-mail address removed)

You can access this newsgroup by visiting
http://www.microsoft.com/office/community/en-us/default.mspx or point your
newsreader to msnews.microsoft.com.

 

[andrew-k]

Thanks, Diane, but I want to create a macro that I can assign to a toolbar
button. The macro would delete the junk-mail folder contents whenever I want
to.
--
Best,
Andrew-K

How about...
R-click on the folder
Properties
Set AutoArchive to x days.
tools, options, other
enable autoarchive, run it every xx days

--
Diane Poremsky [MVP - Outlook]





EMO - a weekly newsletter about Outlook and Exchange:
(e-mail address removed)

You can access this newsgroup by visiting
http://www.microsoft.com/office/community/en-us/default.mspx or point your
newsreader to msnews.microsoft.com.

 

[Diane Poremsky [MVP]]

pay a visit to outlookcode.com and learn how to write code in outlook.

--
Diane Poremsky [MVP - Outlook]





EMO - a weekly newsletter about Outlook and Exchange:
(e-mail address removed)

You can access this newsgroup by visiting
http://www.microsoft.com/office/community/en-us/default.mspx or point your
newsreader to msnews.microsoft.com.

Thanks, Diane, but I want to create a macro that I can assign to a toolbar
button. The macro would delete the junk-mail folder contents whenever I
want
to.
--
Best,
Andrew-K

How about...
R-click on the folder
Properties
Set AutoArchive to x days.
tools, options, other
enable autoarchive, run it every xx days

--
Diane Poremsky [MVP - Outlook]





EMO - a weekly newsletter about Outlook and Exchange:
(e-mail address removed)

You can access this newsgroup by visiting
http://www.microsoft.com/office/community/en-us/default.mspx or point
your
newsreader to msnews.microsoft.com.

Can anyone show me the code for a macro that empties the junk mail
folder?

 

[Michael Bauer [MVP - Outlook]]

Here's a sample for how to delete the active folder:

http://www.vboffice.net/sample.html?mnu=2&pub=6&lang=en&smp=51&cmd=showitem

I haven't translated the message prompt, it's asking whether or not to
delete x items.

--
Best regards
Michael Bauer - MVP Outlook

: VBOffice Reporter for Data Analysis & Reporting
: Outlook Categories? Category Manager Is Your Tool
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Fri, 5 Sep 2008 03:31:01 -0700 schrieb andrew-k:

 

[Brian Tillman [MVP - Outlook]]

Thanks, Diane, but I want to create a macro that I can assign to a toolbar
button. The macro would delete the junk-mail folder contents whenever I
want
to.

How does this differ in any significant way from right-click>Empty?

 

[Michael Bauer [MVP - Outlook]]

In my opinion: Not at all. It only makes sense if you actually don't write
the macro yourself but get it written for free.

--
Best regards
Michael Bauer - MVP Outlook

: VBOffice Reporter for Data Analysis & Reporting
: Outlook Categories? Category Manager Is Your Tool
: <http://www.vboffice.net/product.html?pub=6&lang=en>


Am Fri, 5 Sep 2008 13:59:48 -0400 schrieb Brian Tillman [MVP - Outlook]:

 

[pcparadigm]

This works for me:

Public Sub DeleteJunkMail()
Dim myFolder As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim i As Long
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderJunk)
Set myItems = myFolder.Items

For i = myItems.Count To 1 Step -1
myItems.Remove i
Next

End Sub