Lotus Notes/Domino備忘録

上記の広告は１ヶ月以上更新のないブログに表示されています。新しい記事を書く事で広告が消せます。

私にネタを提供して頂くために設置してある（!?）投票ボックスですが、
何件かコメント入れて頂いた方ありがとうございますm(_ _)m

今後もどしどし募集ですが（笑）、募集するからにはこちらも消化しないと集まってきませんので、とりあえずジャブ的なところから。


コメントの中に「閉じる」と一言入っていたのですが、閉じるとは、、、文書を閉じるとかでいいんでしょうか？？

では、とりあえずタイトル通りですが、閉じるだけでは寂しいので、文書の「保存して閉じる」のサンプルを。

---

※条件としては、ワークスペース上に文書を開いていることが絶対条件です。

Sub SaveAndClose()

 Dim ws As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument

 'これが文書を開いている、という絶対条件の箇所。
 Set uidoc = ws.CurrentDocument

 Call uidoc.Save(True,True)
 Call uidoc.Close

End Sub

こんなサブルーチン化する必要もないと思うんで、中のロジックだけコピペすれば動きます。


って、ホントにこれじゃ寂しいので、追加で@関数での「保存して閉じる」を別エントリに続けて書きます。
必須入力項目のチェックなんかも含めて。

テーマ:プログラミング - ジャンル:コンピュータ

Name:

Subject:

Mail:

URL:

Comment:

Pass:

秘密:

管理者にだけ表示を許可する