作成者	カテゴリ	返答の対象		公開
Vit 03/25/2010 03:16 PM		添付ファイルの有無チェック方法

以下の方法でどうでしょうか？

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
Call uidoc.Refresh

'添付ファイル有無チェック
tmp = Evaluate("@Attachments")
If Cint(tmp(0)) = 0 Then
Messagebox "ファイルを添付してください",16,"エラー"
End If