如何自动点击超链接答案

【问题标题】：How to automatically click a hyperlink如何自动点击超链接
【发布时间】：2020-05-08 15:57:48
【问题描述】：

我每天收到数百封电子邮件，我想自动单击电子邮件正文中的超链接按钮并发送弹出的消息。

当您手动单击电子邮件正文中的按钮/超链接时，它会自动生成带有令牌的消息，然后您必须单击发送。我希望这会自动发生。

这是我的代码：

Private Sub olItems2_ItemAdd(ByVal Item As Object)
Dim olReply As MailItem
Set olReply = Item.Reply
If Not InStr(Item.Body, "XXXXX") > 0 Then 
    **''click "Deny" hyperlink**
    olReply.Send
    Item.UnRead = False
Else
    **''click "Approve" hyperlink button**
    olReply.Send
    Item.UnRead = False
End If

如何点击超链接？

【问题讨论】：

标签： vba email outlook automation

【解决方案1】：

您可以使用HTMLBody 属性来提取实际的 URL，然后使用以下代码：

Sub DoBrowse()
    Dim ie As Object
    Set ie = CreateObject("Internetexplorer.Application")
    ie.Visible = True
    ie.Navigate "your_url"
End Sub

【讨论】：

所以我设法使用了代码Item.GetInspector.WordEditor.Hyperlinks(5).Follow（我想点击的超链接总是第5个）。如果我自动运行代码，我会收到错误，并且会出现错误的超链接。如果我手动/逐步运行它，它工作正常。我基本上需要它来单击电子邮件中第 5 个超链接的第 4 个，这会生成一个新的电子邮件项目，然后自动发送通过单击超链接生成的新电子邮件。