IE操作でのメール送信
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| 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 |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
