IE操作でのメール送信 削除
| Message#41 2015年12月15日(火)23時01分 From: hiroyuki |
| VBAマスターのメッセージ(#39)への返事 > こちらで試してみてください。 > > > Sub yahoo() > Dim ie As InternetExplorer > > 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 > > '2秒待ち > Call WaitFor(2) > > 'メールの作成クリック > For Each objLink In ie.document.Links > If InStr(objLink.outerHTML, "メールの作成") > 0 Then > objLink.Click > Exit For > End If > Next > > '2秒待ち > Call WaitFor(2) > > '宛先入力 > ie.document.getElementById("to-field").value = "xxx" > > '2秒待ち > Call WaitFor(2) > SendKeys "{TAB}" > > '件名入力 > ie.document.getElementById("subject-field").value = "件名" > > '2秒待ち > 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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
