Markieren Sie die Checkbox auf einer Webseite von Outlook

Question

das ich habe Probleme mit der Kontrolle einer Kontrollkästchen von einer Webseite. Ich habe versucht:

Do 
     ' Wait till the Browser is loaded 
    Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE 

    Dim HTMLDoc As HTMLDocument 
    Set HTMLDoc = oBrowser.Document 


    For Each oHTML_Element In HTMLDoc.getElementsByTagName("input") 
     If oHTML_Element.Type = "orderById" Then oHTML_Element.Click: Exit For 
    Next 


    Application.Wait (Now + TimeValue("0:00:05")) 
    oBrowser.Visible = True 

    'oBrowser.Document.forms(0).all("tdFilter").Item(0).Click 
    oBrowser.Document.forms(0).all("tdFilter").Click 
    'IE.Document.forms(0).all("tdFilter").CheckBox = True 

    ' oBrowser.Refresh ' Refresh If Needed 
Err_Clear: 
    If Err <> 0 Then 
     Err.Clear 
     Resume Next 
    End If 
End Sub 

Ende dieses ist der Quellcode:

Answer 1

nicht sicher, ob ich den Grund für die Schleife zu verstehen:

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input") 
    If oHTML_Element.Type = "orderById" Then oHTML_Element.Click: Exit For 
Next 

auch „, ist orderById ein id, so sollten Sie nicht nur darauf verweisen, wie:

HTMLDoc.getElementById("orderById") 

Ebenso können Sie das Kontrollkästchen Set mit:

HTMLDoc.getElementById("tdFilter").Checked = True 

Wenn es nicht funktioniert, überprüfen Sie Ihre Elemente, stellen Sie sicher, dass Sie die richtigen Namen haben, stellen Sie sicher, dass Sie keine doppelten IDs haben und auch überprüfen, wie Ihre Veranstaltungen triggern.