想利用Notes控制扫描仪,把扫描好的文档直接保存到document的Rtf域中。各位可以提供点方案。谢谢!

xxxding 2003-11-05 05:46:57
想利用Notes控制扫描仪,把扫描好的文档直接保存到document的Rtf域中。各位可以提供点方案。谢谢!
...全文
66 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xxxding 2003-11-06
  • 打赏
  • 举报
回复
万分谢谢,先看看!
rombus 2003-11-06
  • 打赏
  • 举报
回复
有段代码你看下:作用是把TWAIN扫描仪扫的图片插入RTF
Declare Function GetActiveWindow Lib_
{User32} () As Long
Declare Sub SetActiveWindow Lib {User32}_
(Byval hwnd As Long)

Sub Click(Source As Button)
On Error Goto ErrorHandler
Const SCANFILEPATH$={C:Tempscan.jpg}
Const IMPORTFILETYPE$={JPEG}
Const RTFNAME$={Body}
Const SCANOBJNAME$={objScan}

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim wndhnd As Long
Dim strFile As String
Dim strRTFName As String
Dim objScan As Variant

Set uidoc = ws.CurrentDocument
Set objScan = uidoc.GetObject(SCANOBJNAME)

wndhnd&=GetActiveWindow()

If objScan.ScannerAvailable=True Then
objScan.ShowSelectScanner

objScan.Image=SCANFILEPATH
objScan.ScanTo=2 'StoreOnly
objScan.PageOption=6 'CreateReplace
objScan.ShowSetupBeforeScan=True
'ShowScanDialog
Call objScan.ShowScanPreferences
'ShowScanQualityDialog
Call objScan.StartScan
Call uidoc.GotoField(RTFNAME)
Call uidoc.import(IMPORTFILETYPE, SCANFILEPATH)
Call objScan.CloseScanner
Call SetActiveWindow(wndhnd&)
Else
Msgbox {Error: TWAIN driver not found!}
End If

TheEnd:
Exit Sub

ErrorHandler:
Messagebox {The following unexpected error_
has occured: } & Trim$(Str(Err)) & {: } & _
Error$, 0+48+0+0, {Error Message..}

Resume TheEnd
End Sub

在www.goldenclasp.com上的代码共享里有

535

社区成员

发帖
与我相关
我的任务
社区描述
企业开发 Exchange Server
社区管理员
  • 消息协作社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧