Page 1 of 1
Laatste 5 foto's mailen?
Posted: Mon Jun 25, 2012 1:10 pm
by Edwin
Hallo,ik heb een vraag ik gebruik dit onderstaande script.
Is het mogelijk om in plaats van 1 laatst foto de laatste 5 foto's te laten mailen?
En zo ja hoe ?
Alvast bedankt
Edwin
hier is het script:
Sub Main(Optional ByVal pParms As String = "")
Dim pi As Object
pi = hs.Plugin("Netcam")
Dim files As Collection = pi.getimages("Achtertuin")
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("", "", "Iemand aan de deur", "Iemand aan de deur", strFileName)
End If
End Sub
Re: Laatste 5 foto's mailen?
Posted: Mon Jun 25, 2012 2:18 pm
by AshaiRey
Hoi,
Dit zou moeten werken.
Ongeteste code !
Code: Select all
Sub Main(Optional ByVal pParms As String = "")
Dim pi As Object
pi = hs.Plugin("Netcam")
Dim files As Collection = pi.getimages("Achtertuin")
' Hoeveel plaatjes moeten er verstuurd worden.
Dim AantalFotosVerzenden As Integer = 5
' Doe dit alleen als er voldoende plaatjes zijn
If files.Count >= AantalFotosVerzenden + 1 Then
Dim latestImage As Integer
Dim strFileName As String
Dim Teller as Integer
For Teller = 1 To AantalFotosVerzenden
strFileName = files(Teller).Replace("_thmb","")
hs.WriteLog("Info", "File to send: " & strFileName)
hs.SendEmail("", "", "Iemand aan de deur", "Iemand aan de deur", strFileName)
Next
End If
End Sub
Re: Laatste 5 foto's mailen?
Posted: Mon Jun 25, 2012 5:32 pm
by Edwin
Bedankt, ga het vanavond proberen
Groeten
Edwin
Re: Laatste 5 foto's mailen?
Posted: Mon Jun 25, 2012 6:56 pm
by Edwin
Werkt als een trein,duizend maal dank
Groeten edwin
Re: Laatste 5 foto's mailen?
Posted: Mon Jun 25, 2012 10:42 pm
by AshaiRey
Weer een tevreden klant.
Re: Laatste 5 foto's mailen?
Posted: Thu Jun 28, 2012 10:55 pm
by Herbus
Zou het ook mogelijk zijn om in een mail 5 foto's als bijlage te plaatsen in plaats van 5 losse e-mails?
Ik stuur nu ook een mail van mij doorcam maar eigenlijk is een beeld 2 seconden voor het drukken van de bel, het moment van drukken en 2 seconden erna mooier.
Gr.
Herbus (Jos)
Re: Laatste 5 foto's mailen?
Posted: Sat Jun 30, 2012 8:55 am
by AshaiRey
Je zou het onderstaande kunnen proberen.
Ik weet te weinig af van sendEmail en dergelijke want ik gebruik dit nog helemaal niet namelijk.
Ik probeer hier dus meerdere attachments aan een email toe te voegen enweet dan ook niet of het scheidingsteken een komma moet zijn. Ik weet uberhaupt niet of dit gaat werken dus laat het resultaat maar even weten.
Code: Select all
' Doe dit alleen als er voldoende plaatjes zijn
If files.Count >= AantalFotosVerzenden + 1 Then
Dim latestImage As Integer
Dim strFileName As String
Dim strAttachment As String
Dim Teller as Integer
For Teller = 1 To AantalFotosVerzenden
strFileName = files(Teller).Replace("_thmb","")
hs.WriteLog("Info", "File to send: " & strFileName)
strAttachment = strAttachment & "," & strFilename
Next
End If
hs.SendEmail("", "", "Iemand aan de deur", "Iemand aan de deur", strAttachment)
Re: Laatste 5 foto's mailen?
Posted: Sun Jul 01, 2012 4:05 pm
by Herbus
Lijkt toch niet te werken. Melding HS log:
Building SMTP message for sending: Ongeldige e-mailbijlage C:\Program Files\HomeSeer HS2\html\laatste1.jpg,C:\Program Files\HomeSeer HS2\html\laatste2.jpg.
Script:
Public Sub Main(ByVal Parms As Object)
Dim bestand1
Dim bestand2
Dim tijd
Dim strAttachment
tijd = TimeValue(Now)
Dim datum
datum = DateValue(Now)
Dim STRtijd = datum + " " + tijd
Bestand1 = "C:\Program Files\HomeSeer HS2\html\laatste1.jpg"
Bestand2 = "C:\Program Files\HomeSeer HS2\html\laatste2.jpg"
strAttachment = Bestand1 & "," & Bestand2
'verstuur geselecteerde bestand via e-mail
hs.SendEmail("
xxx@xxx.nl", "
test@homeseer.nl", STRtijd, "", strAttachment)
End Sub
Een bestand mailen werkt, maar de combi niet. Jammer.
Re: Laatste 5 foto's mailen?
Posted: Mon Jul 02, 2012 10:55 am
by AshaiRey
Het is wel op te lossen door eerst al de plaatjes te zippen en dat als enkele bestand aan het email bericht te hangen.
Code: Select all
' Doe dit alleen als er voldoende plaatjes zijn
If files.Count >= AantalFotosVerzenden + 1 Then
Dim latestImage As Integer
Dim strFileName As String
Dim strAttachment As String
Dim Teller as Integer
For Teller = 1 To AantalFotosVerzenden
strFileName = files(Teller).Replace("_thmb","")
hs.WriteLog("Info", "File to send: " & strFileName)
strAttachment = strAttachment & " " & strFilename
Next
End If
' Zip de plaatjes tot 1 bestand
hs.launch( "c:\temp\zipbestand.zip", strAttachment)
' Wacht even on het zippen te laten voltooien
' Dit kan natuurlijk veel netter maat het gaat hier om
' een test om te zien of het werkt.
hs.WaitSecs(3)
hs.SendEmail("", "", "Iemand aan de deur", "Iemand aan de deur", "c:\temp\zipbestand.zip")