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|https://cwiki.apache.org/confluence/display/ESME/RESTAPI].

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|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|http://api.esme.us/esme/api/logout]“, False

’send
myHTTP.Send
End Sub