Outlook Outlook VBA RemiderOverrideDefault

Joined
Apr 26, 2012
Messages
1
Reaction score
0
Hello

I am trying to create an Out of Office form for my company which will create an appointment on the senders PC and a meeting on the receivers end notifying of the OOO request. All of that works fine but the issue i am having is with the reminders. Even if i set the reminder to "none" in the code it will still remind the user of the meeting with their set default reminders. I set reminderOverrideDefault to none in the SUB Item_Send coding but when the user receives it the reminderoverridedefault sets to false. They can change it to true after they reopen the appointment > check the box for reminderoverride > and then save it. Is there a way to have this set to true always when using the form?

Sub Item_Open()
BusyStatus=0
ReminderSet=False
ResponseRequested =False
ReminderOverrideDefault=True
End Sub

Sub Item_Send
Set FinalForm=Application.ActiveInspector.CurrentItem
Set myNameSpace=Application.GetNameSpace("MAPI")
Set StartD=FinalForm.UserProperties("Start")
Set EndD=FinalForm.UserProperties("End")
Set StartT=FinalForm.UserProperties("Start")
Set EndT=FinalForm.UserProperties ("End")

Item.UserProperties("StartDate")= DateValue(StartD)
Item.UserProperties("EndDate")= DateValue(EndD)
Item.UserProperties("StartTime")= TimeValue(StartT)
Item.UserProperties("EndTime")= TimeValue(EndT)
Body="Out of Office Request"& Chr(10) &"Sender's Time Zone:" & Chr(10) & "Start: "&DateValue(StartD)&" "&TimeValue(StartT)&Chr(10)&"End: "&DateValue(EndD)&" "&TimeValue(EndT)&Chr(10)&Chr(10)&Body
If MeetingStatus=5 then Exit Sub End If
Call Item_Appoint

FinalForm.Save
AllDayEvent=True
BusyStatus=0
ReminderOverrideDefault=True
ReminderSet=False
ResponseRequested =False
FinalForm.Save
End Sub
'Coding to Create Appointment on sender's calendar
Sub Item_Appoint
Set PersonalForm = Application.CreateItem(1)
PersonalForm.BusyStatus=3
PersonalForm.ReminderSet=False
PersonalForm.Save
PersonalForm.Subject=item.subject
PersonalForm.AllDayEvent=True
PersonalForm.Body = item.body
PersonalForm.Close(olSave)
End Sub

Sub Item_Read
ReminderOverrideDefault=True
End Sub

Sub Item_Close
ReminderOverrideDefault=True
End Sub
 
Back
Top