Public Sub Level0Growl(Item As Outlook.MailItem)
   Dim RetVal, API, APP, PRI
   API = "YOUR_API_KEY_HERE"
   APP = "Outlook"
   PRI = "0"
   Set oHTTP = CreateObject("Microsoft.XMLHTTP")
   oHTTP.Open "Get", "https://prowl.weks.net/publicapi/add?" & "apikey=" & API & "&priority=" & PRI & "&application=" & APP & "&event=" & "From: " & Item.SenderName & "&description=" & "Subject: " & Item.Subject, False
   oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   oHTTP.Send
   HTTPPost = oHTTP.responseText
End Sub
Public Sub Level1Growl(Item As Outlook.MailItem)
   Dim RetVal, API, APP, PRI
   API = "YOUR_API_KEY_HERE"
   APP = "Outlook"
   PRI = "1"
   Set oHTTP = CreateObject("Microsoft.XMLHTTP") 
   oHTTP.Open "Get", "https://prowl.weks.net/publicapi/add?" & "apikey=" & API & "&priority=" & PRI & "&application=" & APP & "&event=" & "From: " & Item.SenderName & "&description=" & "Subject: " & Item.Subject, False
   oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   oHTTP.Send
   HTTPPost = oHTTP.responseText
End Sub
Public Sub Level2Growl(Item As Outlook.MailItem)
   Dim RetVal, API, APP, PRI
   API = "YOUR_API_KEY_HERE"
   APP = "Outlook"
   PRI = "2"
   Set oHTTP = CreateObject("Microsoft.XMLHTTP")
   oHTTP.Open "Get", "https://prowl.weks.net/publicapi/add?" & "apikey=" & API & "&priority=" & PRI & "&application=" & APP & "&event=" & "From: " & Item.SenderName & "&description=" & "Subject: " & Item.Subject, False
   oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   oHTTP.Send
   HTTPPost = oHTTP.responseText
End Sub
' Below function also includes the body of the message in the prowl; use wisely
Public Sub Level0Body(Item As Outlook.MailItem)
   Dim RetVal, API, APP, PRI
   API = "YOUR_API_KEY_HERE"
   APP = "Outlook"
   PRI = "0"
   Set oHTTP = CreateObject("Microsoft.XMLHTTP")
   oHTTP.Open "Get", "https://prowl.weks.net/publicapi/add?" & "apikey=" & API & "&priority=" & PRI & "&application=" & APP & "&event=" & "From: " & Item.SenderName & "&description=" & "Subject: " & Item.Subject & "%0A" & Item.Body, False
   oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   oHTTP.Send
   HTTPPost = oHTTP.responseText
End Sub