IE操作でのメール送信 削除
Message#2 2015年10月12日(月)20時22分 From: ジャッカル |
他の人わけがわからないかもしれませんが、 > > ie.document.getElementById("main-btn-new")(0).Click をie.document.getElementById("main-btn-new").Click にしてもだめでした? > 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。