使用 VBA 在 Microsoft 365 电子邮件中按“新邮件”按钮

Question

我正在尝试使用 IE 作为浏览器通过 Microsoft 365 发送电子邮件。我目前很难让 VBA 创建新电子邮件，我试图通过简单地告诉它单击具有以下 HTML 代码的“新邮件”按钮来做到这一点：

<button autoid="_n_j" type="button" class="_n_j2 o365button" aria-labelledby="_ariaId_31" regionbehavior="1">
<span class="_n_l2 owaimg ms-Icon--plus ms-bcl-tp ms-bg-transparent ms-icon-font-circle ms-fcl-tp ms-icon-font-size-20-circle" role="presentation"></span>
<span class="_n_k2 ms-font-weight-regular ms-font-color-themePrimary" id="_ariaId_31">New mail</span>
</button>

我正在尝试使用以下 VBA 代码按下此按钮：

Dim objButton As Object
    Set objButton = IE.Document.getElementById("_n_j2 o365button")
    objButton.onfocus
    objButton.onclick

但是我遇到了运行时错误。我认为这是因为该按钮正在使用 javascript（按下时页面不会重新加载，只是更新）。任何想法如何做到这一点？

Answer 1

试试IE.Document.GetElementsByClassName("_n_j2 o365button")(0).Click

您不能使用 .GetElementByID()，因为尚未为按钮分配 ID。

我使用 .GetElementsByClassName() 是因为我们知道按钮分配了一个类，但是一个类不是唯一的。这个方法返回这个类的所有元素的集合——在没有看到整个 HTML 的情况下，我将假设页面上的所有按钮都共享这个类。

(0) 告诉代码单击集合中存储的第一个项目。

（再次，我假设您没有声明像 Option Base 1 这样的东西）

您可能必须遍历集合并以某种方式测试每个项目以查看您需要哪个按钮并相应地更改(0)。