IE操作でのメール送信
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#10 2015年10月13日(火)15時12分 From: 菊池 幸之介 | 返事 削除 変更 |
| VBAマスターのメッセージ(#8)への返事 VBAマスターさんのやり方でできました！感動です！ ありがとうございます。 完成形を載せておきます。 Sub yahoo() Dim ie As InternetExplorer Dim i As Long Set ie = CreateObject("internetExplorer.Application") ie.Visible = True ie.navigate "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) For Each objLink In ie.document.Links If InStr(objLink.outerHTML, "メールの作成") > 0 Then objLink.Click Exit For End If Next End Sub '指定した秒だけ停止する関数 Sub WaitFor(ByVal second As Integer) Dim futureTime As Date futureTime = DateAdd("s", second, Now) While Now < futureTime DoEvents Wend End Sub > > aタグをクリックするやり方がわからないのですがもしお分かりでしたら教えて頂けますでしょうか。 > > aタグに限らず、InStr関数で位置情報を取得し、位置が確認できたオブジェクトに対して処理をするというのが一般的な処理になります。 > > > For Each objLink In objIE.document.Links > > If InStr(objLink.outerHTML, "メールの作成") > 0 Then > > objLink.Click > > Call ieCheck(objIE) > > Exit For > > End If > > Next |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
