IE操作でのメール送信 削除
| Message#40 2015年10月17日(土)09時25分 From: 菊池 幸之介 |
| 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 こちらのコードで実行しましたところ、送信できました！ ありがとうございます！ VBAマスターさん、気ずるさん、的確な助言を頂きありがとうございました。 とても勉強になります。 また、解決して頂いて早々ですみませんが サイト上から値を抽出するプログラムの件で新規スレッドを立てさせて頂きますので お力を貸して頂けたら幸いです。 よろしくお願い致します。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
