Hi, with netcam my cam pictures are saved as: voortuin(2008-11-15at13-17-51-795) .jpg voortuin(2008-11-15at13-17-52-795).jpg etc.
i want to email the latest picture. how must i do that?
thanks edwin
email cam picture
Moderator: Esteban
email cam picture
this vb script will send the second photo in the last session (credits are for Lennart)
change the camname
change the email@isp.nl
save the script as name.vb
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("camname")
If files.Count >= 2 Then
Dim latestImage As Integer = 2
Dim strFileName As String = files(latestImage).Replace("_thmb","")
hs.WriteLog("Info", "File to send: " & strFileName)
hs.SendEmail("email@isp.nl", "email@isp.nl", "Homeseer Deurbel "&time, "Homeseer Deurbel", strFileName)
End If
End Sub
change the camname
change the email@isp.nl
save the script as name.vb
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("camname")
If files.Count >= 2 Then
Dim latestImage As Integer = 2
Dim strFileName As String = files(latestImage).Replace("_thmb","")
hs.WriteLog("Info", "File to send: " & strFileName)
hs.SendEmail("email@isp.nl", "email@isp.nl", "Homeseer Deurbel "&time, "Homeseer Deurbel", strFileName)
End If
End Sub
email cam picture
Erik...link is better...
email cam picture
<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote"><i>Originally posted by Chak</i>
<br />Erik...link is better...
<br />Erik...link is better...
email cam picture
script extension must be .vb
email cam picture
<blockquote id="quote"><font size="1" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote"><i>Originally posted by Chak</i>
<br />script extension must be .vb
<br />script extension must be .vb