Laatste 5 foto's mailen?

[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

[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

[Edwin]

Bedankt, ga het vanavond proberen


Groeten
Edwin

[Edwin]

Werkt als een trein,duizend maal dank
Groeten edwin

[AshaiRey]

Weer een tevreden klant.

[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)

[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)

[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.

[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")