Er det et script du bruker?
Du kan teste det jeg har skrevet om, basert på @Guahtdim sitt.
Sub Main(ByVal Parms As Object)
Dim msg As String = ""
Try
Dim ParmArray() As String
ParmArray = Parms.ToString.Split(",")
Dim deviceID = ParmArray(0)
Dim calendarName = ParmArray(1)
Dim numberOfDays = CInt(ParmArray(2))
Dim allEvents As Object
allEvents = hs.PluginFunction("GCalSeer", "", "GetItemsFromCalendar", New Object() {calendarName, numberOfDays})
Dim counter As Integer = 0
For Each ev As Object In allEvents
counter += 1
Dim line As String = ""
If ev.AllDayEvent OrElse ev.StartDateTimeLocal >= Now.AddHours(-2) Then
If ev.StartDateTimeLocal.Date = Now.Date Then
If ev.AllDayEvent Then
line = "Dagens "
Else
line = "Kl. "
End If
End If
If ev.StartDateTimeLocal.Date = Now.Date.AddDays(1) Then
If ev.AllDayEvent Then
line = "I morgen "
Else
line = "I morgen kl. "
End If
End If
If ev.StartDateTimeLocal.Date < Now.Date.AddDays(2) Then
If ev.AllDayEvent Then
line &= ev.Subject
Else
line &= Format(ev.StartDateTimeLocal, "HH:mm") & " - " & ev.Subject
End If
Else
If ev.AllDayEvent Then
line &= Format(ev.StartDateTimeLocal, "ddd dd.MM") & " (hele dagen) - " & ev.Subject
Else
line &= Format(ev.StartDateTimeLocal, "ddd dd.MM HH:mm") & " - " & ev.Subject
End If
End If
If ev.StartDateTimeLocal.Date = Now.Date AndAlso numberOfDays > 1 Then line = "<b>" & line & "</b>"
msg &= line & "<br>"
'If counter = 12 then Exit For
End If
Next
If msg = "" Then
msg = "Ingen hendelser"
End If
hs.SetDeviceString(deviceID, msg, True)
Catch ex As Exception
hs.WriteLog("", "Exception in script: " & ex.Message)
End Try
End Sub
... som med dette:
og dette (i samme event):
Gir dette:
Jeg digger GCalSeer (men den burde hete CalendarSeer).