Avatar of 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
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.

OutlookVB Script

Avatar of undefined
Last Comment

8/22/2022 - Mon
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
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

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