エラーがでてしまう・・・・

質問

お世話になります。
見よう見まねでアカウント取得プログラムを
作成してみたのですがエラーがでてうまく動作しません。
フォームに　webbrowserとコマンドクリックボタン
ひとつずつという簡単なプログラムなのですが・・。
エラーの内容は WebBrowser1.Document.All.mail.Value
この部分が黄色くなりオブジェクトはこのプロパティをサポートしていません。。。とでます。

僕自身はじめて３週間ぐらいなんで
何が悪いのかさっぱり・・
詳しい方教えてください。お願いします。

Private Sub Command1_Click()
Dim objIE As Object 'ＩＥオブジェクト参照用
Dim k As Integer
Dim Now As Long

For k = 93 To 1000

Set objIE = CreateObject("InternetExplorer.application")

objIE.Visible = False
WebBrowser1.Navigate2 "http://www.tram-stopper.com/community/adult/panel.cgi?http=a&sh=sh"

Do While objIE.Busy = True
DoEvents

WebBrowser1.Document.All.ps.Value = "ken3k"
WebBrowser1.Document.All.linkurl.Value = "http://www.yahoo.co.jp/"
WebBrowser1.Document.All.Id.Value = "afx" & k

WebBrowser1.Document.Forms(0).Submit
　　　　Now = Timer
　　　　While Timer < Now +1 　　'1秒間待機する
　　　　DoEvents
　　　　Wend

Next k
End Sub

回答No.1

BLUEPIXY · ベストアンサー

多分、HTMLの読み込みが終了していないのに、そのHTMLの中の部分にアクセスしているからだと思います。
Do While objIE.Busy = True
DoEvents
Loop　　　 　　　
の後に、
While WebBrowser1.Document.readyState <> "complete": Wend
を入れてみてください。
蛇足ですが、kによるループは、何をしているのでしょうか？
そのたびにCreateObjectする必要がありますか？