Domino系统管理员的12个小贴士 (易读英文版)，不是那个12个忠告版

 '//check security level of the person running the agent - admin level 
only
If admin(0) = 0 Then
 Msgbox "You do not have the required access to recall messages.  Please contact your Lotus Administrator.  Thank you", 0+16, "Error - Security Level"
 Exit Sub 
End If

 '//script will error if the mailDoc is not set, so force the script to resume next on any error
On Error Goto errHandler

 '//get a handle to the current database
Set db = s.CurrentDatabase

 '//get the first database in the directory on the server.
Set mailDb = notesdbdir.GetFirstDatabase(DATABASE)

 '//get the documented marked for removal
Set dc = db.UnprocessedDocuments

 '//check to make sure that a message(s) has been selected for recall. If not, then exit sub
If dc.count = 0 Then 
 Msgbox "You have not selected any messages to recall.  Please select the messages you wish to recall and run this agent again. Thank you.", 0+16, "Error - No Message Selected"
 Exit Sub 
End If

 '//Due to server performance, get only one document at a time 
Set doc = dc.GetFirstDocument

 '//set the log file using some information from the document
Set thisLog = New NotesLog("Message Recall")
Call thisLog.OpenNotesLog("server/ou", "applog.nsf")
thisLog.LogActions = True


 '//log brief information about the offending email for tracking purposes
Call thisLog.LogAction(" ********** RECALL STARTED ************* ") 
Call thisLog.LogAction(db.title & " - " & doc.universalid)

 '//check the database for the particular unid in question
While Not(mailDb Is Nothing)
 
  '//if the filepath of the database has 'mail' in it, then it should be a mail file
 If Instr(mailDb.FilePath,"mail") Then
  
   '//in order to search by unid, you must open an instance of the mail file

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	不是 那个 英文版 系统 管理员 plumlee 回复 6.5 True