有一段代码:
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