Colin, many thanxs for thread it definitely provided better insight along with examples, however it did not answer my question. When you look at Pierre image examples you noticed that he used color to differentiate his various virtual devices. Also I was wondering how he was able to pull holidays, all day events.
Jim, glad to see you again. I have yet to get your version to work however I was able to get the following to work it uses two parameters within the event parameter field they are; Virtual device ID and GCalendar name
Belay my last, I've just updated the code and now the parameters will take; Device ID,GCalendar Name,# Days. Mike
I'm not sure why my code paste has "*" for spaces?
Jim, glad to see you again. I have yet to get your version to work however I was able to get the following to work it uses two parameters within the event parameter field they are; Virtual device ID and GCalendar name
Code:
sub*Main(ByVal*Parms*As*Object) ****Dim*ParmArray()*as*String ****ParmArray*=*Parms.tostring.split(",") ****Dim*tDevice*=*ParmArray(0) ****Dim*tCalendar*=*ParmArray(1) Dim tDays = cint(ParmArray(2)) ****Dim*allEvents*As*Object() ********Dim*myemail*as*string="Michael_n_blackwell@msn.com" ********Dim*msg*as*string*=*"" ********allEvents*=*hs.PluginFunction("BLGData",*"",*"GetCalendarEventsForXDays",*new*Object(){myemail,tCalendar,tDays}) ****For*Each*ev*As*Object*In*allEvents ***********msg*=*msg*&*"<br>" & ev.StartDate*&*"*"*&*ev.StartTime*&*"*-*"*&*ev.Name*&*"</br>" ****Next ********if*msg=""*then*msg="No*Events*Scheduled" ********hs.SetDeviceString(tDevice,*msg.Trim,*true) End*Sub
I'm not sure why my code paste has "*" for spaces?
Comment