久しぶりの LotusScript ネタです。LotusScript は IBM ノーツ／ドミノのカスタマイズに使えるマクロ言語です。内容そのものはノーツじゃなくても（VBA でエクセルなどにも）応用できると思いますが、Windows 前提です。
Windows OS に標準搭載されている ServerXMLHTTP オブジェクトをノーツの LotusScript から使って、LotusScript で WEB API っぽいことを実現してみました。
まず ServerXMLHTTP オブジェクトについて。MSDN によるとこんなものです：
https://msdn.microsoft.com/ja-jp/library/ms762278(v=vs.85).aspx
簡単に言えば「HTTP クライアントライブラリとして使える ActiveX オブジェクト」です。このオブジェクトをインスタンス化すれば、比較的簡単に HTTP クライアントプログラムが作れます。特にノーツのマクロ言語である LotusScript はソケット通信とかネットワークプログラミングに若干弱いところがあるので、このオブジェクトを外部利用して WEB API を使ってみよう、という試みです。
例えばこんな感じ。開発環境であるドミノデザイナーを使ってノーツデータベースのエージェントを LotusScript で作り、Initialize サブルーチンに以下のような内容を記載します（エージェント名は ServerXMLHTTP としました）：
内容がシンプルなのでなんとなく理解できると思いますが、簡単に解説すると CreateObject を使って ServerXMLHTTP オブジェクトインタンスを生成し、"http://ibm.com/" を HTTP GET して、その内容をメッセージボックスで表示する、というものです。要するに http://ibm.com/ の HTML ソースコードを画面に表示する、というものです。
またエージェントのプロパティとして、実行時のトリガーは「イベント」で「アクションメニューの選択」、対象は「データベースの全ての文書」に設定しておきます。もちろん実行内容によってはここを変更する必要がでてきますが、今回の例ではこの設定でメニューから選択して実行できるようにしました：
改めてこのデータベースをノーツで開くと、メニューから作成したエージェント（図では "ServerXMLHTTP"）が選択できるようになっているはずです。これを選択して実行すると・・・
こんな感じのダイアログボックスが表示され、中に http://ibm.com/ の HTML ソースコードが表示されているはずです：
いかがでしょう。上記例では HTTP GET の例を紹介しましたが、この ServerXMLHTTP オブジェクトを使うと、POST など他のメソッドを指定することもできるし、もちろん送信データを指定することもできます。その辺りの詳しい話は公式ドキュメントを参照ください：
https://msdn.microsoft.com/ja-jp/library/ms762278(v=vs.85).aspx
HTTP クライアントがここまで簡単に使えると、各種 Web API が使えるようになるので、IBM Bluemix のワトソン API をノーツクライアントから（それもフロントエンドから）直接実行する、なんてことも可能になると思っています（余談ですが以前に Java を使って、ノーツのバックエンドからワトソン API を使う、という内容を紹介したことがあります。その記事はこちら）。
ノーツデータを広く応用・活用する際に使えそうなライブラリです。
Windows OS に標準搭載されている ServerXMLHTTP オブジェクトをノーツの LotusScript から使って、LotusScript で WEB API っぽいことを実現してみました。
まず ServerXMLHTTP オブジェクトについて。MSDN によるとこんなものです：
https://msdn.microsoft.com/ja-jp/library/ms762278(v=vs.85).aspx
簡単に言えば「HTTP クライアントライブラリとして使える ActiveX オブジェクト」です。このオブジェクトをインスタンス化すれば、比較的簡単に HTTP クライアントプログラムが作れます。特にノーツのマクロ言語である LotusScript はソケット通信とかネットワークプログラミングに若干弱いところがあるので、このオブジェクトを外部利用して WEB API を使ってみよう、という試みです。
例えばこんな感じ。開発環境であるドミノデザイナーを使ってノーツデータベースのエージェントを LotusScript で作り、Initialize サブルーチンに以下のような内容を記載します（エージェント名は ServerXMLHTTP としました）：
Sub Initialize Dim obj As Variant Set obj = CreateObject( "Msxml2.ServerXMLHTTP.6.0" ) Call obj.open( "GET", "http://ibm.com/", False ) Call obj.send() MsgBox obj.responseText End Sub
内容がシンプルなのでなんとなく理解できると思いますが、簡単に解説すると CreateObject を使って ServerXMLHTTP オブジェクトインタンスを生成し、"http://ibm.com/" を HTTP GET して、その内容をメッセージボックスで表示する、というものです。要するに http://ibm.com/ の HTML ソースコードを画面に表示する、というものです。
またエージェントのプロパティとして、実行時のトリガーは「イベント」で「アクションメニューの選択」、対象は「データベースの全ての文書」に設定しておきます。もちろん実行内容によってはここを変更する必要がでてきますが、今回の例ではこの設定でメニューから選択して実行できるようにしました：
改めてこのデータベースをノーツで開くと、メニューから作成したエージェント（図では "ServerXMLHTTP"）が選択できるようになっているはずです。これを選択して実行すると・・・
こんな感じのダイアログボックスが表示され、中に http://ibm.com/ の HTML ソースコードが表示されているはずです：
いかがでしょう。上記例では HTTP GET の例を紹介しましたが、この ServerXMLHTTP オブジェクトを使うと、POST など他のメソッドを指定することもできるし、もちろん送信データを指定することもできます。その辺りの詳しい話は公式ドキュメントを参照ください：
https://msdn.microsoft.com/ja-jp/library/ms762278(v=vs.85).aspx
HTTP クライアントがここまで簡単に使えると、各種 Web API が使えるようになるので、IBM Bluemix のワトソン API をノーツクライアントから（それもフロントエンドから）直接実行する、なんてことも可能になると思っています（余談ですが以前に Java を使って、ノーツのバックエンドからワトソン API を使う、という内容を紹介したことがあります。その記事はこちら）。
ノーツデータを広く応用・活用する際に使えそうなライブラリです。
