清理收件夹的代理Code for CleanupInbox agent代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】清理收件夹的代理Code for CleanupInbox agent

作者:乙洁 / 发布于2015/1/22/ 1390


	eanupInbox &ndash; moves older documents out of inbox
	Sub Initialize
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Set db = s.CurrentDatabase
	Dim dr1 As notesdaterange
	Dim v As notesview
	Dim dc1 As NotesDocumentCollection
	Dim gracedoc As NotesDocument
	Dim stime1 As New NotesDateTime("0/0/0")
	Dim etime1 As New NotesDateTime("Today")

	Set gracedoc = db.GetProfileDocument("inboxgracedays")
	Dim graceval As Variant
	Dim gracedays As Integer

	' if no profile doc has been prepared, default is 90 days
	If gracedoc.HasItem("gracedays") Then
	graceval = gracedoc.GetItemValue("gracedays")
	gracedays = Cint(graceval(0))
	Else
	gracedays = 90
	End If

	etime1.AdjustDay(-1*gracedays)

	' create a daterange excluding docs newer than graceperiod
	Set dr1 = s.CreateDateRange()
	Set dr1.StartDateTime = stime1
	Set dr1.EndDateTime = etime1

	'dc1: collection of 'old' documents from inbox
	 (before or on Today - gracedays)
	Set v = db.GetView("($Inbox)")
	Set dc1 = v.GetAllDocumentsByKey(dr1)

	'pull out expired docs
	dc1.RemoveAllFromFolder("($Inbox)")
	End Sub
	'SetInboxGracePeriod agent &ndash; sets the grace period for inbox
	Sub Initialize
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Set db = s.CurrentDatabase
	Dim gracedoc As NotesDocument
	Dim gracedays As Integer
	Dim inputgracedays As Integer
	Dim maxdays As Integer
	Dim graceval As Variant
	Dim gracevar As Variant
	maxdays = 1000

	Set gracedoc = db.GetProfileDocument("inboxgracedays")
	If gracedoc.HasItem("gracedays") Then
	graceval = gracedoc.GetItemValue("gracedays")
	gracedays = Cint(graceval(0))
	Else
	gracedays = 90
	End If
	getInput:
	inputgracedays = -1
	gracevar = Inputbox("Days to retain in Inbox? (currently " &
	 gracedays & ")" )
	If (gracevar <> "") Then
	inputgracedays = Cint(gracevar)
	End If

	While (inputgracedays > maxdays)
	Msgbox("Maximum of " & maxdays
	 & " days exceeded")
	Goto getInput
	Wend

	If inputgracedays <> -1 Then
	gracedays = inputgracedays
	End If

	Set gracedoc = db.GetProfileDocument("inboxgracedays")
	gracedoc.ReplaceItemValue "gracedays",gracedays
	Call gracedoc.Save(False,False)
	End Sub

试试其它关键字

　收件夹　

同语言下

可能有用的

乙洁贡献的其它代码(2)