LOTUS 提示错误，急求解决,各位专家！

Question

在lotus里添加附件,提示＂object variable not set＂,提示＂object variable not set＂急求帮助！ --------------------------------------------------------------------------------在lotus里添加附件，用下列代码实现，却提示＂object variable not set＂,哪位专家知道原因？
Sub Initialize
Dim s As New notessession
Dim doc As notesdocument
Dim neo As Notesembeddedobject
Dim pos As Integer
Dim size As LongSet doc = s.documentcontextForall o In doc.items 
If o.Name="$FILE" Then
Set neo=doc.getattachment(o.Values(0))
End If 
End Forall
Call doc.save(True,False) 
end sub