服务器错误信息:NO RESUME,该怎样解决???

时间:2022-09-17 19:36:36
各位大侠:
我运行一个代理,这个代理包括赋值和发送邮件连接,赋值部分能执行,但是发邮件部分不能运行。服务器上出现上面的错误信息,用LS写的发邮件的代理都不能运行,请问各位大侠,这是什么问题,该怎样解决?

9 个解决方案

#1


Sub Initialize
On Error Goto ErrMsg
         ......
Exit Sub
ErrMsg:
'在这儿加上 Exit Sub 或 Resume Next
End Sub

#2


多谢tx18的回复!我试了你说的方法,但是没有作用.我的现象还有就是我的代理不能用,但是其他人的却可以用.前一段时间我的可用,另一个人的不可用.是不是与服务器的那个地方有关?还望大侠在赐教!

#3


看看你运行代理的权限。

#4


On Error Goto ErrMsg 
。。。
ErrMsg :
Print Cstr(Erl)+" "+Error$
Exit Sub
用上面的代码看看问题出在那一行,在解决吧

#5


好象是网络的形式,你是办公室、家庭还是什么的,在屏幕的右下放。

#6


还有那为大侠能帮小第一把上面的我都试过拉,还是不行,谢谢拉!

#7


感谢各位大侠的人心帮助上个问题我已经解决,但是又有问题啦。我的 问题是当用其他人的ID登陆,执行一个操作A,这各操作A激发一个可以发送邮件的代理,但是在收到的邮件中发件人总是我的名字,请问各位大侠有谁遇到过,请帮我分析一下问题在那?谢谢啦!

#8


如果在web下运行的话可以用一下下面错误捕获
'--------------------------------------------------------
'-- 文档说明   --
'-- --
'-- 功能:运用代理接收文档的ID号,然后在数据库中  --
'--  找出并删除 --
'-- 资源: --
'-- 日期:2001-2-20 --
'-- 作者:fanfree --
'--------------------------------------------------------
Sub Initialize
Dim session As New NotesSession
Dim database As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim doc As NotesDocument
Dim queryString As String
Dim ID As String

Dim nTab As String

Dim ProcedureTitle As String

ProcedureTitle = "删除选择的文档(Single)"

Message = " "
nTab = "   &nbsp"

On Error Goto processError

Set database = session.CurrentDatabase
Set acl = database.acl
Set entry = acl.GetEntry(session.EffectiveUserName)
Set doc = session.DocumentContext

queryString = Mid$(doc.Query_String(0), 11)
ID = Mid$(queryString, 4)

'Set doc = database.GetDocumentByUNID(ID)

UserRight = ReturnStrLevel(entry.level)

Print "<FONT color=""#0000FF"">当前的用户:" + session.EffectiveUserName + "</FONT>"
Print "<BR>"
Print "权限:" + UserRight
Print "<BR><BR>"

If Not (Doc Is Nothing) Then
doc.Remove(False)
Else
Print "你没有删除文档的权限!!!"
Exit Sub
End If


Print "文档已经删除了。"
Exit Sub

processError:
Print "发生错误:" & ProcedureTitle & "<BR>"
Print "号码:" & Err() & "<BR>"
Print "描述:" & Error() & "<BR>"
Print "行数:" & Erl

End Sub

#9


很感谢大家对我的帮助,问题我已经全部解决

#1


Sub Initialize
On Error Goto ErrMsg
         ......
Exit Sub
ErrMsg:
'在这儿加上 Exit Sub 或 Resume Next
End Sub

#2


多谢tx18的回复!我试了你说的方法,但是没有作用.我的现象还有就是我的代理不能用,但是其他人的却可以用.前一段时间我的可用,另一个人的不可用.是不是与服务器的那个地方有关?还望大侠在赐教!

#3


看看你运行代理的权限。

#4


On Error Goto ErrMsg 
。。。
ErrMsg :
Print Cstr(Erl)+" "+Error$
Exit Sub
用上面的代码看看问题出在那一行,在解决吧

#5


好象是网络的形式,你是办公室、家庭还是什么的,在屏幕的右下放。

#6


还有那为大侠能帮小第一把上面的我都试过拉,还是不行,谢谢拉!

#7


感谢各位大侠的人心帮助上个问题我已经解决,但是又有问题啦。我的 问题是当用其他人的ID登陆,执行一个操作A,这各操作A激发一个可以发送邮件的代理,但是在收到的邮件中发件人总是我的名字,请问各位大侠有谁遇到过,请帮我分析一下问题在那?谢谢啦!

#8


如果在web下运行的话可以用一下下面错误捕获
'--------------------------------------------------------
'-- 文档说明   --
'-- --
'-- 功能:运用代理接收文档的ID号,然后在数据库中  --
'--  找出并删除 --
'-- 资源: --
'-- 日期:2001-2-20 --
'-- 作者:fanfree --
'--------------------------------------------------------
Sub Initialize
Dim session As New NotesSession
Dim database As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim doc As NotesDocument
Dim queryString As String
Dim ID As String

Dim nTab As String

Dim ProcedureTitle As String

ProcedureTitle = "删除选择的文档(Single)"

Message = " "
nTab = "&nbsp;&nbsp;&nbsp;&nbsp"

On Error Goto processError

Set database = session.CurrentDatabase
Set acl = database.acl
Set entry = acl.GetEntry(session.EffectiveUserName)
Set doc = session.DocumentContext

queryString = Mid$(doc.Query_String(0), 11)
ID = Mid$(queryString, 4)

'Set doc = database.GetDocumentByUNID(ID)

UserRight = ReturnStrLevel(entry.level)

Print "<FONT color=""#0000FF"">当前的用户:" + session.EffectiveUserName + "</FONT>"
Print "<BR>"
Print "权限:" + UserRight
Print "<BR><BR>"

If Not (Doc Is Nothing) Then
doc.Remove(False)
Else
Print "你没有删除文档的权限!!!"
Exit Sub
End If


Print "文档已经删除了。"
Exit Sub

processError:
Print "发生错误:" & ProcedureTitle & "<BR>"
Print "号码:" & Err() & "<BR>"
Print "描述:" & Error() & "<BR>"
Print "行数:" & Erl

End Sub

#9


很感谢大家对我的帮助,问题我已经全部解决