VBA pour supprimer les messages Outlook d'un dossier créé par l'utilisateur sur une certaine période

Question

Je cherche un extrait de code VBA pour supprimer les messages Outlook de six (6) mois ou plus et s'asseoir dans un dossier créé par l'utilisateur.

À quoi ressemble ce code?

Answer 1

Voici un exemple de script

Sub DeleteOlderThan6months() 

Dim oFolder As Folder 
Dim Date6months As Date 
Dim ItemsOverMonths As Outlook.Items 

Dim DateToCheck As String 

Date6months = DateAdd("d", -182, Now()) 
Date6months = Format(Date6months, "mm/dd/yyyy") 


Set oFolder = Application.Session.PickFolder 'or set your folder 

DateToCheck = "[Received] <= """ & Date6months & """" 

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