削除

IE操作でのメール送信削除

Message#3 2015年10月12日(月)22時12分
From: 菊池幸之介

ジャッカルのメッセージ(#2)への返事

はい、
ie.document.getElementById("main-btn-new")(0).Click
ですとエラーがでて、
ie.document.getElementById("main-btn-new").Click
に変更したところエラーはでず、反応なしでした。

> 他の人わけがわからないかもしれませんが、
>
> > > 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

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。