Sub Click(Source As Button)

     ' --- 現在の文書を操作するための定義
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     
     ' --- 保存
     If uidoc.editmode Then
          Call uidoc.save
     End If
     
     ' --- docを現在の文書として定義
     Dim doc As NotesDocument
     Set doc = uidoc.document
     Dim rtitem As Variant
     Set rtitem = doc.GetFirstItem("ReportFile")
     
     ' --- 添付ファイルが存在するかチェック
     If Isarray(rtitem.EmbeddedObjects)=True Then
          Msgbox "あり"
     Else
          Msgbox "なし"
     End If

End Sub