如何删除收件箱中符合条件的文档？

要删除收件箱里，被退回邮件中符合条件的文档，但下面代码执行了只删除了一个文档，就一直在循环，不想问题出在哪里？
    Set aView = noDatabase.getview("($Inbox)")                     
    Set aDoc = aView.GETFIRSTDOCUMENT
     i = 1
    b = "Database disk quota exceeded"
    While Not (aDoc Is Nothing)
         a = aDoc.getfirstitem("FailureReason").Text   '失败原因
      
       If InStr(a, b) > 0 Then
           Call aDoc.Remove(True)  ' 删除邮件
       End If
      Set aDoc = aView.GetNextDocument(aDoc)                          ' 获取下一个邮件
      i = i + 1   '调试用，看循环多少次
    Wend