Excel VBAでOutlookを使ってメールを送信する方法

皆さん、こんにちは。今日は、ExcelとOutlookを使って、手軽にメールを送信する方法をご紹介します。パソコン操作があまり得意でない方でも、心配いりません。ゆっくりと一緒に進めていきましょう。

Excel VBAとは？
Outlookと連携してメールを送るメリット
実際にやってみようExcelからOutlookでメールを送信
よくある質問や疑問
1. Q1. コードを実行してもエラーが出てしまいます。どうすればいいですか？
2. Q2. 複数の人に一度にメールを送りたいのですが、可能ですか？
今すぐ解決したい！どうしたらいい？
まとめ

Excel VBAとは？

Outlookのイメージ

まず、Excel VBAという言葉を聞いたことがありますか？これは、Excelの中で使える特別な機能で、作業を自動化するためのものです。例えば、毎日同じようなデータ入力をしているとき、このVBAを使うと自動でその作業をやってくれるんです。便利ですよね。

Outlookと連携してメールを送るメリット

では、なぜExcelとOutlookを組み合わせるのでしょうか？例えば、たくさんの人に同じ内容のメールを送りたいとき、一人ひとり手作業で送るのは大変です。でも、Excelにリストを作っておいて、VBAを使えば、一度に全員にメールを送ることができるんです。時間の節約になりますね。

実際にやってみようExcelからOutlookでメールを送信

それでは、具体的にどうやって設定するのか、一緒に見ていきましょう。

1. 必要な準備

まず、ExcelとOutlookがパソコンにインストールされていることを確認してください。次に、Excelで「開発」タブを表示する必要があります。もし表示されていない場合は、以下の手順で表示させましょう。

Excelを開き、左上の「ファイル」をクリックします。
「オプション」を選択します。
左側のメニューから「リボンのユーザー設定」をクリックします。
右側の「開発」にチェックを入れて、「OK」をクリックします。

これで「開発」タブが表示されるようになります。

2. VBAエディターを開く

次に、VBAエディターを開いてみましょう。

「開発」タブをクリックします。
「Visual Basic」をクリックします。

すると、新しいウィンドウが開きます。これがVBAエディターです。

3. Outlookとの連携設定

Outlookと連携するためには、少し設定が必要です。

VBAエディターの上部メニューから「ツール」をクリックします。
「参照設定」を選択します。
表示されたリストの中から「Microsoft Outlook xx.x Object Library」にチェックを入れます。（xx.xはバージョン番号です）
「OK」をクリックします。

これで、ExcelからOutlookを操作する準備が整いました。

4. メール送信のコードを書く

いよいよ、実際にメールを送るためのコードを書いてみましょう。難しそうに感じるかもしれませんが、順を追って説明しますのでご安心ください。

VBAエディターの左側で、「ThisWorkbook」をダブルクリックします。
右側の大きな白い部分に、以下のコードをコピーして貼り付けます。

vba

Sub SendEmail()

    Dim OutlookApp As Outlook.Application

    Dim OutlookMail As Outlook.MailItem
    ' Outlookを起動

    Set OutlookApp = New Outlook.Application

    ' 新しいメールを作成

    Set OutlookMail = OutlookApp.CreateItem(olMailItem)
    With OutlookMail

        .To = "example@example.com" ' 送信先のメールアドレス

        .Subject = "テストメール" ' 件名

        .Body = "これはテストメールです。" ' 本文

        .Display ' メールを表示（.Sendに変更すると直接送信）

    End With

' オブジェクトを解放 Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub

このコードでは、Outlookを起動し、新しいメールを作成しています。`example@example.com`の部分を、実際にメールを送りたい相手のアドレスに変更してください。また、`.Display`と書かれている部分は、メールを表示するだけなので、直接送信したい場合は`.Send`に変更します。