LOTUSSCRIPT /COM/OLE のクラス
例:FieldGetText メソッド
1. 次のスクリプトは、[DateComposed] フィールドに日付/時刻値「02:32 PM Today」があるとき、変数 composed に文字列「02:32 PM Today」を入力します。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim composed As String
Set uidoc = workspace.CurrentDocument
composed = uidoc.FieldGetText( "DateComposed" )
End Sub
2. 次のスクリプトは FieldGetText を使用してメールメモを文書の作成者に送ります。作成者が [From] フィールドに保存されていることを前提とします。たとえば、現在の文書の作成者が Stephanie Mavis であり文書の件名が「Suit and tie」であるとき、次のスクリプトは Stephanie Mavis に「Re:Suit and tie」という件名のメモを送ります。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.Subject = "Re:" + uidoc.FieldGetText( "Subject" )
doc.Body = _
"Please send me some more information on this topic."
Call doc.Send( False, uidoc.FieldGetText( "From" ) )
End Sub
関連項目
FieldGetText メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集