投稿

10月, 2014の投稿を表示しています

アーカイブの設定内容を取得する

イメージ
皆さん、こんにちは。10月に入りましたが大型台風が続々やってきています。
注意してくださいね。台風のときはなるべく出歩かないように。できることなら在宅勤務にしましょう(私の願いでもあったりします・・・)。


さて、今日も張り切っていきましょう。
とその前に・・・をクリックしてくださいね。



ではでは。
今日は久しぶりのLotusScriptです。
そして、いまだにアクセスが多い「アーカイブ」についてです。



メールのアーカイブをするのがほとんどだと思いますが、どんな設定になっているかを確認する方法が分かりにくいですよね。
通常、ノーツDBのプロパティから「アーカイブの設定」というボタンをクリックして(下図)、専用の画面上で確認します。

特殊な画面なので、他の方法では取得できないかな?と思っていたのですが、調べてみたらプロフィール文書の集合体でできていたことがわかりました。
であれば、LotusScriptで取得することができるのではないか?という事でサンプルを作ってみました。
Sub Click(Source As Button) Dim session As New NotesSession Dim db As NotesDatabase Dim pdoc As NotesDocument Dim proDoc As NotesDocument Dim i As Integer Dim proNum As Integer Dim proName As Variant Set db = session.GetDatabase( "Dominoサーバー名", "メールファイル名" ) Set pdoc = db.GetProfileDocument( "archive profile" ) proNum = Ubound( pdoc.GetItemValue( "ArchivePrivatePolicyList" ) ) proName = pdoc.GetItemValue…