Как автоматически щелкнуть гиперссылку

Question

Я получаю сотни писем в день, и я хотел бы автоматически нажимать кнопку гиперссылки в теле письма и отправлять всплывающее сообщение.

Когда вы вручную нажимаете кнопку / гиперссылку в теле письма , он автоматически генерирует сообщение с токеном, а затем вы должны нажать кнопку отправить. Я бы хотел, чтобы это происходило автоматически.

Это мой код:

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

Как мне нажимать гиперссылки?

Answer 1

Вы можете использовать свойство HTMLBody для извлечения фактического URL, а затем использовать следующий код:

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