Send a message to a Hipchat room from within MS Access 2013

Hey there,

I want to be able to send some data to my teams hipchat room, exception reports, things to follow up etc etc.

I have a mysql database, Access front end and want to 'in time' be able to assemble data and send from a small form I have that contains the data.

I have this code that I am testing with at the moment;

Dim TargetURL As String
Dim HTTPReq As Object

TargetURL = " HERE/notification?auth_token=MY TOKEN GOES HERE"
Set HTTPReq = CreateObject("WinHttp.WinHttpRequest.5.1")
HTTPReq.Option(4) = 13056 '
HTTPReq.Open "POST", TargetURL, False

HTTPReq.send "'{""color"":""red"", ""from"":""SLS"" ,""message"":""TEST"", ""message_format"":""text""}'"
MsgBox (HTTPReq.responseText)


But whenever I press the button to send I get this error;


The request body cannot be parsed as valid JSON: Expecting value: line 1 column 1 (char 0)

Bad Request

I am not sure what to do in order to get this to simply send my test message working, let alone the more complicated data package to send over.


Any ideas?



1 answer

I'll answer this myself..  I had an extra ' in the mix at both ends!  basic message send is working.

Now to figure out how to send a nicely formated block of text?!

Suggest an answer

Log in or Join to answer
Community showcase
Maarten Cautreels
Published Oct 07, 2017 in Hipchat

Bringing Structure to your HipChat Instance

...have mention name FirstnameLastname. Fe.: @MaartenCautreels This certainly helps to know who is being mentioned in a conversation. Imagine your colleague sends the following message...

470 views 1 4
Read article

Atlassian User Groups

Connect with like-minded Atlassian users at free events near you!

Find a group

Connect with like-minded Atlassian users at free events near you!

Find my local user group

Unfortunately there are no AUG chapters near you at the moment.

Start an AUG

You're one step closer to meeting fellow Atlassian users at your local meet up. Learn more about AUGs

Groups near you
Atlassian Team Tour

Join us on the Team Tour

We're bringing product updates and pro tips on teamwork to ten cities around the world.

Save your spot