postopenにuiworkspaceクラスの宣言をし忘れました。 dim ws as new notesuiworkspace を追加してください。m(_ _)m (なんでお前は動作確認をしないんだ)