Avatar of ouch_mybrain_
ouch_mybrain_
 asked on

Outlook VBA Code - Delete Items in Sub Folder in additional mailbox when Outlook Opens (Code provided so far)

Hello Experts,

I have found a pre-written macro for Outlook (VBA) which when run will allow me to pick a folder and then delete items older than 6 months (which I have since changed to 1 day) from the picked folder.

The folder I want to delete the items in is in an additional mailbox; I can select it just fine using the "Application.Session.PickFolder" function.

I want to be able to change the pick folder function into something more static. I know the folder I want to delete the items from, infact this folder won't change. So I would like to replace the function with a reference to the location of the folder. I imagine it would be something like "mailbox.[mailboxname].[subfolder]". But I really am not sure.

Can someone help provide me with the code I need to put into this part? The code is below:

Sub DeleteOlderThan1day()
 
Dim oFolder As Folder
Dim Date1day As Date
Dim ItemsOverMonths As Outlook.Items
 
Dim DateToCheck As String
 
Date1day = DateAdd("d", -1, Now())
Date1day = Format(Date1day, "mm/dd/yyyy")
 
 
Set oFolder = Application.Session.PickFolder 'or set your folder
 
DateToCheck = "[Received] <= """ & Date1day & """"
 
Set ItemsOverMonths = oFolder.Items.Restrict(DateToCheck)
 
For i = ItemsOverMonths.Count To 1 Step -1
    ItemsOverMonths.Item(i).Delete
Next
 
 
Set ItemsOverMonths = Nothing
Set oFolder = Nothing
 
 
End Sub

Open in new window


I also intend to make this sub run as part of Outlook being opened, but I think i will be OK with this part.

Thanks.
OutlookVB Script

Avatar of undefined
Last Comment
ouch_mybrain_

8/22/2022 - Mon
ASKER CERTIFIED SOLUTION
Chris Bottomley

Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question
ouch_mybrain_

ASKER
That's just simply amazing. It works so well, thank you!!!!! :)))))))
Your help has saved me hundreds of hours of internet surfing.
fblack61