Ik kan wel een e-mail laten sturen als er op de bel gedrukt word zonder script, via een event dus een mail sturen lukt opzicht wel.
Code: Select all
Sub Main(Optional ByVal pParms As String = "")
Dim pi As Object
dim time
time = timevalue(now)
pi = hs.Plugin("Netcam")
Dim files As Collection = pi.getimages("Oprit")
If files.Count >= 3 Then
Dim latestImage As Integer = 3
Dim strFileName As String = files(latestImage).Replace("_thmb","")
hs.WriteLog("Info", "File to send: " & strFileName)
hs.SendEmail("<hierstondeenemailadres>", "<hierstondeenemailadres>", "Deurbel "&time, "Deurbel", strFileName)
End If
End Sub