Require assistance in writing code to login to webmail account.

saurabhlotankar · #1 05-20-2015, 01:42 AM

Hi All,

I am trying to login to webmail account througha VBA macro.

Complete code is working fine except clicking on sign in button. Please assist.

My code:

Sub test()
' open IE, navigate to the desired page and loop until fully loaded
Set IE = CreateObject("InternetExplorer.Application")
my_url = "https://www.google.com"

With IE
.Visible = True
.Navigate my_url
'.Top = 50
'.Left = 530
'.Height = 400
'.Width = 400

Do Until Not IE.Busy And IE.readyState = 4
DoEvents
Loop

End With

' Input the userid and password
IE.Document.getElementById("username").Value = "*******"
IE.Document.getElementById("password").Value = "*******"

' Click the "Search" button
IE.Document.getElementByvalue("Signin").onClick

End Sub

I have also attached html code screengrab along with this msg for your reference.

Please assist

excelledsoftware · #2 05-20-2015, 10:54 PM

Here is how I would accomplish it.

Code:

Sub test()
  ' open IE, navigate to the desired page and loop until fully loaded
  Set IE = CreateObject("InternetExplorer.Application")
  my_url = "https://www.google.com"
  
  With IE
    .Visible = True
    .Navigate my_url
    '.Top = 50
    '.Left = 530
    '.Height = 400
    '.Width = 400
    
    Do Until Not IE.Busy And IE.readyState = 4
      DoEvents
    Loop
    
  End With
  
  ' Input the userid and password
  IE.Document.getElementById("username").Value = "*******"
  IE.Document.getElementById("password").Value = "*******"
  
  ' Click the "Search" button
  
  'I find using loops is the best way to accomplish this.  Even though
  'it may run a tiny bit slower it is easiest to debug and do EXACTLY what you want.
  For Each v In IE.Document.GetElementsByTagName("input")
    If v.Value = "Sign in" Then
      v.Click
      Exit For
    End If
  Next v

End Sub

Let me know how that works out for you.

Thanks

excelledsoftware · #3 05-20-2015, 10:57 PM

Normally I would check this to see if it works but since the actual URL was not provided (understandable) I cannot test it. You may need to try GetElementsByClassName but again it can be difficult it if is not an isolated attribute which is why I will loop through the elements and set up as many conditions as I need to ensure I grab the actual value I want.

saurabhlotankar · #4 05-21-2015, 12:55 AM

Hey, Thanks a ton "excelledsoftware". It is working smoothly. Once again thank you so much for your help.

excelledsoftware · #5 05-21-2015, 10:47 AM

You are very welcome

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help Writing VBA Code using the HideMark property	bgranzow	Word VBA	7	06-02-2014 04:10 PM
Assistance require powerpoint presentation wont run?	Harold	PowerPoint	5	04-18-2013 01:53 AM
Writing code with C# and VB.NET to create Outlook add-ins and other projects	kistou	Outlook	0	01-13-2010 04:23 AM
Help require.	aligahk06	Office	0	08-31-2009 01:30 AM