1
Sub startupemail()

Set drivere = New WebDriver

drivere.Start "chrome"

drivere.Get "https://mail.google.com/mail/u/0/#inbox"

drivere.FindElementByName("identifier").SendKeys ("email@email.com")

drivere.FindElementByClass("VfPpkd-vQzf8d").Click

Application.Wait Now + TimeValue("00:00:05")

Do Until InStr(1, drivere.Url, "challenge") > 0
    Application.Wait (DateAdd("s", 1, Now))
Loop

drivere.FindElementByName("password").SendKeys ("Mypassword")

drivere.FindElementByClass("VfPpkd-vQzf8d").Click

Do Until InStr(1, drivere.Url, "inbox") > 0
    Application.Wait (DateAdd("s", 1, Now))
Loop

Sheet2.Rows(1).Insert

Sheet2.Rows(3).Delete

Set headers = drivere.FindElementById(":46")

Set header2 = headers.FindElementByClass("bsU")

Sheet2.Cells(1, 1) = header2.Text

If Sheet2.Cells(1, 1) > Sheet2.Cells(2, 1) Then

    Call mailrequest

Else: Call marketcheck

End If

End Sub

Error code 7 on 'Set header2 = headers.FindElementByClass("bsU")' Code has worked multiple times before and suddenly started giving a code 7 anytime I tried running it. Please help

FunThomas
  • 23,043
  • 3
  • 18
  • 34
Cem
  • 27
  • 1
  • 4

0 Answers0