ExcelとOutlookを連携するVBA活用法【初心者向け解決ガイド】

皆さん、こんにちは。今日は、ExcelとOutlookを連携させるVBAの活用法についてお話しします。パソコンやスマホが少し苦手な方でも、これを機に業務効率化を目指してみませんか？

VBAとは？そしてその魅力
ExcelからOutlookでメールを送信する方法
OutlookのメールをExcelに自動記録する方法
よくある質問や疑問
1. Q1: VBAを使うのは難しそうですが、初心者でもできますか？
2. Q2: セキュリティ上の問題はありませんか？
今すぐ解決したい！どうしたらいい？
まとめ

VBAとは？そしてその魅力

Outlookのイメージ

まず、VBAについて簡単にご説明します。VBA（Visual Basic for Applications）は、Microsoft Office製品に組み込まれているプログラミング言語です。これを使うと、ExcelやOutlookの操作を自動化できるんです。例えば、毎日同じようなメールを送る作業や、大量のデータ入力など、手間のかかる作業を自動化できます。

ExcelからOutlookでメールを送信する方法

では、具体的にExcelからOutlookを使ってメールを送る方法を見ていきましょう。以下の手順で進めていきます。

ExcelでAlt＋F11を押して、VBAエディタを開きます。
メニューバーの「ツール」から「参照設定」を選択し、「Microsoft Outlook xx.x Object Library」にチェックを入れてOKをクリックします。
新しいモジュールを挿入し、以下のコードを入力します。

vba

Sub メール作成()

    Dim MyOutlook As Outlook.Application

    Set MyOutlook = New Outlook.Application
    Dim Mailitem As Outlook.MailItem

    Set Mailitem = MyOutlook.CreateItem(olMailItem)

Mailitem.To = "example@example.com" Mailitem.Subject = "テストメール" Mailitem.Body = "これはテストメールです。" Mailitem.Display End Sub

このコードを実行すると、Outlookで新しいメール作成画面が表示されます。宛先、件名、本文が自動で入力されているのが確認できます。

OutlookのメールをExcelに自動記録する方法

次に、Outlookで受信したメールを自動的にExcelに記録する方法をご紹介します。これにより、メールの管理が格段に楽になります。

OutlookでAlt＋F11を押して、VBAエディタを開きます。
「ThisOutlookSession」をダブルクリックし、以下のコードを入力します。

vba

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

    Dim myNamespace As Outlook.NameSpace

    Dim myFolder As Outlook.MAPIFolder

    Dim myItem As Outlook.MailItem

    Dim xlApp As Object

    Dim xlBook As Object

    Dim xlSheet As Object

    Dim i As Integer
    Set myNamespace = Application.GetNamespace("MAPI")

    Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)

    Set xlApp = CreateObject("Excel.Application")

    Set xlBook = xlApp.Workbooks.Open("C:\メール記録.xlsx")

    Set xlSheet = xlBook.Sheets(1)

    i = xlSheet.Cells(xlSheet.Rows.Count, 1).End(-4162).Row + 1
    For Each myItem In myFolder.Items

        If myItem.UnRead Then

            xlSheet.Cells(i, 1).Value = myItem.Subject

            xlSheet.Cells(i, 2).Value = myItem.ReceivedTime

            xlSheet.Cells(i, 3).Value = myItem.SenderName

            myItem.UnRead = False

            i = i + 1

        End If

    Next myItem