How do I delete appointments by category - macro/vb

Hello woodan1,

you could use something along the lines of this macro by Eric Legault
source: http://groups.google.com/group/microsoft.public.outlook.program_vba/msg/45980946ff0ba774 
--------------
Sub DeleteSpecifiedAppointments()
    Dim objNS As Outlook.NameSpace
    Dim objApptFolder As Outlook.MAPIFolder, objAppt As Outlook.AppointmentItem
    Dim objItems As Outlook.Items, intX As Integer
    Set objNS = Application.GetNamespace("MAPI")
    Set objApptFolder = objNS.GetDefaultFolder(olFolderCalendar)
    Set objItems = objApptFolder.Items

    For intX = 1 To objItems.Count
        Set objAppt = objItems.Item(intX)
        If objAppt.Categories = "SQLData" Then
            objAppt.Delete
        End If
    Next
End Sub
--------------

hope this helps a bit
bruintje

I pasted this code into vb in outlook and it states that macros have been disabled.  How can I run this code??

you can lower yourmacro security settings under tools| macros | security to something else then high
maybe you have to restart outlook for it to take effect but i didn't think so

if you lower it it will be able to run

I had to restart outlook.

It works but I am getting an error...array index out of bounds

Sub DeleteSpecifiedAppointments(strCat As String)
    Dim objNS As Outlook.NameSpace
    Dim objApptFolder As Outlook.MAPIFolder, objAppt As Outlook.AppointmentItem
    Dim objItems As Outlook.Items, intX As Integer
    Set objNS = Application.GetNamespace("MAPI")
    Set objApptFolder = objNS.GetDefaultFolder(olFolderCalendar)
    Set objItems = objApptFolder.Items

    For intX = 1 To objItems.Count
        Set objAppt = objItems.Item(intX) <<<<<after it's deleted then it errors here.
        If objAppt.Categories = strCat Then
            objAppt.Delete
        End If
    Next
    Set objNS = Nothing
    Set objApptFolder = Nothing
    Set objItems = Nothing
End Sub

my objItems.Count =76, but the intX=77 when it errors

try this line instead of the original from the looks of it has to do with going one item to far in the loop

For intX = 1 To objItems.Count -1

If I rerun again after they're all gone, it doesn't error.  It only errors when it is deleting.  Hummm.
To test I reimported the appointments, reran the macro and it errors.  I rerun the delete macro again and it is fine.  Hummmm.

I'm a little behind your notes, but no that didn't work.

Hi Brian,

>         If objAppt.Categories = "SQLData" Then

That will work just fine, unless an appointment has more than one category associated with it, in which case the appointment's
Categories property is a delimited string of all the associated Categories...

Regards,

Patrick

Bruintje, that did it.

I am importing data that I am setting as a particular category (it's users proposed vacation days) from a db.  This function will allow me to delete them before repopulating them.  That way they never get out of sync - unless someone messes with the category.  If they do then it's their problem.  The users most likely will not mess with the category - a good bet anyway.

Thanks.

glad it worked :)