只能在调试模式下按下按钮

Question

我正在尝试为Web导航创建用户表单以登录Outlook网页。

当宏工作时，我无法按下登录按钮，而在调试模式（f8）中一切正常，这是我的代码。

Dim objIE As InternetExplorer
Dim ele As Object 

Set objIE = New InternetExplorer

objIE.Visible = True

objIE.navigate "https://outlook.live.com/"

Do While objIE.Busy = True Or objIE.readyState <> 4
    DoEvents
Loop
objIE.document.getElementsByTagName ("div")    

Debug.Print objIE.document.getElementsByClassName("buttonLargeBlue").Length
For Each ele In objIE.document.getElementsByClassName("buttonLargeBlue")
    Debug.Print ele.textConten
    ele.Click            
Next
Do While objIE.Busy = True Or objIE.readyState <> 4
    DoEvents
Loop
objIE.document.getElementsByTagName("input")(0).innerText = "anyname"

For Each ele In objIE.document.getElementsByTagName("input")
    If ele.Type = "submit" Then
        ele.Click
    End If
Next
Do While objIE.Busy = True Or objIE.readyState <> 4
    DoEvents
Loop
objIE.document.getElementsByTagName ("input")

For Each ele In objIE.document.getElementsByTagName("input")
    If ele.Type = "password" Then
        ele.innerText = "xxxxxx"
    End If
Next
objIE.document.getElementsByClassName("btn btn-block btn-primary")(0).Click

也试过

For Each ele In objIE.document.getElementsByClassName("btn btn-block btn-primary")
    If ele.Type = "submit" Then
        ele.Click
    End If
Next