关于容错？？
有一段代码：
Do While Not note Is Nothing
If note.flag(0)="True" 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+strdate+|.S|)
maildoc.sendto = note.mail(0)
maildoc.subject = "邮件测试"
maildoc.body = "邮件测试内容"
maildoc.from="自动发件人"
Call maildoc.send(False)
End If
Set note = view.getnextdocument(note)
Loop
如果我想
在Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", strdir+strdate+|.S|)
之后加上容错功能 如果object不存在 则：Msgbox |文件不存在|
点鼠标后 Set note = view.getnextdocument(note)
怎么办呢???
[解决办法]
Do While Not note Is Nothing
If note.flag(0)="True" Then
i=i+1
Set maildoc = New notesdocument(db)
maildoc.form = "memo"
Set rtitem = New NotesRichTextItem( maildoc, "Body" )
On Error goto ErrorHandler
Set object = rtitem.EmbedObject( EMBED_ATTACHMENT, "", strdir+strdate+|.S|)
maildoc.sendto = note.mail(0)
maildoc.subject = "邮件测试"
maildoc.body = "邮件测试内容"
maildoc.from="自动发件人"
Call maildoc.send(False)
End If
MoveNext:
Set note = view.getnextdocument(note)
Loop
....
Exit sub(or function)
ErrorHandler:
Msgbox |文件不存在|
Goto MoveNext
