Altro Metodo Per Scansionare Documenti in Notes

Eccovi qui scovato un altro metodo per richiamare lo scanner ed archiviare documenti in un Rich-Text Field di un documento Notes...
Per primo cosa dovrete copiare la libreria allegata in questo articolo in una cartella PATH di sistema.
Ovvio che lavora solo sotto sistemi Windows!
Il resto è questa library che richiama le funzioni della DLL

********************************************
Dim hDib As Long
Dim hPal As Long
Dim nPixTypes As Long
REM Used by several calls to get handle to current window
Dim hWND As Long
Declare Function [B]TWAIN_AcquireNative[/B] Lib_
"EZTW32.DLL" (Byval hWndApp%, Byval wPixTypes%) As Integer
Declare Function [B]TWAIN_AcquireToClipboard[/B] Lib_
"EZTW32.DLL" (Byval hwndApp%, Byval wPixTypes%) As Integer
Declare Function [B]TWAIN_AcquireToFilename[/B] Lib_
"EZTW32.DLL" (Byval hwndApp%, Byval bmpFileName$) As Integer
Declare Function TWAIN_SelectImageSource Lib "EZTW32.DLL" (Byval hwndApp%) As Integer
Declare Function TWAIN_IsAvailable Lib "EZTW32.DLL" () As Integer
Declare Function TWAIN_EasyVersion Lib "EZTW32.DLL" () As Integer
Declare Function TWAIN_State Lib "EZTW32.DLL" () As Integer
Declare Function TWAIN_WriteNativeToFilename Lib_
"EZTW32.DLL" (Byval hBitmap%, Byval bmpFileName$) As Integer
Declare Function TWAIN_DibDepth Lib "EZTW32.DLL" (Byval hdib%) As Integer
Declare Function TWAIN_DibWidth Lib "EZTW32.DLL" (Byval hdib%) As Integer
Declare Function TWAIN_DibHeight Lib "EZTW32.DLL" (Byval hdib%) As Integer
Declare Function TWAIN_DibNumColors Lib "EZTW32.DLL" (Byval hdib%) As Integer
******************************

Ed eccovi una prima demo di funzionamento da inserire in una action o altro:

******************************
Sub Initialize

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

******************************

Ed ecco un secondo Code di funzionamento

*******************************
Sub Initialize

SendTo$="**@****.***.ua"

FileName$="c:\scandoc.bmp"

Dim db As New NotesDatabase( "", "" )
Dim memo As NotesDocument
Dim rt As NotesRichTextItem
Dim o As NotesEmbeddedObject

Call TWAIN_AcquireToFilename(0,FileName$)

Call db.OpenMail
Set memo= New NotesDocument( db )
memo.Form="Memo"
memo.SendTo = SendTo$
memo.Subject = "INVIO MAIL"
Set rt = New NotesRichTextItem( memo, "Body" )
Set o = rt.EmbedObject ( EMBED_ATTACHMENT, "", FileName$)
Call memo.Send( False )

End Sub
*******************************

La fonte ufficiale è presente qui