E-mail versturen lukt niet meer

Homeseer Forum in het Nederlands (DUTCH forum)

Moderator: Ruud

Post Reply
weerd11
Starting Member
Starting Member
Posts: 47
Joined: Fri Jan 30, 2009 10:35 pm
Location: Netherlands

E-mail versturen lukt niet meer

Post by weerd11 »

Na het plaatsen van een nieuwe camera werkt het onderstaande script niet meer.
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
Last edited by Alexander on Sat Oct 15, 2011 3:11 pm, edited 2 times in total.
Reason: E-mailadres weggehaald
Alexander
Global Moderator
Global Moderator
Posts: 1532
Joined: Sat Mar 10, 2007 11:19 pm
Location: Netherlands

Re: E-mail versturen lukt niet meer

Post by Alexander »

Krijg je wel in HS log de melding "File to send:" te zien?
Alexander
weerd11
Starting Member
Starting Member
Posts: 47
Joined: Fri Jan 30, 2009 10:35 pm
Location: Netherlands

Re: E-mail versturen lukt niet meer

Post by weerd11 »

Probleem opgelost zoonlief was met de router bezig geweest
Post Reply

Return to “Homeseer algemeen Forum”