作成者	カテゴリ	返答の対象		公開
バンナ 09/30/2010 03:11 PM		添付ファイル名の取得

早速の回答ありがとうございます。

参考にしてみましたが、エラーとなってしまいます。
「T003 型が一致しません」

どこを修正するべきでしょうか。



Dim object As NotesEmbeddedObject
Dim rtitem As NotesRichTextItem
Dim tmpTemp1 As String 'テキスト用
Dim tmpTemp2 As String 'ファイル用

Set rtitem = doc.GetFirstItem( "FIELD" )
If ( rtitem.Type = RICHTEXT ) Then
tmpTemp1 = rtitem.GetFormattedText( True , 0) 'テキスト部分を得る
If Isarray(rtitem.EmbeddedObjects)=True Then
Set object = rtitem.EmbeddedObjects　'←ここでエラー
tmpTemp2 = object.Source
End If
End If