,这段代码有什么东东
发布时间:2010-06-13 13:48:24 文章来源:www.iduyao.cn 采编人员:星星草
求助,这段代码有什么错误?
有一段代码:
Sub Click(Source As Button)
On Error Goto errhandle
Dim s As New notessession
Dim db As notesdatabase
Dim view As notesview
Dim note As notesdocument
Dim maildoc As notesdocument
Dim rtitem As notesrichtextitem
Dim object
Dim datetime1 As New notesdatetime(Now)
Dim strdate As String
Dim strdir As String
Call datetime1.AdjustDay(-1)
strdate = Format(datetime1.DateOnly,"yyyymmdd")
strdir = |d:\transmit\|
Set db = s.currentdatabase
Set view = db.getview("index")
Set note = view.getfirstdocument
Dim i As Integer
Do While Not note Is Nothing
If note.flag(0)="发流水" Then
i=i+1
Set maildoc = New notesdocument(db)
maildoc.form = "memo"
Set rtitem = New NotesRichTextItem( maildoc, "Body" )
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", strdir+note.DevNo(0)+|\|+note.DevNo(0)+|_|+strdate+|.J|)
On Error Goto errhandle
maildoc.sendto = note.mail(0)
maildoc.subject = note.DevNo(0)+" "+strdate
maildoc.body = "邮件测试内容"
maildoc.from="自动发件人"
Call maildoc.send(False)
End If
MoveNext:
Set note = view.getnextdocument(note)
Loop
Msgbox |共发送了 |+Cstr(i)+| 封邮件 --|
Exit Sub
errhandle:
Msgbox note.DevNo(0)+|_|+strdate+|.J|+|文件不存在|
i=i-1
Goto MoveNext
Exit Sub
End Sub
问题: 在第一次 找不到文件 执行OnError, 程序 goto errhandle之后 显示Msgbox:文件不存在 点鼠标接着循环
在第二次 找不到文件 不执行OnError 程序不执行 errhandle之后的Msbox 点鼠标就退出了
什么原因??
------解决方案--------------------
问题: 在第一次 找不到文件 执行OnError, 程序 goto errhandle之后 显示Msgbox:文件不存在 点鼠标接着循环
在第二次 找不到文件 不执行OnError 程序不执行 errhandle之后的Msbox 点鼠标就退出了
什么原因??
****
这个问题能说清楚点吗?
------解决方案--------------------
你确定程序走到embedobject那里了?这个条件满足?
If note.flag(0)="发流水" Then
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
问各位初学lotus notes开发看什么书
问各位初学lotus notes开发看什么书,如果有共享的话就谢谢大家了
------解决方案-----------...
-
简单的语法,请大侠看看!!
我是刚入门的菜鸟,我想添加我在视图中选择多个IP地址,并把它们放到address这个域当中,如果我用@PickList这个...
-
如何屏蔽或隐藏notes文件菜单中的引出按钮?
出于安全考虑,要隐藏引出按钮?
------解决方案--------------------
CS的话可以修...
-
c/s下如何封CTRL+C CTRL+V?
谢谢!
------解决方案--------------------
给数据库acl加权限,禁止复制...
-
domino 可以改变域的容量吗?
domino 可以改变域的容量吗?32kb改成更大一点的
------解决方案--------------------
普通域大小不...
-
Domino用户重复的问题 请大侠们指教~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
各位好 目前遇到如下问题
A服务器是主...
-
用js 怎样截取字符串?
var str="C:\Documents and Settings\dell\桌面\guanxi4.bmp"
我只需要 guanxi4.bmp 用js 怎样...
-
domino 自动编号
设计重1开始编号,依次不重复的,有好的建议吗?
------解决方案--------------------
再看以前发的一个帖子,对你有...
-
请高手进来看看:表单提交报错。
表单提交的时候报错:HTTP Web Server: Item value exceeds maximum allowable size. [/oadata/ccc....
-
Lotus Notes 8.5 发邮件时错误提示 failed to authenticate
如标题。
只有一个账户,点发邮件的时候有这样的错误提示,其他账户都正...