RemoveAllAttachment

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