这段代码缺了那些内容？

ylhddh

Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
Const MAX = 100000
fileCount = 0   
'...set value of doc...  这部分省略了什么？怎么样才能完整？
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) _
    And ( o.FileSize > MAX ) Then
      fileCount = fileCount + 1
      Call o.ExtractFile _
      ( "c:\reports\newfile" & Cstr(fileCount) )
      Call o.Remove
      Call doc.Save( True, True )
    End If
  End Forall
End If
我需要达到拆离“body”域中的附件！

neil_1

主要缺了doc的赋值～，但需要时间情况的，一般当前的就是set doc = session.DocumentContext

neil_1

对了，Dim session as New NotesSession这句也没有加哟