View Single Post
 
Old 02-13-2020, 08:14 PM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 831
NoSparks is just really niceNoSparks is just really niceNoSparks is just really niceNoSparks is just really niceNoSparks is just really nice
Default

From a Google search that took me to this page, this seems to work.
Code:
Sub FormFillTest()

    Dim ie As Object

'Open Internet Explorer
Set ie = CreateObject("internetexplorer.application")

'have it visible
ie.Visible = True

'go to the site
ie.navigate ("https://mazzonicenter.freshdesk.com/support/tickets/new")

'wait until it's loaded
    Do Until ie.ReadyState >= 4
        DoEvents
    Loop

'put email address in text box
ie.document.getElementsByName("helpdesk_ticket[email]")(0).Value = "Testing@testing.com"

'put subject in text box
ie.document.getElementsByName("helpdesk_ticket[subject]")(0).Value = "Testing"

'put something in the TEXTAREA
ie.document.getElementsByClassName("redactor_editor")(0).innerText = "Hello World"

End Sub
Reply With Quote