blocks|key|4502190|text|我相信使用这种方法你可能会遇到许多障碍。在Notes中没有COM方法来模拟按钮单击。你也许能够获得NotesUIDocument的句柄，然后运行保存操作，等等，但是如果你的按钮做了更多的事情，那就没有什么帮助了。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4502191|我会去AutoHotKey看看。它是一款Windows键盘和鼠标自动化工具。您可以编写一个脚本来自动执行所有操作，也许只需使用键盘快捷键。|offset|length|4502192|entityMap|0|LINK|mutability|MUTABLE|url|http://www.autohotkey.com/^0|0|3|A|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|O|8|@]|9|@$D|P|E|Q|1|R]]|A|$]]|$1|F|3|-4|5|6|7|S|8|@]|9|@]|A|$]]]|G|$H|$5|I|J|K|A|$L|M]]]]

I believe you may run into a number of roadblocks with this approach. There is no COM method to simulate a button click in Notes. You might be able to get a handle to the NotesUIDocument and then run a Save action, etc but that won't help if your button does more than that. 

I'd check out <a href="http://www.autohotkey.com/" rel="nofollow">AutoHotKey</a>. It is a Windows keyboard and mouse automation tool. You could write a script that automates all the actions, perhaps just using keyboard shortcuts.

blocks|key|3034468|text|在该按钮中，您想要执行什么？|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3034469|通常，您不能以编程方式单击注释操作。您可以在所有视图上使用Queryopen编写代码。|3034470|或者你可以创建自定义工具栏动作，在那里你可以创建并计算@Formula到那里。|3034471|http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/topic/com.ibm.notes85.help.doc/fram_customize_toolbars_t.html|offset|length|3034472|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|0|0|37|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|R|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|S|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|T|8|@]|9|@$H|U|I|V|1|W]]|A|$]]|$1|J|3|-4|5|6|7|X|8|@]|9|@]|A|$]]]|K|$L|$5|M|N|O|A|$P|G]]]]

In that button, What do you want to execute? 

Normally you can not programmatically click the notes action. You can write your codes in Queryopen on all your views.

Otherwise you can create customize Tool bar action, There you can create and compute @Formula into there.

<a href="http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/topic/com.ibm.notes85.help.doc/fram_customize_toolbars_t.html" rel="nofollow">http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/topic/com.ibm.notes85.help.doc/fram_customize_toolbars_t.html</a>

blocks|key|3034487|text|为什么不能简单地将代码从一个按钮移动到另一个库并调用函数，而不是单击按钮呢？|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3034488|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

Why can't you simply move code from button to library and call function instead of clicking button?

blocks|key|4502269|text|没有办法通过COM，你可以通过Winapi来实现发送消息的功能。像下面这样的东西将会工作，尽管它非常笨拙。我在一些自动化项目中使用它来模拟单击注释按钮。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4502270|+++Declare+Function+FindWindowEx+Lib+"user32"+Alias+"FindWindowExA"+(ByVal+hWnd1+As+Long,+ByVal+hWnd2+As+Long,+ByVal+lpsz1+As+String,+ByVal+lpsz2+As+String)+As+Long
Declare+Function+GetClassName+Lib+"user32"+Alias+"GetClassNameA"+(ByVal+hwnd+As+Long,+ByVal+lpClassName+As+String,+ByVal+nMaxCount+As+Long)+As+Long
Declare+Function+FindWindow+Lib+"user32"+Alias+"FindWindowA"+(ByVal+lpClassName+As+String,+ByVal+lpWindowName+As+String)+As+Long
Declare+Function+GetWindowText+Lib+"user32"+Alias+"GetWindowTextA"+(ByVal+hwnd+As+Long,+ByVal+lpString+As+String,+ByVal+cch+As+Long)+As+Long
Declare+Function+GetWindow+Lib+"user32"+Alias+"GetWindow"+(ByVal+hwnd+As+Long,+ByVal+wCmd+As+Long)+As+Long
Declare+Function+SendMessage+Lib+"user32"+Alias+"SendMessageA"+(ByVal+hwnd+As+Long,+ByVal+wMsg+As+Long,+ByVal+wParam+As+Long,+lParam+As+Long)+As+Long

'+GetWindow()+Constants
Public+Const+GW_HWNDFIRST+=+0
Public+Const+GW_HWNDLAST+=+1
Public+Const+GW_HWNDNEXT+=+2
Public+Const+GW_HWNDPREV+=+3
Public+Const+GW_OWNER+=+4
Public+Const+GW_CHILD+=+5
Public+Const+GW_MAX+=+5

'button+click+constants+for+SendMessage
Public+Const+WM_LBUTTONDOWN+=+&H201
Public+Const+WM_LBUTTONUP+=+&H202
Public+Const+BM_SETSTATE+=+&HF3
Public+Const+BM_GETSTATE+=+&HF2
Public+Const+BM_CLICK+=+&HF5

Public+hwndAction+As+String
Public+hwndClass+As+String
Public+hwndCaption+As+String
Public+hwndHandle+As+Long

Sub+ClickNotes()

hwndAction+=+"FindHandle"
hwndCaption+=+"WindowCaption"+''Window+Caption+here
hwndClass+=+"NotesSubprog"


FindChildWindows(FindWindow("SWT_Window0",+"Windowtitle"))

hwndAction+=+"FindHandle"
hwndCaption+=+"WindowCaption"
hwndClass+=+"NotesSubprog"

FindChildWindows(hwndHandle)


hwndAction+=+"FindHandle"
hwndCaption+=+""
hwndClass+=+"ActionBar"

FindChildWindows(hwndHandle)

hwndAction+=+"Click"
hwndCaption+=+"Comment"
hwndClass+=+"IRIS.bmpbutton"

FindChildWindows(hwndHandle)

Do+While+FindWindow("SWT_Window0","New+Comment+-+IBM+Notes")+=+0
DoEvents
Loop

Wait+3


End+Sub

'the+method+signature+is+like+this+only+to+stay+compatible+with+the+Win32+API+-+lParam+will+not+be+used+anyway
Function+EnumChildWindow(ByVal+hChild+As+Long,+ByVal+lParam+As+Long)+As+Long

Dim+ClassBuffer+As+String
Dim+CaptionBuffer+As+String
Dim+TempVar+As+Long

ClassBuffer+=+Space(150)
TempVar+=+GetClassName(hChild,+ClassBuffer,+149)
ClassBuffer+=+Left(ClassBuffer,+TempVar)

CaptionBuffer+=+Space(250)
TempVar+=+GetWindowText(hChild,+CaptionBuffer,+250)

CaptionBuffer+=+Left(CaptionBuffer,+TempVar)

Debug.Print+"Handle:+"+&+hChild+&+",+Class:+"+&+ClassBuffer+&+",+Caption:+"+&+CaptionBuffer

If+hwndClass+=+ClassBuffer+And+hwndCaption+=+CaptionBuffer+Then
Select+Case+hwndAction
Case+"Click"
SendMessage(hChild,+WM_LBUTTONDOWN,+0,+0)
SendMessage(hChild,+WM_LBUTTONUP,+0,+0)
SendMessage(hChild,+BM_SETSTATE,+1,+0)
Case+"FindHandle"
hwndHandle+=+hChild
End+Select

Exit+Function

End+If

'Continue+enumeration+by+recursion
EnumChildWindow+=+True

End+Function

Function+FindChildWindows(ByVal+hParent+As+Long)

Dim+hChild+As+Long
Dim+Continue+As+Boolean

Continue+=+True
hChild+=+GetWindow(hParent,+GW_CHILD)
Continue+=+EnumChildWindow(hParent,+0)

While+Not+hChild+=+0+And+Continue

If+Continue+Then+Continue+=+FindChildWindows(hChild)
hChild+=+GetWindow(hChild,+GW_HWNDNEXT)

Wend

FindChildWindows+=+Continue

End+Function|code-block|syntax|javascript|4502271|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

No way through COM, You can approach through the Winapi send message functionality. Something like below will work, though it is very clunky. I use this in a few automation projects to simulate clicking notes Buttons. 

<pre><code> Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

' GetWindow() Constants
Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNEXT = 2
Public Const GW_HWNDPREV = 3
Public Const GW_OWNER = 4
Public Const GW_CHILD = 5
Public Const GW_MAX = 5

'button click constants for SendMessage
Public Const WM_LBUTTONDOWN = &amp;H201
Public Const WM_LBUTTONUP = &amp;H202
Public Const BM_SETSTATE = &amp;HF3
Public Const BM_GETSTATE = &amp;HF2
Public Const BM_CLICK = &amp;HF5

Public hwndAction As String
Public hwndClass As String
Public hwndCaption As String
Public hwndHandle As Long

Sub ClickNotes()

hwndAction = "FindHandle"
hwndCaption = "WindowCaption" ''Window Caption here
hwndClass = "NotesSubprog"


FindChildWindows(FindWindow("SWT_Window0", "Windowtitle"))

hwndAction = "FindHandle"
hwndCaption = "WindowCaption"
hwndClass = "NotesSubprog"

FindChildWindows(hwndHandle)


hwndAction = "FindHandle"
hwndCaption = ""
hwndClass = "ActionBar"

FindChildWindows(hwndHandle)

hwndAction = "Click"
hwndCaption = "Comment"
hwndClass = "IRIS.bmpbutton"

FindChildWindows(hwndHandle)

Do While FindWindow("SWT_Window0","New Comment - IBM Notes") = 0
DoEvents
Loop

Wait 3


End Sub

'the method signature is like this only to stay compatible with the Win32 API - lParam will not be used anyway
Function EnumChildWindow(ByVal hChild As Long, ByVal lParam As Long) As Long

Dim ClassBuffer As String
Dim CaptionBuffer As String
Dim TempVar As Long

ClassBuffer = Space(150)
TempVar = GetClassName(hChild, ClassBuffer, 149)
ClassBuffer = Left(ClassBuffer, TempVar)

CaptionBuffer = Space(250)
TempVar = GetWindowText(hChild, CaptionBuffer, 250)

CaptionBuffer = Left(CaptionBuffer, TempVar)

Debug.Print "Handle: " &amp; hChild &amp; ", Class: " &amp; ClassBuffer &amp; ", Caption: " &amp; CaptionBuffer

If hwndClass = ClassBuffer And hwndCaption = CaptionBuffer Then
Select Case hwndAction
Case "Click"
SendMessage(hChild, WM_LBUTTONDOWN, 0, 0)
SendMessage(hChild, WM_LBUTTONUP, 0, 0)
SendMessage(hChild, BM_SETSTATE, 1, 0)
Case "FindHandle"
hwndHandle = hChild
End Select

Exit Function

End If

'Continue enumeration by recursion
EnumChildWindow = True

End Function

Function FindChildWindows(ByVal hParent As Long)

Dim hChild As Long
Dim Continue As Boolean

Continue = True
hChild = GetWindow(hParent, GW_CHILD)
Continue = EnumChildWindow(hParent, 0)

While Not hChild = 0 And Continue

If Continue Then Continue = FindChildWindows(hChild)
hChild = GetWindow(hChild, GW_HWNDNEXT)

Wend

FindChildWindows = Continue

End Function
</code></pre>

I have an application in Lotus-Notes. I don't have developer rights. My main goal is to automate some process. To do so I need to know how to simulate clicking the button in the view in Lotus-Notes application. I develop it in VBA.

My entry point is to open the view using OpenDatabase method of NotesUIWorkspace:

<pre><code>Call notesUIWorkspace.OpenDatabase( server$, file$, view$, key$, newInstance, temp )
</code></pre>

Now when the view is open I'd like to simulate clicking a button that is on it. Would highly appreciate your help.

BTW I don't want to insert / read documents directly from the database. I need to go through all the process as it is.

Simulate clicking button in Lotus-Notes, VBA

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云AI代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

功能1上新10个字符

功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符。

功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符。

功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符

功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符

功能4上新

文章&问答评论现已支持表情

全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验

社区富文本编辑器全新改版！诚邀体验～ 

精选全网热门MCP server，让你的AI更好用 🚀

💥开发者 MCP广场重磅上线！

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

我在Lotus-Notes中有一个应用程序。我没有开发人员的权利。我的主要目标是自动化一些流程。为此，我需要知道如何在Lotus-Notes应用程序中模拟单击视图中的按钮。我是用VBA开发的。我的入口点是使用NotesUIWorkspace的OpenDatabase方法打开视图：Call notesUIWorkspace.OpenDatabase( server$, file$, view$, k

问在Lotus-Notes、VBA中模拟点击按钮
EN

回答 4

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Lotus-Notes、VBA中模拟点击按钮EN

回答 4

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在Lotus-Notes、VBA中模拟点击按钮
EN