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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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