'Snooze.vbs
'Snooze open reminders to one minute prior to start
'variation of VBA code I previously posted at www.akaplan.com/blog
'Alan dot Kaplan at VA dot gov 5/25/2011
'Set reference to Outlook Application

Dim olApp: Set olApp = CreateObject("Outlook.Application")
Dim oReminders: Set oReminders = olApp.Reminders
Dim oReminder 
Dim iDelayMin 
dim quote:quote=chr(34)

For Each oReminder In oReminders		'Run thru all reminders.  Most will be inactive
    If oReminder.IsVisible = True Then	'If it is visible (you see a pop up), then
    	'Calculate how many minutes until start time then subtract one minute
        iDelayMin = DateDiff("n", Now(), oReminder.item.Start) - 1
        If iDelayMin > 0 Then 			'Ignore past due
        	oReminder.Snooze (iDelayMin)'Snooze
        	MsgBox "Snoozed the reminder for " & quote & oReminder.item.Subject & quote &  " for " & CStr(iDelayMin) & " minutes.",_
        		 vbApplicationModal + vbOKOnly + vbInformation, "Snooze"
        	End If 
    End If
Next