ich stell das von mir genutzte Script hier mal rein. Da wird die Zusammensetzung der URL und auch die Übersetzung der Umlaute klar.
Den unteren Teil für Person 2 habe ich mal raus gelöscht.
Bei der Gelegenheit ist mir aufgefallen, dass ich schon mal auf die Möglichkeit per Mail zu senden ausgewichen bin, als es zur Umstellung http -> https nicht ging.
Code: Alles auswählen
// senden aus einem anderen Makro mit
//
// PROWL_SEND.Empfaenger:="Person1"
// PROWL_SEND.Betreff:="Warnung xy"
// PROWL_SEND.Text:="Achtung! xy äöü geht auch"
// PROWL_SEND.Dringlichkeit:="-2"
// Aufrufen(PROWL_SEND)
//
//Variablen
//API_Person1 [Zeichen]
//Empfaenger [Zeichen]
//Betreff [Zeichen]
//Anweisung_Person1 [Zeichen]
//Text [Zeichen]
//Counter_ZW [Zahl]
//Dringlichkeit [Zeichen]
//Zeile [Zeichen]
//Antwort [Zeichen]
//Gesendet [Schalter]
//
API_Person1:="0126bc4b5b202"
API_Person2:="96b8562"
//
Wenn Empfaenger = "Person1" dann
Empfaenger:="X_"+Empfaenger
//
Wenn Dringlichkeit < -2 oder Dringlichkeit > 2 dann
Dringlichkeit:=0
endewenn
wenn Betreff= "" dann
Betreff:="Es wurde kein Thema eingegeben"
endewenn
wenn Text= "" dann
Betreff:="Es wurde kein Text definiert."
endewenn
//
Betreff:=Ersetzen(Betreff," ","%20")
Betreff:=Ersetzen(Betreff,"ä","%C3%A4")
Betreff:=Ersetzen(Betreff,"ö","%C3%B6")
Betreff:=Ersetzen(Betreff,"ü","%C3%BC")
Betreff:=Ersetzen(Betreff,"Ä","%C3%84")
Betreff:=Ersetzen(Betreff,"Ö","%C3%96")
Betreff:=Ersetzen(Betreff,"Ü","%C3%9C")
Betreff:=Ersetzen(Betreff,"ß","%C3%9F")
Betreff:=Ersetzen(Betreff,"#","%23")
Betreff:=Ersetzen(Betreff,"+","%2B")
Betreff:=Ersetzen(Betreff,"&","%26")
Betreff:=Ersetzen(Betreff,"Sonne_","%E2%98%BC")
Betreff:=Ersetzen(Betreff,"Smiley2","%E2%98%BB")
Betreff:=Ersetzen(Betreff,"Smiley","%E2%98%BA")
Betreff:=Ersetzen(Betreff,"Bullet","%E2%80%A2")
Betreff:=Ersetzen(Betreff,"Promille","%E2%80%B0")
Betreff:=Ersetzen(Betreff,"~","%CB%9C")
Betreff:=Ersetzen(Betreff,"Doppelpfeil_rechts","%E2%87%92")
Betreff:=Ersetzen(Betreff,"(C)","%C2%A9")
Betreff:=Ersetzen(Betreff,"(R)","%C2%AE")
Betreff:=Ersetzen(Betreff,"<<","%0A")
Betreff:=Ersetzen(Betreff,"°","%C2%B0")
Text:=Ersetzen(Text," ","%20")
Text:=Ersetzen(Text,"ä","%C3%A4")
Text:=Ersetzen(Text,"ö","%C3%B6")
Text:=Ersetzen(Text,"ü","%C3%BC")
Text:=Ersetzen(Text,"Ä","%C3%84")
Text:=Ersetzen(Text,"Ö","%C3%96")
Text:=Ersetzen(Text,"Ü","%C3%9C")
Text:=Ersetzen(Text,"ß","%C3%9F")
Text:=Ersetzen(Text,"#","%23")
Text:=Ersetzen(Text,"+","%2B")
Text:=Ersetzen(Text,"&","%26")
Text:=Ersetzen(Text,"Sonne_","%E2%98%BC")
Text:=Ersetzen(Text,"Smiley2","%E2%98%BB")
Text:=Ersetzen(Text,"Smiley","%E2%98%BA")
Text:=Ersetzen(Text,"Bullet","%E2%80%A2")
Text:=Ersetzen(Text,"Promille","%E2%80%B0")
Text:=Ersetzen(Text,"~","%CB%9C")
Text:=Ersetzen(Text,"Doppelpfeil_rechts","%E2%87%92")
Text:=Ersetzen(Text,"(C)","%C2%A9")
Text:=Ersetzen(Text,"(R)","%C2%AE")
Text:=Ersetzen(Text,"<<","%0A")
Text:=Ersetzen(Text,"°","%C2%B0")
//
Anweisung_Person1 := "https://prowl.weks.net/publicapi/add?apikey="+API_Person1+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"&description="+Text
Mail1 := API_Person1+"+"+Dringlichkeit+"@api.prowlapp.com"
//
counterZW1:=counterZW1+1
wenn counterZW1 < 20 oder Dringlichkeit > 0 dann
GetSite(Anweisung_Person1,443,Antwort)
// SendeMail(Mail1,Betreff,Text)
Gesendet:=1
endewenn
//
wenn counterZW1 = 20 dann
warte("00:00:10")
Betreff:="Systemhinweis"
Text:="Innerhalb%20der%20letzten%20Stunde%20wurden%20"+counterZW1+"%20Nachrichten%20verschickt.%20Da%20scheint%20etwas%20gehoerig%20daneben%20zu%20gehen.%20Bis%20zur%20naechsten%20Stunde%20werden%20nur%20noch%20dringende%20Nachrichten%20geschickt."
Dringlichkeit:=0
Anweisung_Person1 := "https://prowl.weks.net/publicapi/add?apikey="+API_Person1+"&application=CCU&event="+Betreff+"&priority="+Dringlichkeit+"&description="+Text
GetSite(Anweisung_Person1,443,Antwort)
Mail1 := API_Person1+"+"+Dringlichkeit+"@api.prowlapp.com"
// SendeMail(Mail1,Betreff,Text)
endewenn
//
wenn NICHT DATEIVORHANDEN("Prowl_Log.txt") dann
Zeile := "Datum;Uhrzeit;Empfaenger;Betreff;Text;Dringlichkeit;"
Schreibedatei("Prowl_Log.txt",Zeile,2)
SCHLIESSEDATEIEN
endewenn
//
Zeile:=Datum+";"+Uhrzeit+";"+Empfaenger+";"+Betreff+";"+Text+";"+Dringlichkeit+";"
SCHREIBEDATEI("Prowl_Log.txt",Zeile,2)
Schreibedatei("PROWL_Log_2.txt",Anweisung_Person1,2)
Betreff:=""
Text:=""
Empfaenger:=""
Dringlichkeit:=0
Gesendet:=0
endewenn
//
// Person 2
//
verlassen
//