This Lazy Programmer's code sample is built from my all-purpose bulk contact code sample. While most people won't make a lot of bulk changes to appointments, it can be useful make some changes, especially when you use an If statement to limit the appointments that are changed.

Public Sub DoSomethingWithAppt()
    
    Dim objFolder As Outlook.MAPIFolder
    Dim objItems As Outlook.Items
    Dim objAppt As Outlook.AppointmentItem
    Dim obj As Object
 
    'On Error Resume Next
 
    Set objFolder = Session.GetDefaultFolder(olFolderCalendar)
    Set objItems = objFolder.Items
 
    For Each obj In objItems
            Set objAppt = obj
 
       With objAppt

           ' do whatever 

           .Save
       End With

        Err.Clear
    Next
 
    Set obj = Nothing
    Set objAppt = Nothing
    Set objItems = Nothing
    Set objFolder = Nothing
End Sub

Delete Appointments using a macro

When you delete items, you need to count backwards, otherwise you'll delete every other item.

In this code sample, we're deleting appointments in the Holiday category. Change the references to appointments and the calendar to use it with other Outlook item types.

Public Sub DeleteAppt()
    
    Dim objFolder As Outlook.MAPIFolder
    Dim objItems As Outlook.Items
    Dim objAppt As Outlook.AppointmentItem
    Dim obj As Object
 
    'On Error Resume Next
 
    Set objFolder = Session.GetDefaultFolder(olFolderCalendar)
    Set objItems = objFolder.Items
 
 For i = objItems.Count To 1 Step -1
     Set objAppt = objItems(i)
    
       With objAppt
               
           ' do whatever here
               If InStr(1, LCase(.Categories), "holiday") Then
                    .Delete
               End If
              '.Save
       End With
  
        Err.Clear
 Next i

    Set obj = Nothing
    Set objAppt = Nothing
    Set objItems = Nothing
    Set objFolder = Nothing
End Sub

Note: Because the text is case sensitive, you either need to use lower case text in the statements, such as If InStr(1, LCase(.Categories), "holiday") Then or use the correct case and remove LCase from the code, such as If InStr(1, .Categories, "Holiday") Then

How to use macros

First: You will need macro security set to low during testing.

To check your macro security in Outlook 2010 or 2013, go to File, Options, Trust Center and open Trust Center Settings, and change the Macro Settings. In Outlook 2007 and older, it’s at Tools, Macro Security.

After you test the macro and see that it works, you can either leave macro security set to low or sign the macro.

Open the VBA Editor by pressing Alt+F11 on your keyboard.

To put the code in a module:

1. Right click on Project1 and choose Insert > Module
2. Copy and paste the macro into the new module.

More information as well as screenshots are at How to use the VBA Editor