Stromkosten pro Tag per Mail

[blixx]

Moin zusammen,

mir kam heute eine Idee, zu deren Umsetzung ich ein bisschen Hilfe brauche.
Ich möchte gern die Stromkosten pro Tag, täglich per Mail bekommen.

Im Einsatz habe ich ein FBDECT und Dank ein bisschen Forensuche funktioniert auch dieses UserReading, das die angefallenen Wh in Euro darstellt:
userReadings energy_kWh:energy { ReadingsVal("Fritz_Schalter","energy",0)/1000 . " kWh"; }, costs:energy { ReadingsVal("Fritz_Schalter","energy",0)/1000*0.3 . " €"; }

In meinem Fall hat also das reading "costs" unterhalb von Fritz_Schalter den Wert "64.4883 €"
Nun möchte ich täglich ein Diff ziehen und dieses Diff per Email haben.

Emails sende ich normalerweise so: define sendFensterMail notify sendFensterMail set Fritzbox sendMail to:bernd@@www.de subject:Fenster offen body:Da ist noch ein Fenster auf


Also eine Mail ala: "Heute hast du 12.50€ für Strom ausgegeben"


Wie mach' ich das?



Viele Grüße

Bernd

P.S.: Ich hab' folgenden Post gefunden, den ich aber wegen meiner Frage nicht neu aufmachen wollte:
http://forum.fhem.de/index.php/topic,32393.msg248055.html#msg248055

[JoWiemann]

Hallo Bernd,

ich glaube die E-Mail würde eher lauten: Gestern hast Du ... 

Aber zur Umsetzung:

- einen dummy definieren, der den letzten Wert beinhaltet
- ein <at> definieren, dass einmal am Tag ausgeführt wird
- innerhalb des at den Dummy vom aktuellen Wert abziehen und das Ergebnis per E-Mail versenden
- den aktuellen Wert im Dummy ablegen

und fertig.

würde dann ungefähr so aussehen

define LetzteEUR dummy

define MailEUR at Uhrzeit { \\
   my $eur= ReadingsVal(<device>, <wert>, <Default>);;\
   my $letzteur = ReadingsVal("LetzteEUR", "state", 0);;\
   my $Kosten = $eur - $letzteur;;\
   fhem("set Fritzbox sendMail to:bernd@@www.de subject:Stromkosten body:Kosten: $Kosten €");;\
   fhem("set LetzteEUR $eur");;\
}

Ungetestet und eher als Anregung, denn als funktionieren Lösung zu sehen.

Grüße Jörg

Grüße Jörg

[blixx]

Hey Jörg,
Danke Dir herzlichst:)

Das Mailing über die FB hat leider nicht so funktioniert wiie ich hoffte.
Habs einfach nicht hinbekommen, dass er die Variable mit in die Mail nimmt.
Naja mit exmail gehts nun...
Ich hab's nun folgendermaßen laufen (zum Abschauen für Interessierte):

#### Mit Folgendem wird täglich um 23:59Uhr eine Mail geschickt, die angibt, wie viel Geld für Strom ausgegeben wurde ####

define LetzteEUR dummy
define Stromkosten dummy
attr Stromkosten event-on-change-reading state
define StromkostenLog FileLog ./log/StromkostenLog-%m_%Y.log Stromkosten


define MailEUR notify MailEUR { \\
   my $eur= ReadingsVal("Fritz_Schalter", "costs", 0);;\
   my $letzteur = ReadingsVal("LetzteEUR", "state", 0);;\
   my $Kosten = $eur - $letzteur;;\
   fhem("set Stromkosten $Kosten;;trigger sendKosten");;\
   fhem("set LetzteEUR $eur");;\
}

define sendKosten notify sendKosten { my $meineWerte = Value("Stromkosten");; exmail('bernd@@www.de','Stromkosten','Heute hast du Folgendes fuer Strom ausgegeben: '.ReadingsVal("Stromkosten", "state", 0).' Euro') }