• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：グーグルメールの下書きメールを書き出すことはできま）

VBAでグーグルメールの下書きメールを取得する方法

このQ&Aのポイント
  • VBAを使用してグーグルメールの下書きメールを取得する方法を探しています。しかし、IEブラウザでソースを見ると下書きメールは表示されません。そのため、一つ一つの下書きの内容を取得する方法を教えてください。
  • グーグルメールの下書きメールをVBAで取得するには、IEブラウザではなくGoogle Chromeを使用する必要があります。
  • Google Chromeで指定したURLのソースを確認すると、下書きメールが表示されます。そのため、VBAで下書きメールの内容を取得するには、指定したURLをGoogle Chromeで開いてソースを取得する方法を試してみてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • Prome_Lin
  • ベストアンサー率42% (201/470)
回答No.2

私も、興味があったので、少し調べてみました。 「vba gmail api」でググってみると、「Gmail API」なるものを発見しました。 また、「VBA」を使って「Gmail」を送信するマクロもみつかりました。 しかし、前準備が何ならやっかいそうですが、どうしても必要なら、参照してみてください。 なお、「Google Apps Script」で、「下書き」にあるメールをGoogleの「スプレッドシート」に書き出すマクロでしたら、以下のようになります。 function myFunction() { var d = GmailApp.getDraftMessages(); var l = d.length; var s = SpreadsheetApp.getActiveSheet(); for (var i = 0, l = l; i < l; i++) { var m = d[i]; s.getRange(i + 1, 1).setValue(m.getTo()); s.getRange(i + 1, 2).setValue(m.getSubject()); s.getRange(i + 1, 3).setValue(m.getBody()); } } このマクロを走らせると、「Gmail」の「下書き」にあるすべてのメールの、「To（宛先）」、「Subject（件名）」、「Body（本文）」をそれぞれ、「Ａ」列、「Ｂ」列、「Ｃ」列に書き出してくれます。 私には、これが精一杯でした。

IVFLQZYZDLTC
質問者

お礼

ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • Prome_Lin
  • ベストアンサー率42% (201/470)
回答No.1

VBAから直接「Gmail」の内容にアクセスするのは不可能だと思われます。 Set g = CreateObject("Gmai.Object") みたいなオブジェクトでもあれば分かりませんが・・・ 「Gmail」は、「Google Script Apps（JavaScript）」なら、当然「Gmail」にアクセスできるので、VBAから「Google Script Apps」にアクセスする方法を考えなければならないと思います（ただ、それならすべて「Google Script Apps」でやってしまった方が速いような・・・） とりあえず http://www.ka-net.org/blog/?p=6415 を参照してみてください。

IVFLQZYZDLTC
質問者

お礼

ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 二つのタブを開き、二つ目のタブに対して、操作し

    vbaのie操作で 一つ目はタブはグーグルメール 二つ目のタブはドコモメールを開きたいのですが、 ドコモメールはPWをVBAで入れないと進めないので入れたいのですが Sub test() Dim myObj As Object Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") With objIE .Visible = True .Navigate "https://mail.google.com/mail/u/0/?pli=1#inbox"　’グーグル End With objIE.Navigate2 "https://mail.smt.docomo.ne.jp/mail/#fid=10000000&page=1", 2048　’ドコモ For Each myObj In objIE.document.all.tags("input") If myObj.ID = "persistent" Then myObj.Value = "PW" Exit For End If Next Set objIE = Nothing End Sub だと、 For Each myObj In objIE.document.all.tags("input") は、グーグルメールを参照しています。 LocationURLを見てみたら、 "https://mail.google.com/mail/u/0/#inbox" になっていました。 このように、二つのタブを開き、二つ目のタブに対して、操作したい場合 どうすればいいでしょうか？

  • myObjにタグを格納してループはできない？

    MSXML2.XMLHTTPの時は、 myObjにタグを格納してループはできないのでしょうか？ Sub test() Dim objIE As Object Dim myObj As Object Set objIE = CreateObject("MSXML2.XMLHTTP") objIE.Open "GET", "http://○○.html", False objIE.send For Each myObj In objIE.Document.all.tags("p") Next Set objIE = Nothing End Sub 上記だと実行時エラー438になります。 Set objIE =CreateObject("InternetExplorer.Application") でループしないとダメでしょうか？ Set objIE =CreateObject("InternetExplorer.Application") は時間がかかるので、できれば Set objIE =CreateObject("MSXML2.XMLHTTP") でやりたかったのですが、タグを格納できないのでしょうか？

  • ｖｂａ　ｉｅ操作　ボタンを押したい

    こんばんは。度々すいません。 またまたIE操作で詰んでしまいました。 以前、http://hiroba.chintai.net/qa7798169.htmlで質問してご回答いただいたのですが 違うサイトにも応用しようとしたところ、うまくいきませんでした。 https://www.jaccs.co.jp/icmclub/icm_login.htmlのログインボタンを押下したいのですが Sub test() Dim objIE As InternetExplorer Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.navigate "https://www.jaccs.co.jp/icmclub/icm_login.html" objIE.Visible = True Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop For Each myObj In objIE.document.forms(0).all If TypeName(myObj) = "HTMLInputElement" Then If myObj.alt = "ログイン" Then Debug.Print myObj.alt myObj.Click Exit For End If End If Next Set objIE = Nothing End Sub をするとエラーにもならないけどボタンも押せません。 でもmyObj.Clickは通過しているようです。 なぜボタンを押せないのでしょうか？ ご教授よろしくお願いします。

  • 住所を入力し、検索ボタンをクリックしたいのですが

    グーグルマップを開き 住所を入力し、検索ボタンをクリックしたいのですが それをvbaで実現可能でしょうか? Dim objIE As Object Sub Sample() Dim myObj As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.navigate "https://www.google.co.jp/maps" Do While objIE.Busy = True DoEvents Loop Do While objIE.document.readyState <> "complete" DoEvents Loop Set objIE = Nothing End Sub はできたのですが 「グーグルマップを検索する」が ソース内で見当たらないし さらに 検索ボタンもソース内で探せません。 グーグルの検索窓に「東京都千代田区丸の内1-9-1」 トイレたいのですが VBAでどうすればいいのでしょうか?

  • objIE.Document.all.tags("

    Sub test1() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://oshiete.goo.ne.jp/" objIE.Visible = True Call IE_wait(objIE) objIE.Document.forms("center_searchform").elements("MT").Value = "教えて" For Each myObj In objIE.Document.all.tags("input") If myObj.alt = "検索する" Then objIE.Document.all.tags("input").alt("検索する").Click　‘ココでエラー End If Next Set objIE = Nothing End Sub これを実行するとクリックできないのですがなぜでしょうか？ オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438) が表示されます。 他の方法で解決する事は出来ますが、 If myObj.alt = "検索する" Then が出来てるからこのままうまく行きそうな気がするのですが？ 理由を教えてください。ご回答よろしくお願いします。

  • 食べログに価格ドットコムのIDでログインしたい

    食べログにvbaを使ってログインしたいのですが、 どうしてもログインボタンを押せません。 クリックできない状態です。 Enabledプロパティと同じような状態です。 Dim objIE As InternetExplorer Sub Sample1() Dim SiteName As String Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "https://ssl.tabelog.com/account/kakakuid_entry/" With objIE.document .all("mail_address").Value = "test" .all("password").Value = "test" End With For Each myObj In objIE.document.all.tags("input") If myObj.alt = "ログイン" Then myObj.Click Exit For End If Next Set objIE = Nothing End Sub こうしても、なぜかログインボタンが選択状態になりません。 手動でIDとPWを入力すると、ボタンが青くなり、押せるようになりますが VBAで情報を入力すると、選択不可状態のままです。 これが原因で、vbaでログインボタンがクリックできないのでしょうか？

  • 二つ目のタブの情報をウォッチウインドウで確認するこ

    一つのウインドウで二つのタブを開いたとき、 二つ目のタブの情報をウォッチウインドウで確認することはできないのですか？ 例えば、 Sub Sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" objIE.Navigate2 "http://www.google.co.jp/", 2048 Set objIE = Nothing End Sub この状況でobjIEをウォッチウインドウで見た時に Set objIE = Nothingで処理を中断しても Navigate2で開いたhttp://www.google.co.jp/の情報はobjIEに格納されてないのでしょうか？ ウォッチウインドウを見てもhttp://www.yahoo.co.jp/の情報しか見当たりません。

  • objIE.Navigate2 "http://.

    win8.1　エクセル２０１０です。 1ページ目でyahooのソースをチェックし、 2ページ目でグーグルのソースをチェックするにはどうすればいいでしょうか？ **************************************************************** Option Explicit Dim objIE As InternetExplorer Sub test() Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") With objIE .Visible = True .navigate "http://www.htmllint.net/html-lint/htmllint.html" End With Call wait For Each myObj In objIE.document.all.tags("input") If myObj.Name = "URL" Then myObj.Value = "http://www.yahoo.co.jp/" Exit For End If Next For Each myObj In objIE.document.all.tags("input") If myObj.alt = "CHECK" Then myObj.Click Exit For End If Next Call wait '表示が終わってないのに次のコードに進んでるっぽい objIE.Navigate2 "http://www.htmllint.net/html-lint/htmllint.html", 2048 For Each myObj In objIE.document.all.tags("input") If myObj.Name = "URL" Then myObj.Value = "https://www.google.co.jp/" Exit For End If Next For Each myObj In objIE.document.all.tags("input") If myObj.alt = "CHECK" Then myObj.Click Exit For End If Next End Sub Sub wait() Do While objIE.Busy = True DoEvents Loop Do While objIE.readyState <> 4 DoEvents Loop End Sub **************************************************************** というコードを作ったのですが、 1ページ目のタブで、ヤフーのコードをチェックし、 2ページ目のタブで http://www.htmllint.net/html-lint/htmllint.html は表示できたのですが、 2ページ目のタブのボックスに myObj.Value = "https://www.google.co.jp/" を入れることができません。 しかし 上記のコードを実行してもエラーにはなりません。 2回目の For Each myObj In objIE.document.all.tags("input")は 何をループしているのかよくわかりません。 objIE.Navigate2 "http://www.htmllint.net/html-lint/htmllint.html", 2048 で開いた二つ目のタブで For Each myObj In objIE.document.all.tags("input") If myObj.Name = "URL" Then myObj.Value = "https://www.google.co.jp/" Exit For End If Next をやる方法を教えてください。

  • vba IE操作で　こういう事ってできない？

    vba IE操作で　こういう事ってできないのでしょうか？ Dim objIE As InternetExplorer Sub test() Dim myObj As Object Dim myStr As String Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://employment.en-japan.com/search/search_list.cfm?area=23&startRow=1&m=1&job=100000" objIE.Visible = True Call iewait For Each myObj In objIE.Document.all.tags("a") If myObj.outerText = "詳細を見る" Then myObj.Click Call iewait Debug.Print objIE.LocationName objIE.GoBack Call iewait End If Next objIE.Quit Set objIE = Nothing End Sub Sub iewait() Const READYSTATE_COMPLETE As Long = 4 Do Until objIE.ReadyState = READYSTATE_COMPLETE Loop Do While objIE.Busy = True DoEvents Loop End Sub このコードを実行して、 １ページ目の「詳細を見る」をクリックして、２ページ目のタイトルを抜き出し １ページ目に戻り、次の「詳細を見る」をクリックして、２ページ目のタイトルを抜き出し・・・ と言う処理を繰り返したいのですが、 １回目のmyObj.Clickを通った後（Call iewaitの後かも？）に、 myObjの値が変数なしになってしまい、 ２回目のIf myObj.outerText = "詳細を見る" Thenで 書き込みできません。(Error 70) になります。 １ページ目のリンクをクリックして、戻って また１ページ目のリンクをクリックして・・・ と言う処理をしたい場合どうすればよろしいでしょうか？

  • ｖｂａ　ｉｅ操作　電気家計簿ログインできない

    いつもお世話になっております。 何度も質問して申し訳ございません。またまた教えてください。 電気家計簿（https://www.kakeibo.tepco.co.jp/dk/aut/login/）のログインボタンをＶＢＡで押したいのですが うまくできません。 コードは下記の通りです。 ***************************************************************** Sub test() Dim objIE As InternetExplorer Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://www.kakeibo.tepco.co.jp/dk/aut/login/" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Document.all("id").Value = "test" objIE.Document.all("password").Value = "tset" 'objIE.Document.Forms(0).submit 'これだと更新されちゃうっぽい 'objIE.Document.Forms(0).Item(2).Click 'Item(0)とItem(1)はエラーにならないけど何も起こらない。Item(2)にするとエラー 'objIE.Document.all.submit.Click 'エラー 'エラーにならないけど何も起こらない 'For i = 0 To objIE.Document.Links.Length - 1 ' If objIE.Document.Links(i).innerHTML Like "*alt=ログイン*" Then ' objIE.Document.Links(i).Click ' Exit For ' End If 'Next i 'エラーにならないけど何も起こらない 'For Each myObj In objIE.Document.forms(0).all ' If TypeName(myObj) = "HTMLInputElement" Then ' If myObj.alt = "ログイン" Then ' myObj.Click ' Exit For ' End If ' End If 'Next Set objIE = Nothing End Sub ***************************************************************** 自分なりにいくつか試してみたのですが、うまくいきませんでした。 ご教授よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する