Code:
Dim toClients As String = "All Clients" ' separate with | if multiple; "All Clients" for all Dim pushBody As String = Regex.Replace(body, vbCrLf, "") ' Body; let us remove vbCrLf and rely on HTML <br> for push messages; 512 char max; changed to 1024 in .45 ' Pushover messages have 1024 max length If pushBody.Length > 1023 Then pushBody = pushBody.Substring(0, 1023) End If Dim title As String = subject ' Title Dim priority As String = priorityParam ' Priority Dim sound As String = soundParam ' Sound Dim url As String = "" ' URL Dim urlTitle As String = "" ' URL Title Dim apiString As String = "" ' API String Dim attachmentPath As String = "" ' Attachment path Dim pushResult As Boolean = hs.PluginFunction("Pushover 3P", "", "Pushscript", New Object() {toClients, pushBody, title, priority, sound, url, urlTitle, apiString, attachmentPath})
Leave a comment: