Do you find every meeting appointment you receive finds it greedy little butt taking up space on your calendar annoying? So did we and also the guy who posted the question on Experts Exchange.

I wrote this little script that does the trick of terminating them, permanently. You have to comment out the wscript lines and uncomment the item.delete line after you have tested it.

‘Delete Tentative Appts created by someone else
‘That I haven‘t accepted
Set app = CreateObject(”Outlook.Application”)
name = app.Session.CurrentUser.name
Set nameSpace = app.Application.GetNamespace(”MAPI”)
Set folder = nameSpace.GetDefaultFolder(9) ‘folder path
Set items = folder.items
for each item in items
    if (item.BusyStatus = 1) then
        if(item.Organizer = name) Then
                        ‘Do nothing in this case since the tenative was created by the current user
                else
                        if(item.ResponseStatus=2) then
                                wscript.echo “Name: ” + name
                                wscript.echo item.Organizer
                                wscript.echo item.ResponseStatus
                                ‘item.delete
                        end if
                end if
    end if
next