作成者	カテゴリ	返答の対象		公開
バンナ 10/04/2010 06:57 PM		添付ファイル名の取得

「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
object = rtitem.EmbeddedObjects　'ファイル部分を得る
End If
End If

としてみました。

デバッグではobjectに取得したい名称があることは確認できました。

しかし、そこから前に進めずにおります。

このobjectから名称を取り出すにはどのようにすればよろしいでしょうか。

試行錯誤しているのですが、、、

おわかりになる方いらっしゃいましたら、ご教示いただけませんでしょうか。