Menu

How to Send Push Notifications to Your Phone Using Excel & VBA

Language:

In this tutorial, I will show you, how you can send push notifications to your smartphone using Excel & VBA. We will be using the FREE “Pushbullet API” to send the notifications.

Sub Send_PushNotification()

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim pb_title As String
    Dim pb_title_input As String
    Dim pb_body As String
    Dim pb_body_input As String
    Dim ACCESS_TOKEN As String
    Dim Url As String
    Dim postData As String
    Dim Request As Object

    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet1")
    
    '=======================================
    'CHANGE THE FOLLOWING
    ACCESS_TOKEN_INPUT = "YOUR ACCESS TOKEN"
    pb_title_input = "Title of the message"
    pb_body_input = "I am the body text"
    '=======================================

    'Authentication
    ACCESS_TOKEN = "Bearer " & ACCESS_TOKEN_INPUT
    
    'Variables
    pb_title = """" & pb_title_input & """"
    pb_body = """" & pb_body_input & """"

    'Use XML HTTP
    Set Request = CreateObject("MSXML2.XMLHTTP")

    'Specify Target URL
    Url = "https://api.pushbullet.com/v2/pushes"

    'Open Post Request
    Request.Open "Post", Url, False

    'Request Header
    Request.setRequestHeader "Authorization", ACCESS_TOKEN
    Request.setRequestHeader "Content-Type", "application/json;charset=UTF-8"

    'Concatenate PostData
    postData = "{""type"":""note"",""title"":" & pb_title & ",""body"":" & pb_body & "}"

    'Send the Post Data
    Request.send postData

    '[OPTIONAL] Get response text (result)
    MsgBox Request.responseText

End Sub