11/08/31 15:20:04.75 7ez6DvqV0
// ■■■設定開始■■■
URL = "URLリンク(www.google.co.jp)" // 検索対象URL
Search = "○○○" // 検索文字
Count = 180 // 文字が見つからなかった場合の待機時間
GmailID = "○○○" // ログインID
GmailPASS = "○○○" // ログインPASS
TO = "○○○@gmail.com" // 宛先
SUB = "TEST" // サブジェクト
BODY = "テストメール" // 本文
// ■■■設定終了■■■
IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate(URL)
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
end = 5
repeat
ifb POS(Search, IE.Document.Body.InnerText) > 0 THEN
IE.navigate("URLリンク(mail.google.com)")
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
IESETDATA( IE, GmailID, "Email" )
IESETDATA( IE, GmailPASS, "Passwd" )
IESetData( IE,True,"signIn")
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
IELINK(IE,"メールを作成")
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)
Repeat; sleep(0.2); Until (! IE.busy) and (IE.readyState=4)