Q&A
Gmail のことであれば、Google API を使えばどの言語でも操作できます。Excel は ClosedXML や COM で操作できます。これらは C# か Python あたりが簡単だと思います。
または GAS でオンライン上のスプレッドシートを使うという手もあります。
挨拶
クリスと申します。
VBAでつまずいているのでご質問させていただきます。
宜しくお願い致します。
やりたい事
まず、ブラウザーでログインをしてメールの内容をスキャン
内容に含まれている文書が「〇〇〇」
真であればエクセルのセルに○
偽であればエクセルのセルに×
私の考え方
上記で少し話したのは目標です。
なので、私の頭で浮かんでいるプロセスは下記の通りです。
【すべて自動起動をさせてたい。】
ブラウザー起動
↓
アドレス入力
↓
ログイン
↓
フォルダー指定 (受信ボックス、ごみ箱、迷惑メール等)
↓
メールの題名を確認し「○○○○」であればクリック
↓
メールの内容をチェックして「○」であれば→環境変数
「×」であれば→ メッセージボックスを出したいです。
まだ、Excelに書き込む事もしたいのでとりあえずはここまでです。
現時点で出来上がっているソースコード
VBA
1Option Explicit 2 3Sub IE() 4 5'---コード1｜インターネットに接続してブラウザを開く--- 6 Dim objIE As InternetExplorer 7 Set objIE = CreateObject("InternetExplorer.Application") 8 objIE.Visible = True 9 10'---コード2｜インターネットの特定のページを開く--- 11 objIE.Navigate "指定URL" 12 Call IEWait(objIE) 'IEを待機 13 'Call WaitFor(3) '3秒停止 14 15'---コード3｜IEに自動で文字入力して情報検索する--- 16 'キーワードを取得 17 Dim s As String 18 Dim p As String 19 s = "kariuser" 20 p = "karipass" 21 Dim objtag, objsubmit As Object 22 For Each objtag In objIE.document.getElementsByName("USERID") 23 If InStr(objtag.outerHTML, """loginInput""") > 0 Then 24 objtag.Value = s 25 Call WaitFor(3) 26 Exit For 27 End If 28 Next 29 30 For Each objtag In objIE.document.getElementsByName("PASSWD") 31 If InStr(objtag.outerHTML, """loginInput""") > 0 Then 32 objtag.Value = p 33 Call WaitFor(3) 34 Exit For 35 End If 36 Next 37 38 39 For Each objsubmit In objIE.document.getElementsByTagName("input") 40 If InStr(objsubmit.outerHTML, """Login""") > 0 Then 41 objsubmit.Click 42 Call WaitFor(5) 43 Exit For 44 End If 45 Next 46 47 Dim objtag2 As Object 48 For Each objtag2 In objIE.document.getElementsByTagName("a") 49 If InStr(objtag2.outerHTML, "TreeNode") > 0 Then 50 objtag2.Click 51 'Call WaitFor(3) 52 Exit For 53 End If 54 Next 55 56 57 58'---コード5｜IEを閉じる--- 59 'objIE.Quit 60 Set objIE = Nothing 61 62End Sub 63 64 65'---コード2-1｜IEを待機する関数--- 66Function IEWait(ByRef objIE As Object) 67 Do While objIE.Busy = True Or objIE.ReadyState <> 4 68 DoEvents 69 Loop 70End Function 71 72'---コード2-2｜指定した秒だけ停止する関数--- 73Function WaitFor(ByVal second As Integer) 74 Dim futureTime As Date 75 76 futureTime = DateAdd("s", second, Now) 77 78 While Now < futureTime 79 DoEvents 80 Wend 81End Function
###つまずいているところ
VBA
1Dim objtag2 As Object 2 For Each objtag2 In objIE.document.getElementsByTagName("a") 3 If InStr(objtag2.outerHTML, "TreeNode") > 0 Then 4 objtag2.Click 5 'Call WaitFor(3) 6 Exit For 7 End If
参照先HTMLコード
HTML
1<a href="#" class="TreeNode" style="text-decoration: none;"> 2<span style="font-size: 100%; font-family: Arial; height: 15px; line-height: 15px; display: inline-block; vertical-align: middle; margin: 0px; padding: 0px; width: 16px; background: url("http://url") -400px 0px no-repeat;"> 3</span> 4連絡済み 5<span></span> 6</a>
こちらの部分を指定したいのですが Class属性="TreeNode"はページ上で複数存在されていて、 "連絡済み" もソースコードで検索掛けたところ、２件みつかりました。
あくまでも私の勝手な思いですが、複数存在されているのでプログラムはその判定ができず、結果的に失敗しているのではないのでしょうか
また、つまずいているVBAの加工をすればできそうな気もするのですが、ご存じな方いらっしゃいますでしょうか
引き続きよろしくお願い致します。
Zuishinさん、 お疲れ様です。
ご回答ありがとうございます
それが独自メールサーバで使っているので、ブラウザーのログインになるんですね。。。
CyberMailというものになりますが。。。
C# か Python なら、HTMLとかもスキャンしてくれますでしょうか？
宜しくお願い致します。
Excelに保存するのが最終目標でしょうか。
ExcelVBAならInternetExplorerやoutlookを操作できます。
VBAでIEを起動させ、必要な動作を行なってデータを収集してExcelのセルに保存する、
など可能です。
いつ仕様が変わるかわからないので、スクレイピングはおすすめしません。IMAP に対応しているようなので、そちらで処理するのがいいと思います。
technocore様 お疲れ様です。
VBAで既に、プログラミングしてますが、自動ログインまでは達成です。
そのあとのフォルダー指定につまずいて、
指定のフォルダー名の文が複数あるため絞る事ができてないです。
どうすれば良いかわからないので他のプログラミングを探してます。
Zuishin様 お疲れ様です。
IMAPの件を調査してみます。
ありがとうございます
Zuishin様、technocore様
VBAで続けた方がよろしいでしょうか？
VBAでは途中まで完成しておりますので、
つまずいているところを再度「質問する」感じにした方が効率的にどうでしょうか？
他の事聞いて大変申し訳ございません。
引き続き宜しくお願い致します。
まだ回答が付いてないので、質問を編集して本文をこの後に追記していいと思います。タイトルも変更してください。
Zuishin様
ありがとうございます。
編集いたします。
回答1件
0
私もうわさ程度しか知らないのですが
RPA うまくいくか分かりませんが
投稿2020/02/24 06:00
総合スコア392
sinzou様
お疲れ様です。
やはりVBAでは難しいそうでしょうか？
RPAの件も私の方で聞いた事がありますが、メール内容を判断する時がややこしいと聞きましたので、
まずはVBAでやってみたいですね、VBA加工が難しいくないそうですが、僕も今勉強しております。
ご回答ありがとうございます。
もう少しVBAで何とかしてみます。
あなたの回答
tips
プレビュー
