[求助]简单的代理设了定时居然不执行？？

Zoe

需要从一个邮箱的收件箱里将附件拆离下来，代理设为一日运行多次，设立了间隔5分钟，开始时间和结束时间，没有设开始日期和结束日期，运行的服务器选择“本地”和服务器都试过，一点反映都没有，手工运行没有问题，程序如下，大家帮我看看哦～：

Sub Initialize
Dim s As New notessession
Dim uiws As New notesuiworkspace
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
Set db = s.currentdatabase
Set view = db.GetView( "($Inbox)" )
Call view.Refresh
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
If doc.HasEmbedded Then
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile( "d:\"+o.name )
End Forall
End If
Call doc.PutInFolder( "已拆离附件", True )
Call doc.RemoveFromFolder( "($Inbox)" )
End If

Set doc = view.GetNextDocument( doc )
Wend
End Sub

notes中“用户惯用选项”中的“启用定时执行本地代理”已经选中

fish5678

是不是notesuiworkspace 这样的对象不可以在代理中用啊?

Zoe

好像我这个参数设了没有使用到哦。。。又影响？？？我现在把邮箱在本地做一个复本看看在本地会不会执行。。。。

看代理日志好像执行了，可是没有效果啊。。。。。没有把附件拆离下来，，，，

Zoe

这句Dim uiws As New notesuiworkspace删掉后，本地的副本可以运行了，谢谢拉。。。不过服务器的还是不行，只能定时作复制了：（

蘭子

在服務器中不能運行,看下執行代理的使用者有沒有權限.

Zoe

对不起，我表达的可能不太清楚，我并不希望这个代理在服务器上运行，只是希望在某个客户端打开服务器上的邮箱，这个邮箱里的定时代理能够执行，而将邮件中的附件拆离在客户端的某个目录下

Zoe

完了完了，重建一个复本之后就不行了，一动不动。。。。。奇怪了。。。。。明天就要用了，我咋办啊。。。

hawk_lm

兰子大侠，我没用到notesuiworkspace对象，手动能运行，可定时代理就不行了，不知怎么回事，能指点一下吗？