Outlook VBAで受信トレイを表示する方法【初心者向け解決ガイド】

パソコンパソコン・スマホ教室
スポンサーリンク

皆さん、こんにちは。今日は、OutlookのVBAを使って受信トレイを表示する方法についてお話しします。パソコンやスマホの操作がちょっと苦手な方でも大丈夫。わかりやすく説明していきますので、一緒に学んでいきましょう。

スポンサーリンク

Outlook VBAとは?

Outlookのイメージ

Outlookのイメージ

まず、VBAという言葉を聞いたことがありますか?これは「Visual Basic for Applications」の略で、Microsoftのアプリケーションを自動化するためのプログラミング言語です。つまり、Outlookの作業を自動化したり、便利な機能を追加したりすることができるんです。

受信トレイを表示する基本的なVBAコード

それでは、具体的にOutlookの受信トレイを表示するVBAコードを見てみましょう。以下のコードを使うことで、Outlookの受信トレイを簡単に表示することができます。

vba
Sub DisplayInbox()
Dim myNamespace As Outlook.Namespace
Dim myFolder As Outlook.Folder

Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
myFolder.Display
End Sub

このコードを実行すると、Outlookの受信トレイが表示されます。初心者の方でも、このコードをコピーして実行するだけで試すことができます。

受信トレイ内のメール一覧をExcelに取得する方法

次に、受信トレイ内のメール一覧をExcelに取得する方法をご紹介します。これにより、メールの管理がより便利になります。

vba
Sub GetOutlookReceivedEmail()
Dim objOutlook As New Outlook.Application
Dim myNamespace As Outlook.Namespace
Dim myFolder As Outlook.Folder
Dim ws As Worksheet
Dim i As Long

Set myNamespace = objOutlook.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Set ws = ThisWorkbook.Worksheets("Sheet1")

For i = 1 To myFolder.Items.Count
On Error Resume Next
ws.Cells(i, 1).Value = myFolder.Items.Item(i).SenderName
ws.Cells(i, 2).Value = myFolder.Items.Item(i).SenderEmailAddress
ws.Cells(i, 3).Value = myFolder.Items.Item(i).Subject
ws.Cells(i, 4).Value = myFolder.Items.Item(i).ReceivedTime
On Error GoTo 0
Next i
End Sub

このコードを実行すると、受信トレイ内のメールの送信者名、送信者アドレス、件名、受信時間がExcelのシートに一覧として表示されます。ただし、メールの数が多い場合は時間がかかることがありますので、その点はご注意ください。

サブフォルダ内のメールを取得する方法

受信トレイの中にさらにフォルダを作ってメールを整理している方も多いと思います。そんな場合でも、以下のコードを使えばサブフォルダ内のメールを取得することができます。

vba
Sub GetSubfolderEmails()
Dim objOutlook As New Outlook.Application
Dim myNamespace As Outlook.Namespace
Dim myFolder As Outlook.Folder
Dim subFolder As Outlook.Folder
Dim ws As Worksheet
Dim i As Long

Set myNamespace = objOutlook.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Set subFolder = myFolder.Folders("サブフォルダ名")
Set ws = ThisWorkbook.Worksheets("Sheet1")

For i = 1 To subFolder.Items.Count
On Error Resume Next
ws.Cells(i, 1).Value = subFolder.Items.Item(i).SenderName
ws.Cells(i, 2).Value = subFolder.Items.Item(i).SenderEmailAddress
ws.Cells(i, 3).Value = subFolder.Items.Item(i).Subject
ws.Cells(i, 4).Value = subFolder.Items.Item(i).ReceivedTime
On Error GoTo 0
Next i
End Sub

このコード内の「サブフォルダ名」を実際のフォルダ名に置き換えて使用してください。これで、特定のサブフォルダ内のメール情報を取得することができます。

よくある質問や疑問

Q1: VBAコードを実行するにはどうすればいいですか?

Excelの「開発」タブをクリックし、「マクロ」を選択して実行したいコードを選び、「実行」をクリックします。

Q2: VBAコードを使う際に注意することはありますか?

コードを実行する前に、必ずデータのバックアップを取るようにしましょう。また、信頼できるコードのみを実行するよう心掛けてください。

今すぐ解決したい!どうしたらいい?

LINE公式

いま、あなたを悩ませているITの問題を解決します!
「エラーメッセージ、フリーズ、接続不良…もうイライラしない!」

あなたはこんな経験はありませんか?

✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦

平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間(約9日分の働く時間!)を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。

LINEでメッセージを送れば即時解決!

すでに多くの方が私の公式LINEからお悩みを解決しています。

最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。

誰でも無料で使えますので、安心して使えます。

問題は先のばしにするほど深刻化します。

小さなエラーがデータ消失重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。

あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。

相談しに行く

ぜひ、あなたの悩みを私に解決させてください。

まとめ

今回は、OutlookのVBAを使って受信トレイを表示する方法や、メール一覧をExcelに取得する方法をご紹介しました。最初は難しく感じるかもしれませんが、慣れてくるととても便利なツールです。ぜひ試してみてください。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。

コメント

タイトルとURLをコピーしました