LotusScriptでUTF-8テキスト出力

仕事関連のメモです。

LotusScriptでNotesStreamでOpenにてUTF-8を指定しても、Shift-JISでテキスト出力されるので出来なかった。
回避策として、ADODB.StreamをOLEで呼び出して、UTF-8になりました。

以下のコードをエージェントに貼り付けて、お試しください。
----------------------------------------------------------------
Sub Initialize
Dim objStream As variant
Set objStream = CreateObject("ADODB.Stream")

objStream.Charset = "UTF-8" '文字コードをUTF-8
objStream.Open 'ファイルオープン

objStream.WriteText "テキスト", 1 '文字列＋改行を書き込む
objStream.WriteText "テキスト", 0 '文字列のみ書き込む
objStream.SaveToFile "d:\a.txt", 2 'ファイルがある場合に上書き保存する
objStream.SaveToFile "d:\b.txt", 1 'ファイルがない場合にファイル保存する
objStream.Close 'ファイルクローズ

Set objStream = Nothing
End Sub
----------------------------------------------------------------