How to delete emails from Outlook by year?

How to Delete Emails from Outlook by Year

Outlook, a popular email client from Microsoft, allows users to organize their emails by date. This feature is useful for archiving emails, maintaining a history of messages, and managing multiple accounts. However, sometimes, you might need to delete emails from Outlook by year. In this article, we will guide you through the process of deleting emails from Outlook by year.

Method 1: Using the "Delete by Date" Feature

Here’s how to delete emails from Outlook by year using the "Delete by Date" feature:

• Open Outlook and navigate to the "Home" tab.
• Click on the "Mail" button in the ribbon to open the "Mail" tab.
• Select the emails you want to delete by year from the "Labels" section.
• Click on the "Delete by Date" button in the "Status" section.
• Select the year you want to delete emails from by checking the box next to it.
• Click "OK" to apply the filter.
• The emails from the selected year will be deleted.

Emails to Delete by Year	Year
Emails from 2020	2020
Emails from 2019	2019
Emails from 2018	2018
Emails from 2017	2017
Emails from 2016	2016
Emails from 2015	2015

Method 2: Using the "Year" Filter in the "Quick Parts" Pane

You can also use the "Year" filter in the "Quick Parts" pane to delete emails from Outlook by year:

• Open Outlook and navigate to the "Quick Parts" pane by clicking on the "View" tab in the ribbon and selecting "Quick Parts".
• Click on the "Filter" button in the "Quick Parts" pane.
• Select "Year" from the dropdown menu.
• Select the year you want to delete emails from by checking the box next to it.
• Click "OK" to apply the filter.
• The emails from the selected year will be deleted.

Method 3: Using VBA Macro

You can also use Visual Basic for Applications (VBA) macro to delete emails from Outlook by year:

• Open Outlook and navigate to the "Developer" tab in the ribbon.
• Click on "Visual Basic" in the "Record" button group.
• In the "Microsoft Office VBA Editor" window, create a new module.

• Write the following code to delete emails from Outlook by year:

  Sub DeleteEmailsByYear()
  
  Dim olApp As Object
  
  Dim olMail As Object
  
  Dim olNamespace As Object
  
  Dim email As Object
  
  Dim year As String
  
  
  
  Set olApp = CreateObject("Outlook.Application")
  
  Set olMail = olApp.GetNamespace("MAPI")
  
  Set olNamespace = olMail.GetNamespace("MIMEMedia")
  
  
  
  Set email = olMail.Folders(1).Items("Your Folder Name")
  
  
  
  For Each email In email Items
  
      If email.DisplayStatus = olDisplayStatusBroadcast Then
  
          If emailsubject = "Archived emails" Then
  
              ' Delete emails from the selected year
  
              For Each emailItem In emailItems
  
                  If emailItemDayDate = Format(emailItemDayDate, "yyyy") Then
  
                      emailItem.Delete
  
                  End If
  
              Next emailItem
  
          End If
  
      End If
  
  Next email
  
  End Sub

  Column 1	Column 2
  olApp	olMail
  olNamespace	olMail.GetNamespace("MIMEMedia")
  email	olMail.Folders(1).Items("Your Folder Name")

Important Notes

• This code will delete all emails from the selected year, regardless of the status.
• You will need to replace "Your Folder Name" with the actual name of the folder you want to delete emails from.
• Make sure to save the code before running it to avoid any errors.

Conclusion

Deleting emails from Outlook by year can be a useful feature, but it requires some manual effort. However, the above methods can help you achieve this task. Before running the code, make sure to test it in a non-production environment to ensure it works as expected.