仕事関連のメモです。
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
----------------------------------------------------------------