Function RemoveAttachment( doc As NotesDocument )
On Error Goto ErrorFlag
\'移除附件
Dim object As Variant
Dim names As String
Forall item In doc.Items
If(Ucase(item.name) = Ucase("$file")) Then
names = item.values(0)
If names<>"" Then
Msgbox "移除附"+names+"開始"
Set object = doc.Getattachment(names)
Call object.remove()
Msgbox "移除附件"+names+"結束"
End If
Msgbox names
End If
End Forall
Exit Function
ErrorFlag:
MsgBox "RemoveAttachment:" & erl()
End Function