Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

Sub Main(parm as object)
    Dim arrParm() As String
    Dim afvalType as String
    Dim afvalDateString as String
    Dim deviceString as String
    Dim currentDate as Date
    Dim afvalDate as Date
    Dim dvRef As long
    Dim subject As String
    Dim message As String
    Dim dv

    ' Device containing next 'afval ophaaldag'
    dvRef = 87
    
    deviceString = hs.DeviceString(dvRef)

    ' Extract deviceString "<afvaltype: <date>"
    arrParm = deviceString.ToString.Split(":")
    afvalType = arrParm(0)
    afvalDateString = arrParm(1).Trim
    
    currentDate = Date.Today
    currentDate = currentDate.Parse(currentDate)
    afvalDate = DateTime.Parse(afvalDateString)

    if currentDate = afvalDate.AddDays(-1) Then
      subject = "Afvalwijzer: " & afvalType & " wordt morgen opgehaald."
      message = subject
      hs.SendEmail("jouwemail@address", "", "", "", subject, message, "")
    End If

End Sub