The macros will not work with the top two options that disable all macros or unsigned macros. "Original reminder " & oReminder.OriginalReminderDate & vbCrLf & vbCrLfįirst: You need to have macro security set to the lowest setting, Enable all macros during testing. RemItems = RemItems & rCount & ": " & oReminder.Caption & vbCrLf & _ It will not list dismissed reminders.ĮlseIf oReminder.OriginalReminderDate <= Date + 1 Then This version of the macro lists all snoozed reminders, all reminders visible in the reminder dialog, and all reminders for "Today". List all Snoozed, Visible, and Upcoming Reminders 'Set oMail = Application.CreateItem(olMailItem) Set oMail = Application.CreateItem(olPostItem) RemItems = RemItems & oReminder.Caption & vbCrLf & "Original Reminder time: " & oReminder.OriginalReminderDate & vbCrLf & "Snoozed to: " & oReminder.NextReminderDate & vbCrLf & vbCrLf If (oReminder.OriginalReminderDate oReminder.NextReminderDate) Then ps1 file, right-click on the script and choose Run with PowerShell. To use it, you need to allow local scripts by running this command:
Outlook 365 snooze email windows#
To open it in the PowerShell IDE, type powershell on the start menu and click on Windows PowerShell IDE when the PowerShell app is found.
ps1 file, paste it into Notepad and save it with the extension. You'll need to use a VBA macro version if you have the Windows store version of Office installed. Note: PowerShell scripta will not work with the Windows Store version of Office.
Outlook 365 snooze email code#
If you don't see the white code window in PowerShell ISE, click the Script button on the right that the red arrow is pointing to. Paste the entire script in the PowerShell window and press Enter or the Run button if using PowerShell ISE. Windows PowerShell ISE has a script pane at the top, which is useful if you want to edit the script. To use PowerShell scripts with Outlook, start typing PowerShell on the start menu and open Windows PowerShell when it comes up. $Mail.Subject = "Snoozed Reminders " + $now $Mail = $Outlook.CreateItem(6) #mail is 0, post is 6 $RemItems = $RemItems + "`r`n" + $oReminder.Caption + "`r`n`t" +"Original Reminder time: " + $oReminder.OriginalReminderDate + "`r`n`t" + " Snoozed to: " + $oReminder.NextReminderDate + "`r`n" If($oReminder.OriginalReminderDate -ne $oReminder.NextReminderDate) $Outlook = New-Object -comobject Outlook.Applicationįor ($num = 1 $num -le $remcount $num++) If you need to send the list, you can write it to an email instead. The code below will create a new Post message with a list of all snoozed reminders, for Appointments, Tasks and Flags.
0 kommentar(er)
