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

すいません、間違えました

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim tmp As Variant
'//追加
Dim doc As NotesDocument

Set uidoc = ws.CurrentDocument
'//追加
Set doc = uidoc.Document

uidoc.EditMode = True
Call uidoc.Refresh

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