I can sucessfully set up HS events with VBS to run once at a specific time and delete after run. How do I create an event that REPEATS every # minutes STARTING at a specified date/time?
Here's the basic portion on my create Reminder Script. I'd like to modify it to create a reminder that starts at 5PM and keeps reminding me every 5 minutes until I hear & acknowledge it. Any ideas are welcome.
'Schedule OneTime Reminder In HomeSeer
set hs=createobject("Homeseer.Application")
'variables set up to interface with input-box dialog, here just static
dim remTitle, remDate, remTime, remWho, remText, remRepeat, remRecur
remWho = "Master"
remDate = "03/19/05"
remTime = "9:18 PM"
remText = "check sprinklers in front"
remRepeat = "5" ' repeat every 5 minutes until canceled
remRecur = "0" 'recreate this event every # of hours or days
'create the event
Index = hs.NewEvent(remTitle)
Set ev = hs.GetEvent(Index)
ev.misc = &H11 'set flags delete after runs & send email
ev.group = "Reminders"
ev.ev_date = remDate
ev.ev_time = remTime
ev.ev_abs_time = 0
ev.ev_wav_path = "c:\`sounds\reminder.wav"
ev.speech = "This is a reminder for " & remWho & remText
ev.ev_mail_to = "myphone@vmobl.com"
ev.ev_mail_subj = remWho & remText
set ev = nothing
'acknowledge creating event
hs.speak "I've created this reminder for " & remWho
Here's the basic portion on my create Reminder Script. I'd like to modify it to create a reminder that starts at 5PM and keeps reminding me every 5 minutes until I hear & acknowledge it. Any ideas are welcome.
'Schedule OneTime Reminder In HomeSeer
set hs=createobject("Homeseer.Application")
'variables set up to interface with input-box dialog, here just static
dim remTitle, remDate, remTime, remWho, remText, remRepeat, remRecur
remWho = "Master"
remDate = "03/19/05"
remTime = "9:18 PM"
remText = "check sprinklers in front"
remRepeat = "5" ' repeat every 5 minutes until canceled
remRecur = "0" 'recreate this event every # of hours or days
'create the event
Index = hs.NewEvent(remTitle)
Set ev = hs.GetEvent(Index)
ev.misc = &H11 'set flags delete after runs & send email
ev.group = "Reminders"
ev.ev_date = remDate
ev.ev_time = remTime
ev.ev_abs_time = 0
ev.ev_wav_path = "c:\`sounds\reminder.wav"
ev.speech = "This is a reminder for " & remWho & remText
ev.ev_mail_to = "myphone@vmobl.com"
ev.ev_mail_subj = remWho & remText
set ev = nothing
'acknowledge creating event
hs.speak "I've created this reminder for " & remWho