Tuesday, June 06, 2006

Scan papers directly from Lotus Notes code

Dmitrij Vojtushin in his blog shares LotusScript code to scan papers and attach the scanned picture to a Notes document. Looks like it works in both UI and background code.

Here is a short example:
Sub Initialize
' Scan paper page to clipboard and then paste to Body
Call TWAIN_AcquireToClipboard(0,0)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField( "Body" )
Call uidoc.Paste
End Sub


No comments: