を、保存できなくなった文書で、調べると… Dim ss As New NotesSession Dim db As New NotesDatabase(“", “") Dim doc As NotesDocument Dim maxitem$, maxlength As Integer If Not db.Isopen Then db.Open "", "" Set doc = db.Getdocumentbyunid(“") ForAll item In doc.items If item.Issummary Then If maxlength < item.Valuelength Then maxlength = item.Valuelength maxitem = item.name End If End If End ForAll Print maxitem, maxlength
文書を再作成して、もしリンク切れした場合、都合が悪い →却下 Unid$ = “<対象文書のUNID>" Set ss = New NotesSession Set doc = ss.Currentdatabase.Getdocumentbyunid(unid) Set newdoc = New NotesDocument(ss.Currentdatabase) doc.Copyallitems newdoc, True newdoc.Removeitem("$UpdatedBy") newdoc.Save True, false
1. Compactタスクでコピー圧縮 2. 最終更新者と同じ人が更新 3. 最終更新者と違う人が更新 効果なし 効果なし 効果あり!! 8650 バイト削減!! When are limits to $Revisions and $UpdatedBy applied? https://ibm.co/2oRlNgd