کمک در ارسال ایمیل با امکان دور زدن فایروال

[mortalkombat]

Private Sub Command1_Click()
'On Error Resume Next
Open "C:\sendhmtl.htm" For Output As #1
Print #1, "<form name = hamedian method=""POST"" action=""http://support.inetc.net/email/formmail.asp""> "
Print #1, "<input type=hidden name=mailserver value=" & Text2.Text & ">"
Print #1, "<INPUT TYPE=hidden name=sendto value=" & Text1.Text & ">"
Print #1, "<INPUT TYPE=HIDDEN NAME=urljump VALUE=about:blank>"
Print #1, "<INPUT name=subject value="" " & Text3.Text & " "">"
Print #1, "<input name=body value="" " & Text4.Text & " "" > "
Print #1, "<input name=ghol type=Submit> "
Print #1, "</form>"
Close #1

Set rpcc = CreateObject("InternetExplorer.application")

rpcc.Navigate "C:\sendhmtl.htm"
Set qq = rpcc.Document
qq.All.Item("ghol").Click

qq = Null
While rpcc.Busy = True
DoEvents
Wend
rpcc.Quit

End Sub


این کددر خط qq.All.Item("ghol").Click خطا میده لطفا کمک کنید