×
מיכ×ל (מיקי) ×בידן®
Hi,
I was looking for a Comprehensive way to automatically change the
reminder-delay-duration of a pre-selected bunch of Calendar meetings.
I came up with the herewith code but could not find the appropriate [if any]
way to ELIMINATE the reminder pop-up window, from popping-up, while the code
changes its delay time.
Any help at this point will be more than appreciated.
Mike
=========================================
Sub ChangeSelectedMeetingsRemindersDelay()
Dim objItem As Outlook.AppointmentItem
For Each objItem In Application.ActiveExplorer.Selection
If Not objItem Is Nothing Then
MsgBox objItem
objItem.ReminderMinutesBeforeStart = 15
objItem.Save
Else
MsgBox "Please select Meeting(s)"
End If
Next
Set objItem = Nothing
End Sub
=========
I was looking for a Comprehensive way to automatically change the
reminder-delay-duration of a pre-selected bunch of Calendar meetings.
I came up with the herewith code but could not find the appropriate [if any]
way to ELIMINATE the reminder pop-up window, from popping-up, while the code
changes its delay time.
Any help at this point will be more than appreciated.
Mike
=========================================
Sub ChangeSelectedMeetingsRemindersDelay()
Dim objItem As Outlook.AppointmentItem
For Each objItem In Application.ActiveExplorer.Selection
If Not objItem Is Nothing Then
MsgBox objItem
objItem.ReminderMinutesBeforeStart = 15
objItem.Save
Else
MsgBox "Please select Meeting(s)"
End If
Next
Set objItem = Nothing
End Sub
=========