Q&A
https://qiita.com/kento971017/questions/1aca4e3aaaf4dd0abc97
以下ご対応ください。
https://teratail.com/help#posted-otherservice
解決したいこと
Outlookで指定フォルダ内の昨日のメールを.txtで名前付けて保存するVBAを組みたいのですが、うまくメールアイテムを保存できません。
保存イメージとしては画像の通りで、手作業の場合だと『フォルダ内のメールを選択』⇒『ファイルタブをクリック』⇒ 『名前を付けて保存』と押した際にできるテキストファイルの見た目になります。
お忙しいところ恐縮ですが、方法をご教授いただけますと幸いです。
発生している問題・エラー
上記の保存イメージの通りに情報が取得できない。
該当するソースコード
VBA
1Option Explicit 2 3Sub 昨日のOutlook情報をテキストドキュメントにして保存() 4 5 Dim dtStart As Date 6 Dim dtEnd As Date 7 Dim strStart As String 8 Dim strEnd As String 9 Dim strFilter As String 10 Dim objOL As Object 11 Dim objNAMESPC As Object 12 Dim myfolders As Object 13 Dim colItems As Items 14 Dim fldCurrent As Folder 15 Dim objItem As MailItem 16 17 ' エクスポート範囲を指定 18 dtStart = Date - 1 19 dtEnd = Date - 1 20 strStart = FormatDateTime(dtStart, vbShortDate) 21 strEnd = FormatDateTime(dtEnd, vbShortDate) 22 strFilter = "[受信日時] >= '" & strStart & _ 23 "' AND [受信日時] <= '" & strEnd & " 23:59'" 24 25 '保存したいメールフォルダを取得 26 Set objOL = CreateObject("Outlook.Application") 27 Set objNAMESPC = objOL.GetNamespace("MAPI") 28 Set myfolders = objNAMESPC.Folders("aaaaaa@gmail.com").Folders("テスト") 29 30 'メールフォルダをフィルタリング 31 Set colItems = myfolders.Items.Restrict(strFilter) 32 33End Sub 34
自分で試したこと
メールフォルダーのフィルタリングと指定フォルダの取得はできたのですが、ここからテキストドキュメントへ画像のような形で保存する方法が分かりません。
回答1件
0
ベストアンサー
対象おメールアイテムまで取得できているのであれば、あとはテキストファイルに出力するだけかと。
以下を参考にしてみてください。
・受信メールの件名などを取得する方法
https://qiita.com/t-yama-3/items/37545fa9a00c140fb657
・テキストファイルを作成して書き込む方法
https://tonari-it.com/excel-vba-fso-create-text-file/
投稿2021/09/14 00:33
総合スコア761
ありがとうございます！
2つ目のサイトにあるcreatetextfileメソッドをcolItemsにつければいいのでしょうか？
colItems.createtextfile (ファイルパス)をしたところ、メソッドをサポートしていないとエラーが出てしまいます…。
初心者で申し訳ございません。
テキストファイルへの出力はどうやるのでしょうか？
ちなみに、いただいた方法でテキストファイルを作ると、『差出人：』や『送信日時:』という言葉も出力されますか？
別途質問を立てられているのでテキストファイルは出力できたということでよろしいですかね。
できれば、その旨お知らせいただけると、私も助かります。
失礼いたしました。
teratailを始めたのが最近なものでご迷惑をおかけしております。
本件は解決しました。
ご協力誠にありがとうございます。
あなたの回答
tips
プレビュー
