Paste Information Application

Document Library
Main Topic

Kurt Tomicich
2007/12/12

Procedure
Reference

Subject:	Paste Information Application
Category:	Software\ Lotus Notes

Version:
Revision Date:	2008/07/22 Modified: 2015/02/17

Originator	Reviewers
Kurt Tomicich

Written by Alan Lepofsky --> http://www.alanlepofsky.net/alepofsky/alanblog.nsf/dx/paste-information-application

----- Install Instructions -----

PasteInformation.nsf

quote.gif

First save the two files, "pasteinformation.nsf" and "quote.gif" attached above to your Lotus Notes data directory.

Next you need to create the custom Toolbar icon:

1. Select the following text and copy it to your clipboard: <database := "KRT/paste.nsf" ;>
database := "KRT/paste.nsf" ;
choicelist := @DbColumn("" : "ReCache" ; "" : database ; "($All)" ; 0 );
dockey := @Prompt([OkCancelList] ; "Add text..." ; "Please choose the document title containing the content you wish to paste at the current cursor position." ; "" ; choicelist) ;
@PostedCommand([FileOpenDatabase]; "" : database ; "($All)" ; dockey ; 1 ; 1 ) ;
@PostedCommand([EditDocument]) ;
@PostedCommand([EditGotoField] ; "Body" ) ;
@PostedCommand([EditSelectAll]) ;
@PostedCommand([EditCopy]) ;
@PostedCommand([FileCloseWindow]) ;
@PostedCommand([FileCloseWindow]) ;
@PostedCommand([EditPaste])

2. From the Notes menus select "File - Preferences - Toolbar Preferences..."

3. In the resulting "Toolbar Preferences" dialog box, on the left hand side click "Customize"

4. Click "New - Button"

5. In the resulting "Edit Toolbar Button" dialog box, enter text for the button caption and popup help, and then in the formula field paste in the text you copied above.

Image:Paste Information Application

6. Click on "Change Icon"

7. Click on "New"

8. Select the "quote.gif" file that you saved above, and click Open.
Image:Paste Information Application

9. Click on "OK"

10. You will now see the new Icon on the Toolbar Contents preview. If you would like you can leave it where it is, personally I like to move it to the far left using the "Left" Reorder button. Click on "Save Toolbar" and then "OK"
Image:Paste Information Application

------------------------------------

database := "GSCR/GSCRPaste.nsf" ;

database := "GSCR/GSCRPaste.nsf" ;
database := "GSCR/GSCRPaste.nsf" ;
choicelist := @DbColumn("" : "ReCache" ; "" : database ; "($All)" ; 0 );
dockey := @Prompt([OkCancelList] ; "Add text..." ; "Please choose the document title containing the content you wish to paste at the current cursor position." ; "" ; choicelist) ;
@PostedCommand([FileOpenDatabase]; "" : database ; "($All)" ; dockey ; 1 ; 1 ) ;
@PostedCommand([EditDocument]) ;
@PostedCommand([EditGotoField] ; "Body" ) ;
@PostedCommand([EditSelectAll]) ;
@PostedCommand([EditCopy]) ;
@PostedCommand([FileCloseWindow]) ;
@PostedCommand([FileCloseWindow]) ;
@PostedCommand([EditPaste])

All Documents By Author By Category By Alternate Name Review Status Help