Outlook VBAで添付ファイルの有無をチェックして誤送信を防ぐ方法

皆さん、メールを送信した後で「添付ファイルを忘れてしまった！」と焦った経験はありませんか？特に大切な書類を送る際には、添付漏れは避けたいものです。今回は、Outlookでメールを送信する前に、VBA（Visual Basic for Applications）を使って添付ファイルの有無を自動的にチェックし、誤送信を防ぐ方法をご紹介します。

Outlook VBAとは？
添付ファイルの有無をチェックする仕組み
VBAコードの設定手順
よくある質問や疑問
1. Q1. このマクロはすべてのメールに対して動作しますか？
2. Q2. マクロが正しく動作しない場合、どうすればよいですか？
今すぐ解決したい！どうしたらいい？
まとめ

Outlook VBAとは？

Outlookのイメージ

まず、Outlook VBAについて簡単に説明します。VBAとは、MicrosoftのOffice製品に組み込まれているプログラミング言語で、Outlookの操作を自動化することができます。これにより、日々のメール作成や送信時のチェックなどを効率化できます。

添付ファイルの有無をチェックする仕組み

では、具体的にどのようにして添付ファイルの有無をチェックするのでしょうか。ポイントは以下の通りです

ここがポイント！

メールの件名や本文に「添付」という言葉が含まれているか確認する。
「添付」という言葉があるのに、実際にはファイルが添付されていない場合、警告メッセージを表示する。

この仕組みにより、添付漏れを未然に防ぐことができます。

VBAコードの設定手順

それでは、具体的な設定手順を見ていきましょう。

1. 開発タブの表示

OutlookでVBAを使用するには、まず「開発」タブを表示する必要があります。

Outlookを開き、左上の「ファイル」タブをクリックします。
「オプション」を選択し、表示されたウィンドウで「リボンのユーザー設定」をクリックします。
右側の「メインタブ」一覧から「開発」にチェックを入れ、「OK」をクリックします。

これで、リボンに「開発」タブが表示されます。

2. VBAエディターの起動

次に、VBAエディターを起動します。

「開発」タブをクリックし、「Visual Basic」を選択します。
VBAエディターが開いたら、左側の「プロジェクト」ウィンドウで「ThisOutlookSession」をダブルクリックします。

3. コードの入力

以下のコードを「ThisOutlookSession」に貼り付けます。

vba

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    ' 件名と本文を取得

    Dim subject As String

    Dim body As String

    subject = Item.Subject

    body = Item.Body
    ' 添付ファイルの数を取得

    Dim attachmentCount As Integer

    attachmentCount = Item.Attachments.Count

' 件名または本文に「添付」という文字が含まれているか確認 If InStr(subject, "添付") > 0 Or InStr(body, "添付") > 0 Then ' 添付ファイルがない場合、警告を表示 If attachmentCount = 0 Then Dim response As VbMsgBoxResult response = MsgBox("メールに『添付』と書かれていますが、添付ファイルがありません。送信しますか？", vbYesNo + vbExclamation, "添付ファイルの確認") If response = vbNo Then Cancel = True End If End If End If End Sub

このコードは、メール送信時に件名や本文に「添付」という言葉が含まれているにも関わらず、添付ファイルがない場合に警告を表示します。