Document.getElementby Como usar para pegar informações?

Bom dia

Criei o código abaixo para inserir informações em uma na pagina da web através do VBA

Sub FazerLoginSite()

Dim IE As Object
Dim CASA As String
Dim objcollection As Object

Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
'abaixo coloquei o login do meu blog como exemplo...
.Navigate ("https://outlook.office.com.eu.cas.ms/mail/inbox")
While .Busy Or .ReadyState <> 4: DoEvents:

Wend

IE.Document.All("id__3").Click

Até aqui o código funciona perfeitamente, porem ao inserir as informações de email assunto e o corpo do email os codigos começam a dar falha. Preciso de ajuda como ficaria esses códigos, preciso de ajuda como montar os codigos usando os tipos de códigos abaixo.

IE.document.getelementbyid("ID").value = "value"       'Find by ID
IE.document.getelementsbytagname("ID").value = "value"        'Find by tag
IE.document.getelementsbyclassname("ID").value = "value"      'Find by class
IE.document.getelementsbyname("ID").value = "value"    'Find by name




Estou enviando anexo com os campos que preciso preencher e o código de web quando clico em inspecionar.

É complicado testar pois não tem como ter acesso as essas telas e tenta simular as informações que esta procurando...
Mais olhando o arquivo do word vi que da para pesquisar a tag e agora seria necessário identificar ela... para isso eu vi que tem uma parte de na tag Input chamada arial-label e por ela da para identificar o que precisa. para colocar o valor tem que inserir em value (mesma tag input)

Mais isso ainda precisa pesquisar.

Código:


For Each ele In objIE.document.getElementsByTagName("input")
    If aria-label.Value = "para" then
        aria-label.value = "teste"
    Exit For
    end if
Next


ou olha se essa ideia funciona:

Código:

 For Each ele In objIE.document.getElementById("myTable").getElementsByTagName("tr")
        'show the text content of 'tr' element being looked at
        Debug.Print ele.textContent
        'each 'tr' (table row) element contains 4 children ('td') elements
        'put text of 1st 'td' in col A
        Sheets("Sheet1").Range("A" & y).Value = ele.Children(0).textContent
        'put text of 2nd 'td' in col B
        Sheets("Sheet1").Range("B" & y).Value = ele.Children(1).textContent
        'put text of 3rd 'td' in col C
        Sheets("Sheet1").Range("C" & y).Value = ele.Children(2).textContent
        'put text of 4th 'td' in col D
        Sheets("Sheet1").Range("D" & y).Value = ele.Children(3).textContent
        'increment row counter by 1
        y = y + 1
    'repeat until last ele has been evaluated
    Next

claro ai pode mudar as posições

Ele esta dando erro de execução