LotusScript：添付ファイル有無確認方法

ここでは、naiyouというフィールドに文字もしくは添付ファイルの
どちらかが入っているかどうかをチェックする。
EmbeddedObjectsの戻り値が配列であることを利用して、
配列であれば添付やオブジェクト貼り付け有。
配列でなければ文字だけのデータとしてチェックできる。
※R5.0.5でのみ動作検証。 R7.0.2でも動作確認ＯＫ

'docは現在開いてる文書のバックエンド文書として取得したものとする。
Dim rtitem As Variant
Set rtitem = doc.GetFirstItem("naiyou")
If ( rtitem.Type = RICHTEXT ) Then
　　valuedata = rtitem.EmbeddedObjects
　　If Isarray(valuedata) Then
　　　　'オブジェクトが含まれている場合
　　Else
　　　　'オブジェクトが含まれていない場合
　　　　planeText = rtitem.GetFormattedText( True, 0 )
　　　　If planeText = "" Then
　　　　　　'オブジェクトもテキストもない場合
　　　　else
　　　　　　'テキストのみの場合
　　　　End If
　　End If
End If

= 追記（2008/9/2）=

↓は、ちょっとスペース文字削除を追加して関数化したもの。
リッチテキストフィールドに何らかのオブジェクトか文字が含まれていれば
Trueを返す。

Function TMPchk2(doc As NotesDocument, FieldName As String) As Variant
　　Dim rtitem As Variant
　　Set rtitem = doc.GetFirstItem(FieldName)
　　If ( rtitem.Type = RICHTEXT ) Then
　　　　valuedata = rtitem.EmbeddedObjects
　　　　If Isarray(valuedata) Then
　　　　　　'オブジェクトが含まれている場合
　　　　　　TMPchk2 = True
　　　　Else
　　　　　　'オブジェクトが含まれていない場合
　　　　　　planeText = rtitem.GetFormattedText( True, 0 )
　　　　　　If Trim(planeText) = "" Then 'オブジェクトもテキストもない場合
　　　　　　　　TMPchk2 = False
　　　　　　Else 'テキストのみの場合
　　　　　　　　TMPchk2 = True
　　　　　　End If
　　　　End If
　　End If
End Function

↓は拡張子チェック用関数に。
拡張子が条件（strExtension）と合うならTrueを。
オブジェクトの個数が複数。若しくは、拡張子が違う場合にFalseを返す。
以下の関数は、１つのリッチテキストフィールドに
１つのファイルしか添付しないように、運用上の縛りが必要。

Function TMPchk3(doc As NotesDocument, FieldName As String, strExtension As String) As Variant
　　Dim strFileName As String
　　Dim rtitem As Variant
　　Dim strExData As String, intLength As Integer
　　Dim v As Integer
　　v = -1

　　Set rtitem = doc.GetFirstItem(FieldName)
　　If ( rtitem.Type = RICHTEXT ) Then
　　　　valuedata = rtitem.EmbeddedObjects
　　　　　　If Isarray(valuedata) Then 'オブジェクトが含まれている場合
　　　　　　　　If strExtension = "" Then '拡張子ﾁｪｯｸなし
　　　　　　　　　　TMPchk3 = True
　　　　　　　　Else '拡張子ﾁｪｯｸあり
　　　　　　　　　　Forall o In rtitem.EmbeddedObjects
　　　　　　　　　　If ( o.Type = EMBED_ATTACHMENT ) Then
　　　　　　　　　　　　v = v + 1
　　　　　　　　　　　　If v = 0 Then 'オブジェクトが１つのみ
　　　　　　　　　　　　　　strFileName = o.Name
　　　　　　　　　　　　Else 'オブジェクトが複数のとき
　　　　　　　　　　　　　　TMPchk3 = False
　　　　　　　　　　　　　　Exit Function
　　　　　　　　　　　　End If
　　　　　　　　　　End If
　　　　　　　　End Forall

　　　　　　　　'拡張子チェック
　　　　　　　　intLength = Len(strExtension)
　　　　　　　　strExData = Right$(strFileName, intLength)
　　　　　　　　If strExData = strExtension Then '拡張子と条件が同じ場合
　　　　　　　　　　TMPchk3 = True
　　　　　　　　Else
　　　　　　　　　　TMPchk3 = False
　　　　　　　　End If
　　　　　　End If
　　　　End If
　　End If
End Function

注意点>>>>>
このスクリプトを使う前（なるべく直前がよい）に必ず文書をセーブしておくこと。
じゃないと、If ( rtitem.Type = RICHTEXT ) Then の行でエラーする。