いつもお世話になっています。 ある文書を「申請」する時に、添付ファイルの有無チェックをしようと思い、@Attachmentsを使って以下のように書きました。 Sub Click(Source As Button) Dim session As New NotesSession Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim tmp As Variant Set uidoc = ws.CurrentDocument uidoc.EditMode = True '添付ファイル有無チェック tmp = Evaluate( "@Attachments",uidoc) ★ If tmp=0 Then Messagebox "ファイルを添付してください",16,"エラー" End If 〜以下略〜 ★のところで「Operation failed」というエラーが出て止まってしまいます。 エラーの意味もわからないし対処方法もわかりません。 どなたかヒントでも良いのでご教授お願いします。