プログラム実行ユーザのメールサーバを取得したいときに、
ロケーション文書から取得するしかないと思っていたが
NotesDatabaseのopenMailメソッドで簡単に取得できることが
判明した。（知ってて当たり前？）
■opemMailメソッドを使ってメールDBを取得、サーバ名をPrintする
Dim db as New NotesDatabase("", "") '適当にNotesDatabaseインスタンスを生成
call db.openMail() 'openMailを実行するとスクリプトを実行しているユーザのメールDBを開く
Print "メールサーバ名: " & db.Server 'メールDBのサーバ名をPrint
