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

---

お世話になります。
見よう見まねでアカウント取得プログラムを
作成してみたのですがエラーがでてうまく動作しません。
フォームに  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
     Loop                WebBrowser1.Document.All.mail.Value
= "p1@fooos.com"  
     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

編集 削除

---

すみません。
Do While objIE.Busy = True
         DoEvents
     Loop                WebBrowser1.Document.All.mail.Value
= "p1@fooos.com"    

この部分はプログラム上では
Do While objIE.Busy = True
         DoEvents
Loop                
WebBrowser1.Document.All.mail.Value= "p1@fooos.com"  

こうなっています。m(__)m

編集 削除

---

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1359686

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。