This code uses the webbrowser control to type text into a field on a webpage. Please e-mail me if you know how to do this with the inet
API Declarations
'Put text in a field on the web page
Dim i As Long, HTMLElement
On Error GoTo Err_Init
For i = 1 To WebBrowser1.Document.All.length
Set HTMLElement = WebBrowser1.Document.All.Item(i)
If Not (HTMLElement Is Nothing) Then
If StrComp(HTMLElement.tagName, "INPUT", vbTextCompare) = 0 Then
If StrComp(HTMLElement.Name, FieldName, vbTextCompare) = 0 Then
HTMLElement.Value = FieldValue
Exit For
End If
End If
End If
Next i
Exit Sub
Err_Init:
MsgBox Err.Number & " - " & Err.Description, vbCritical
Resume Next
End Sub