IE操作でのメール送信 削除
| Message#1 2015年10月12日(月)18時22分 From: 菊池 幸之介 |
| IE操作をして ・yahooのメール画面へ行く ・「メールの作成」をクリック ・「to」、「件名」を入力 ・「送信」をクリック ということをしたいのですが、 下記のコードで「メールの作成」をクリックしたいのですが ie.document.getElementById("main-btn-new").Click で反応がない状態です。 お分かりになる方、お教えいただけますでしょうか。 Sub yahoo() Dim ie As InternetExplorer Dim i As Long Set ie = CreateObject("internetExplorer.Application") ie.Visible = True ie.navigate 'yahooメールの画面 "https://jp.mg5.mail.yahoo.co.jp/neo/launch?.rand=64q38e8rjip34#tb=w8o0z9sc" Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE DoEvents Loop Call WaitFor(2) ie.document.getElementById("main-btn-new").Click End Sub '指定した秒だけ停止する関数 Sub WaitFor(ByVal second As Integer) Dim futureTime As Date futureTime = DateAdd("s", second, Now) While Now < futureTime DoEvents Wend End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
