Scusa Alex ma sono alle prime armi nell'ambiente Forum e nella Programmazione (che affronto per puro diletto) ...
Le istruzioni che ho trovato in internet per fare il login oggetto della conversazione sono riportate sotto nella Sub Test(). Adattandole sono riuscito a fare il login Google gmail copiando (mediante un pulsante sul foglio di lavoro di Excel 2007) i codici di accesso (riportati nel foglio di Excel) nelle rispettive InputBox del login di Google gmail. Il tutto funziona correttamente. L'unico inconveniente è che la finestra del login o si apre a mezzo schermo o non si apre del tutto (ma è presente nella barra delle applicazioni, basta fare click). Mi piacerebbe riuscire ad aprire il login a tutto schermo in automatico.
Sii paziente, se puoi aiutarmi a risolvere questo piccolo problema ti sarò grato. Buona giornata.
Sub Test()
Const cURL = "
http://mail.google.co" 'Enter the web address here
Const cUsername = "XXXXXX" 'Enter your user name here
Const cPassword = "XXXXXX" 'Enter your Password here
Dim IE As InternetExplorer
Dim doc As HTMLDocument
Dim LoginForm As HTMLFormElement
Dim UserNameInputBox As HTMLInputElement
Dim PasswordInputBox As HTMLInputElement
Dim SignInButton As HTMLInputButtonElement
Dim HTMLelement As IHTMLElement
Dim qt As QueryTable
Set IE = New InternetExplorer
IE.Visible = True
IE.Navigate cURL
Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
Set doc = IE.Document
Set LoginForm = doc.forms(0)
Set UserNameInputBox = LoginForm.elements("Email")
UserNameInputBox.Value = cUsername
Set PasswordInputBox = LoginForm.elements("Passwd")
PasswordInputBox.Value = cPassword
Set SignInButton = LoginForm.elements("signIn")
SignInButton.Click
Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop
End Sub
Ciao e buon lavoro.