LOTUSSCRIPT/COM/OLE CLASSES
Examples: FieldGetText method
1. This script puts the string "02:32 PM Today" into the variable composed, if the DateComposed field holds the date-time value 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. This script uses FieldGetText to send a mail memo to the author of a document. It assumes that the author is stored in the From field. For example, if the current document author is Stephanie Mavis and its subject is "Suit and tie," this script sends a memo to Stephanie Mavis with the subject "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
Vedere anche
FieldGetText method
Glossario
Guida sulla Guida
Contenuto completo della Guida
Glossario