Lotus Notes/Domino備忘録

リッチテキストフィールド：FldAに格納されている添付ファイルのファイル名を取得し、
FldAAttName(FldA部分は、添付ファイルを検索するフィールド名)フィールドにファイル名を格納します。
（ん～、ホントNotes以外では役に立ちそうも無い。。。）

---

**********************************************************************************:

Sub GetAttName(FldA As String)
'変数の宣言
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim StrC As Variant
Dim LstA() As String
Dim cnt As Integer
'初期値をセット
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
'初期値をセット
Redim lstA(0)
Set rtitem = doc.getfirstitem(FldA)
cnt=0
'ターゲットのフィールドに格納されている添付ファイルの名前を入手
If Not Isempty(rtitem.EmbeddedObjects) Then
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Redim Preserve LstA(cnt)
LstA(cnt)=o.Source
cnt=cnt+1
End If
End Forall
End If
End If
Call doc.ReplaceItemValue(FldA & "AttName",LstA)

End Sub

テーマ:システム開発 - ジャンル:コンピュータ

Name:

Subject:

Mail:

URL:

Comment:

Pass:

秘密:

管理者にだけ表示を許可する