【初心者向け】Outlook VBAでファイル添付忘れを防ぐ！

▲今回テストとして上記のようなメールを想定します。

（STEP1）メールテンプレートファイルを準備する。

▲こんな感じでメールテンプレートを作成します。注文書の送付メールを想定しました。

あわせて読みたい

【Outlook】メールテンプレートを使っていつものメールを時短しよう！ なんども送るメールはメールテンプレート（.oft）を利用すると便利です。 【メールテンプレートとは？】 メールテンプレート ▲メールテンプレートとは決まった宛先・お…

▲メールテンプレートって何？とか作り方がわからない方はこちらの記事をご参考になさってください。

（STEP2）Outlookでマクロを使えるように設定変更にする。

Outlook ではデフォルトの状態ではマクロ機能が無効になっています（セキュリティのため）。セキュリティ設定を変更してマクロを使える準備をします。

あわせて読みたい

【初心者向け】Outlook マクロ（VBA）を使って時短しよう！ Outlook にもExcelと同じようなマクロ機能が存在することをご存じでしょうか。マクロを使えばメールに関する操作を自動化して、時短やミス防止にも役立ちます。 この記…

▲設定方法についてはコチラの記事で解説しています。

（STEP3）Outlook VBAでExcelの機能を使えるように設定する。

今回のマクロではファイルダイアログというExcelの機能を使います。そのためOutlook からExcelの機能を呼び出すための設定を行います。

あわせて読みたい

【初心者向け】Outlook VBAでファイル選択ダイアログを使用する方法！ この記事ではOutlookでファイルダイアログを使用する方法について紹介します！ この記事でわかること Outlookマクロでファイルダイアログを使ったマクロを作成するため…

▲設定方法については上の記事をご参考になさってください。（Excel Object Libraryの参照設定）

（STEP4）マクロコードを記述します。

Sub Attach_files_to_a_mail()
    '''ファイルダイアログを表示してユーザにファイルを選択してもらいます。
    '''選択したファイルを所定のメールテンプレートに添付して開きます。
    '''
    '''

    '■1.Excelを呼び出す処理（ファイルダイアログを呼び出すため）
    Dim excelObject As Excel.Application
    Set excelObject = New Excel.Application
    excelObject.Visible = False 'Excelは非表示にする
    
    
    '■2.メールテンプレートを呼び出す処理
    Dim objItem As MailItem
    '下記にメールテンプレートのパスを入力してね。
    Set objItem = Application.CreateItemFromTemplate("C:\Users\user\AppData\Roaming\Microsoft\Templates\注文書の送付.oft")
    
    
    '■3.ファイルダイアログを設定して表示する処理
    Dim fdFolder As Office.FileDialog
    Set fdFolder = excelObject.Application.FileDialog(msoFileDialogFilePicker)

    With fdFolder
        .InitialFileName = "%userprofile%\" '一番最初に開くフォルダのパスを記述します。
        .AllowMultiSelect = True '複数ファイルの選択を許可する場合はTrue・しない場合はFalse
        .Title = "メールに添付するファイルを選択してください（複数選択可）。"
        '選択できるファイルを制限するには下記のようにフィルターを追加してください。
'        .Filters.Add "Excels", "*.xls* ", 1
'        .Filters.Add "Images", "*.png; *.jpg; *.jpeg", 2
'        .Filters.Add "Documents", "*.doc*; *.pdf; *.txt ", 3
'        .Filters.Add "csv", "*.csv", 4
'        .Filters.Add "any", "*.*", 5
'        .FilterIndex = 1 'デフォルトのフィルターをindexで指定します。
        .Show 'ファイルダイアログを表示します。
    End With
    
    
    '■4.選択されたファイルをメールテンプレートに1個ずつ添付する
    Dim SelectedItem
    For Each SelectedItem In fdFolder.SelectedItems
      objItem.Attachments.Add SelectedItem
    Next
    
    objItem.Display '添付ファイル付けたあとにメールテンプレートを表示します。
    'objItem.Send '送信も自動化する場合はこの行のコメントアウトを外してください。ただし送信ボタンは人間が押すことをおススメします。

    Set excelObject = Nothing
End Sub

▲VBEの標準モジュールに上記のコードをコピペします。

以上で準備完了です。VBEは閉じます。