作成者カテゴリ 
公開
A
02/16/2007 01:42 PM
-- 分類を選んでください --
ノーツサーバノーツクライアントサーバOSクライアントOSネットワークプロトコル
6.x6.xN/AN/AN/A

リッチテキストを新規文書へコピーしたい

過去の書きこみを参考にして何度かうまっくいったのですが、動きが怪しいので、書き込みしました。

現象:
@文書のプロパティでみるとフィールドには値が入っており添付ファイルもあるが画面には表示されない。
フィールドは非表示にはなっていない。
添付ファイルはフィールド外にも表示されない。
A試しに計算結果テキストに@textでぬきだすと文字が表示される。

テストパターン
・フィールドに直接、文字列入力またはファイル添付した場合、フィールド位置には表示されない。Aの@textは表示される。
・フィールドにメモ帳や別文書からコピー&ペーストした場合、正常にフィールド位置に表示さる。添付ファイルがあってもちゃんと表示される。もちろんAの@textも表示される。

テスト中のコーディングは以下です。参照もとのdocは引数で渡しています。
コピーしたいリッチテキストが3つあるので、微妙にパターンをかえてためしました。


Dim session As New NotesSession
Dim db As NotesDatabase
Dim newDoc As NotesDocument
Dim item As NotesItem

Dim fName As String

Set db = session.CurrentDatabase

Set newDoc = DB.CreateDocument
newDoc.Form = "フォーム名"

'リッチテキスト 例1)
fName = "R1"
Set item = Doc.GetFirstItem(fName)
Call item.CopyItemToDocument( newDoc, fName )

'リッチテキスト 例2)
fName = "R2"
Dim rt As NotesRichTextItem
Dim rtitem As New NotesRichtextItem(newDoc, fName)
Set rt = doc.getFirstItem(fName)
Call rtitem.AppendRtItem(rt)

'リッチテキスト 例3) 例1)と仕掛けは同じで変数を独自に宣言
fName = "R3"
Dim rtitemC As NotesItem
Set rtitemC = doc.GetFirstItem( fName )
Call rtitemC.CopyItemToDocument( newDoc, fName )

'テキスト (複数行入力あり)
fName = "FName"
Set item = Doc.GetFirstItem(fName)
Call item.CopyItemToDocument( newDoc, fName )

'文書保存
Call NewDoc.save(False, False)

何がいけないのでしょうか?
原因が判明しないと、文書コピーして不要フィールドを消すしかありません。
ご教授ください。


[Previous Main Document]
リッチテキストを新規文書へコピーしたい (A) * 現在地 *
. . Re: リッチテキストを新規文書へコピーしたい (かな)
. . . . Re: リッチテキストを新規文書へコピーしたい (A)
. . . . . . Re: リッチテキストを新規文書へコピーしたい (ブレゴ)
. . . . . . . . Re: リッチテキストを新規文書へコピーしたい (はやて)
. . . . . . . . . . Re: リッチテキストを新規文書へコピーしたい (A)
. . . . . . . . Re: リッチテキストを新規文書へコピーしたい (ブレゴ) (A)
. . . . . . . . . . Re: リッチテキストを新規文書へコピーしたい (ブレゴ) (NAG)
. . . . . . Re: リッチテキストを新規文書へコピーしたい (かな)
. . . . . . . . Re: リッチテキストを新規文書へコピーしたい (A)
. . . . . . . . . . Re: リッチテキストを新規文書へコピーしたい (NAG)
. . . . . . . . . . . . Re: リッチテキストを新規文書へコピーしたい (はやて)
. . . . . . . . . . Re: リッチテキストを新規文書へコピーしたい (taisei 999)
. . Re: リッチテキストを新規文書へコピーしたい (お礼) (A)
. . . . Re: リッチテキストを新規文書へコピーしたい (お礼) (NAG)
[Next Main Document]