作成者	カテゴリ	返答の対象		公開
�Mマイク 02/12/2004 06:41 PM		☆☆承認ワークフローのメール宛先に、ＣＣを追加したい☆☆

ＮＡＧさん。ご返信ありがとうございます。

＞私が取った方法は････
notes変数からＣＣを取得するのではなく、doc変数
（NotesUIDocumentクラス）
から取得し、配列に置き換えてから、maildocのCopytoアイテムに設定しました。

ＮＡＧさんが仰ってた方法とは、こんな感じのことでしょうか？

Sub SendNotification

Dim ws As New NotesUIWorkspace '←ここから、UIDocumentクラスを無理やり持ってきてます。
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document

Print "通知送信"

'maildoc のｵﾌﾞｼﾞｪｸﾄ変数である note と、その Bodyﾌｨｰﾙﾄﾞを作成し裏付けします。
Set maildoc = New NotesDocument(db)
Set rtitem = New NotesRichTextItem(maildoc, "Body")
DueDate = note.DueDate

ccname = uidoc.FieldGetText("cc") '←ここでccの値を取りに行ってます。

If doc.hasitem("cc") Then ' noteにccが有るか
Msgbox"ＣＣ有り" & doc.cc(0)
Else
Msgbox"ＣＣなし"
End If


ですが、これを実行すると以下のｴﾗｰで落ちたので、違うのでしょうけど・・・・。

　　ｴﾗｰ(4412)->U005 ﾕｰｻﾞｰ定義ｴﾗｰ

方向性は、これで合っておりますか？