IE操作でのメール送信

最近の書き込み件数：今日 0件、昨日 0件
未読分：45件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#5 2015年10月13日(火)09時36分
From: 菊池幸之介

返事削除変更

気ずるのメッセージ(#4)への返事

ありがとうございます。
この書き方だと実際にクリックしているのはspanタグなのですね。

aタグをクリックするやり方がわからないのですがもしお分かりでしたら教えて頂けますでしょうか。

> > > > ie.document.getElementById("main-btn-new").Click
>
> これ実際にクリックしているのはspanタグだからちゃんとaタグをクリックするようにしたらいけるんじゃない？
>
> spanタグはaタグを包括しているけど、たまにクリックできないサイトもある。

Message#4 2015年10月12日(月)23時05分
From: 気ずる

返事削除変更

> > > ie.document.getElementById("main-btn-new").Click

これ実際にクリックしているのはspanタグだからちゃんとaタグをクリックするようにしたらいけるんじゃない？

spanタグはaタグを包括しているけど、たまにクリックできないサイトもある。

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

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

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

返事削除変更

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