• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Fill in form on website and submitting multiple values in new tabs

vojo

New Member
Hi,

I am new to programming, but I know some of the basics. I need Excel 2007 macro that will fill in one field on a specific website with values from a selection in my sheet and click submit button. And I want it to be able to open separate tabs in the same window for each value in my selection.
I am checking emails from a column in my sheet to see whether or not it has right domain and username. I have to do everything manually, so I wanted to automate this process, to select let's say 3 emails, and check them all at the same time in separate tabs of the same window in IE7.

Here is what I made so far.

Code:
Sub FillInternetForm()

Dim IE As Object
  On Error Resume Next
For Each c In Selection
    Set IE = CreateObject("InternetExplorer.Application")
        IE.Navigate "http://www.mailtester.com"
  IE.Visible = True
     While IE.busy
    DoEvents
      Wend
  IE.Document.All("email").Value = c
    Set form = IE.Document.Body.GetElementsByTagName("form")(0)
    Set Button = form.GetElementsByTagName("input")(2)
    Button.Click
       
    Next c
   
    End Sub

It does what I need, but there are couple of problems that occur.
First, it opens separate windows for each check.
Second, it usually fills in only two emails from the selection. Sometimes it fills 3 emails, but for the last one nothing happens - it doesn't click button.

I would appreciate a lot if someone could help me with my code.
 
Back
Top