This project has retired. For details please refer to its Attic page.
Apache ESME - VBA

VBA

Many people spend most of the day either working on SAP-related systems or on Microsoft Office products.   We have created a VBA macro that creates messages on EMSE for those individuals who work with Excel and Word. This macro is based on ESME's REST API .

The macro pops up in your Office tool of choice which allows you to enter a quick message for ESME.

To authenticate themselves, ESME users must replace “insert_your_token“ with their own authorization token. Tags are currently hard-coded as well.

Sub ESME_sendMessage()

‘HTTP variable
Dim myHTTP As MSXML2.XMLHTTP

‘HTTP object
Set myHTTP = CreateObject(”msxml2.xmlhttp”)

‘open the connection
myHTTP.Open “post”, _
“[http://api.esme.us/esme/api/login?token=[insert_your_token]
|http://api.esme.us/esme/api/login?token=[insert_your_token]]“, False

’send
myHTTP.Send

‘ Send Message

Dim message

message = InputBox(”Enter Message”)

myHTTP.Open “post”, _
“[http://api.esme.us/esme/api/send_msg?message] =” + message + “&tags=Test,excel&via=excel”, False

’send
myHTTP.Send

‘Logout
myHTTP.Open “get”, _
“[http://api.esme.us/esme/api/logout]“, False

’send
myHTTP.Send
End Sub