作成者	カテゴリ	返答の対象		公開
1122 07/02/2002 03:20 PM		自分のメールアドレスをスクリプトで取得したい

こんにちは。

Dim s as New NotesSession
Dim namesdb as New NotesDatabase("servername","names.nsf")
Dim namesvw as NotesView
Dim namesdoc as NotesDocument

Dim nowUser as Variant
nowUser = Evaluate("@Name([Abbreviate];@UserName")

Set namesvw = namesdb.GetView("($VIMPeople)") '�@
Set namesdoc = namesvw.GetDocumentByKey(nowUser(0))

Msgbox("あなたのメールアドレスは、＜" & namesdoc.InternetAddress(0) & "＞です") '�A

これでいかがでしょうか？
�@のビュー名はR4の環境が無いので一応確認して下さい。
1列目が（ADMIN NOTES/TEST）となっているようなビューです。
�Aも同様に、ユーザーフォームのアドレスフィールドを当てはめて下さい。