关于容错？解决方案

关于容错？？
有一段代码：
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