LotusScript Submit button

This Script for an Web Query Save Agent takes the Values of Fields from a Web-Document and writes to a new created Document.

This Script for an Web Query Save - Agent takes the Values of any Fields from a Web-Document and writes it in a new created Document. Since that a Return- Messaage appear. You can use Evaluated @- Funktions to receive any kind of data.
Sub Initialize

Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim newdoc As NotesDocument
	Set db = s.CurrentDatabase
	Set doc = s.DocumentContext
	Set newdoc = New NotesDocument(db)
	newdoc.Eingereicht=Evaluate({@now},doc) 
	newdoc.Form = "mask"	
	newdoc.From = s.UserName
        'the field A_Name is in the current document and newdoc.name is in the new created document
	newdoc.Name = doc.A_Name
	newdoc.WKN = doc.A_wkn
	Call newdoc.Save(True, False)
	Print "<h2>Your document has been saved</h2><br />"
	Print "Use this link to return to that page - <a href=""JavaScript: history.go(-2)"">Go Back 2 Pages</a>"
End Sub

Dig Deeper on Domino Resources

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close