VBAでOutlookの送信日時を取得する方法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、ExcelのVBAを使って、Outlookの送信済みメールから送信日時を取得する方法をご紹介します。パソコンやスマホがちょっと苦手な方でも大丈夫。ゆっくり一緒に学んでいきましょう。

VBAとOutlookの連携とは？
Outlookの送信日時を取得する方法
よくある質問や疑問
1. Q1. コードを実行しても何も表示されません。どうすれば良いですか？
2. Q2. セキュリティの警告が表示されます。これは安全ですか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAとOutlookの連携とは？

Outlookのイメージ

まず、VBAって何？と思われるかもしれません。VBAは「Visual Basic for Applications」の略で、ExcelなどのOffice製品を自動化するためのプログラミング言語です。これを使うと、手作業で行っていたことを自動で処理できるようになります。

例えば、Outlookで送信したメールの送信日時をExcelに一覧としてまとめたいとき、手作業で一つ一つ確認するのは大変ですよね。そんなとき、VBAを使えば自動的に情報を取得してくれるんです。

Outlookの送信日時を取得する方法

では、具体的にどのようにしてOutlookの送信日時を取得するのか、順を追って説明します。

1. 必要な準備

まず、ExcelのVBAからOutlookを操作するための準備を行います。

Excelを開き、AltキーとF11キーを同時に押して、VBAエディターを起動します。
メニューの「ツール」から「参照設定」を選択します。
表示されたリストの中から「Microsoft Outlook xx.x Object Library」にチェックを入れ、OKボタンを押します。
※xx.xの部分はお使いのOutlookのバージョンによって異なります。

2. コードの記述

次に、実際のコードを記述していきます。以下のコードは、Outlookの送信済みアイテムから送信日時と件名を取得し、Excelのシートに書き出すものです。

vba

Sub GetOutlookSentItems()

    ' Outlookアプリケーションのオブジェクトを作成

    Dim OutlookApp As Outlook.Application

    Set OutlookApp = New Outlook.Application
    ' セッションの取得

    Dim OutlookNamespace As Outlook.Namespace

    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    ' 送信済みアイテムフォルダの取得

    Dim SentItemsFolder As Outlook.Folder

    Set SentItemsFolder = OutlookNamespace.GetDefaultFolder(olFolderSentMail)
    ' 送信済みアイテムの取得

    Dim SentItems As Outlook.Items

    Set SentItems = SentItemsFolder.Items
    ' 送信日時でソート（新しい順）

    SentItems.Sort "[SentOn]", True
    ' Excelのシートに書き出し

    Dim i As Integer

    i = 1

    Dim mailItem As Outlook.MailItem

    For Each mailItem In SentItems

        ' 送信日時

        Cells(i + 1, 1).Value = mailItem.SentOn

        ' 件名

        Cells(i + 1, 2).Value = mailItem.Subject

        i = i + 1

    Next mailItem

' オブジェクトの解放 Set mailItem = Nothing Set SentItems = Nothing Set SentItemsFolder = Nothing Set OutlookNamespace = Nothing Set OutlookApp = Nothing End Sub

このコードを実行すると、送信済みアイテムの送信日時と件名がExcelのシートに一覧として表示されます。