svn commit: r1147655 - /esme/site/trunk/content/docs/clients/vba.mdtext

[rh...@apache.org]

Author: rhirsch
Date: Sun Jul 17 15:20:56 2011
New Revision: 1147655

URL: http://svn.apache.org/viewvc?rev=1147655&view=rev
Log:
CMS commit to esme by rhirsch

Modified:
    esme/site/trunk/content/docs/clients/vba.mdtext

Modified: esme/site/trunk/content/docs/clients/vba.mdtext
URL: http://svn.apache.org/viewvc/esme/site/trunk/content/docs/clients/vba.mdtext?rev=1147655&r1=1147654&r2=1147655&view=diff
==============================================================================
--- esme/site/trunk/content/docs/clients/vba.mdtext (original)
+++ esme/site/trunk/content/docs/clients/vba.mdtext Sun Jul 17 15:20:56 2011
@@ -1,8 +1,9 @@
 Title: 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](https://cwiki.apache.org/confluence/display/ESME/RESTAPI)
+Word. This macro is based on ESME's [REST API](/docs/apis/original-api.html)
 .
 
 The macro pops up in your Office tool of choice which allows you to enter a
@@ -13,40 +14,41 @@ To authenticate themselves, ESME users m
 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)
-|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
+    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)
+    |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
 
-’send
-myHTTP.Send
-End Sub