作成者	カテゴリ	返答の対象		公開
加納 11/27/2009 05:03 PM		文書リンクから文書を開くときの対応

こんか感じで制御できました。
QueryOpenとQueryCloseに記述してください。
説明はたぶんしなくてもわかると思います。



Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

Dim ss As New NotesSession
Dim doc As NotesDocument
Dim strENV As String

Set doc = source.Document
strENV = ss.GetEnvironmentString(doc.UniversalID)
If strENV <> "" Then
continue = False
Msgbox "すでに開いてますよ"
Else
Call ss.SetEnvironmentVar(doc.UniversalID,"TEST") '値はなんでもいい
End If

End Sub


Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim ss As New NotesSession
Dim doc As NotesDocument
Set doc = source.Document
Call ss.SetEnvironmentVar(doc.UniversalID,"")
End Sub