Agenda Google inoperante.

Bom dia Feras de plantão.

Possuo um formulário vinculado à uma tabela com os campos txtLogin e txtSenha. Nele consta ainda um controle WebBrowser que exibe uma Agenda Google após o clique no comando conectar, até aí tudo bem, o problema é que esta agenda permanece inoperante.
Também adicionei um subformulário que exibe o movimento do dia e minha ideia é ao clicar sobre um dos ítens transferir o conteúdo deste para a Agenda Google.
Sei que a coisa é capciosa, mas se ao menos a Agenda estivesse operante poderia faze-lo manualmente.

Neste formulário introduzi um procedimento que mostro abaixo:

Sub Login_Conect()

Dim oHTML_Element As IHTMLElement
Dim sURL As String

On Error GoTo Err_Clear
WebBrowser1.Navigate "https://www.google.com/calendar/htmlembed?src=coordenacao.arquivos.uff%40gmail.com&skipwarning=true"
Set oBrowser = Me.WebBrowser1
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.Navigate "https://www.google.com/calendar/htmlembed?src=coordenacao.arquivos.uff%40gmail.com&skipwarning=true"
oBrowser.Visible = True

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

Set HTMLDoc = Me.WebBrowser1.Document

HTMLDoc.all.edUsuario.Value = Me.txtLogin
HTMLDoc.all.edSenha.Value = Me.txtSenha
HTMLDoc.all.btnEntrar.Click

' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If err <> 0 Then
err.Clear

Resume Next
End If
End Sub

Ainda no botão de comando coloquei:

Private Sub Comando3_Click()
Call Login_Conect
End Sub

Vejam a imagem do formulário:


[img][/img]


Abraços, WSenna

Bom dia....

Algo me veio a cabeça e não sei se pode ter algo em haver, pois padeci no paraíso com certas validações usando token.

Veja em: http://www.java.com/pt_BR/download/faq/chrome.xml#npapichrome

Ativando a NPAPI no Chrome Versão 42 e mais recentes
A partir do Chrome Versão 42, uma etapa de configuração adicional é necessária para continuar usando plug-ins da NPAPI.

Em sua barra de URL, informe:
chrome://flags/#enable-npapi
Clique no linkAtivar da opção de configuração Ativar a NPAPI.
Clique no botãoReiniciar que agora aparece na parte inferior da página de configuração.
Desenvolvedores e administradores de Sistema que buscam maneiras alternativas de suportar usuários do Chrome devem consultar este blog, em particular as seções "Running Web Start applications outside of a browser" e "Additional Deployment Options".

Isso é apenas um simples pitaco !

Olá Silvio, bom dia.


[img][/img]

Meu Amigo, depois de queimar alguns milhões de neurônios resolvi modificar a função acima no trecho abaixo, veja:

On Error GoTo Err_Clear
WebBrowser1.Navigate "https://www.google.com/calendar"
Set oBrowser = Me.WebBrowser1
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.Navigate "https://www.google.com/calendar"
oBrowser.Visible = True

Dessa forma a Agenda passou a ser operante, apenas com um pequeno bug que exibe uma mensagem de que o navegador não é o ideal, mas basta clicar em Cancela e a Agenda Google se mostra totalmente operante como você pode observar na imagem acima.

Meu novo desafio é é fazer com que com um simples click num item do subformulário a Agenda seja preenchida de forma automática já que por enquanto está sendo realizado de forma manual.




Abraços, WSenna

teria um exemplo de como acessar e manipular a agenda do goolgle através do access?

Este assunto não Evoluiu, Grande mestre wsenna teria algum exemplo desta manipulação !!!
Obrigado !