Ukázka kódu pro OpenOffice

V následující ukázce je funkční kód pro OpenOffice, který zajišťuje XML komunikaci se serverem pro předávání požadavků a získávání odpovědí, které je pak možné jiným kódem prezentovat v tabulce apod.

Dim fxdServerAddress
Dim fxdUserLoginName
Dim fxdUserPassword
'-------------------------------------
Sub Main
mobjXhttp = CreateObject("MSXML2.XMLHTTP")
fxdServerAddress = "http://flexideo.my-company.com"
fxdUserLoginName = "my.name"
fxdUserPassword  = "my.pssw"
serverLogin
End Sub
'-------------------------------------
public function serverLogin() as boolean
'funkce pro login
dim objHttp
set objHttp = CreateObject("MSXML2.XMLHTTP")
objHttp.Open "POST", fxdServerAddress & "/solve", False, fxdUserLoginName, fxdUserPassword
objHttp.setRequestHeader "Content-Type", "text/xml"
objHttp.Send "<request><get-user/></request>"
'ověříme výsledek
msgbox cStr(objHttp.statusText) & ": " & objHttp.ResponseText
end function

Obdobným způsobem lze komunikovat s flexideo serverem i z prostředí MS Excel - viz. další ukázka.