Outlookで添付ファイルを挿入するためにファイルダイアログボックスを迅速に開く方法は？

Author: Siluvia Last Modified: 2025-05-23

作成中のメールに添付ファイルを挿入する必要がある場合、通常は「挿入」→「ファイルの添付」→「このPCを参照」をクリックして「ファイルの挿入」ダイアログを開き、必要なファイルを見つけて挿入します。このチュートリアルでは、ワンクリックで「ファイルの挿入」ダイアログを開くための2つのVBAコードを提供します。

VBAを使用して添付ファイルを挿入するためのファイルダイアログを迅速に開く

次のVBAコードは以下を実現します：

VBAコード1：コンピュータのデフォルトの「ドキュメント」フォルダーを開く
VBAコード2：コンピュータ内の指定されたフォルダーを開く

以下の手順に従って操作を行ってください。

1. Outlookを起動し、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、「ツール」→「参照設定」をクリックし、「参照設定 – Project1」ダイアログボックスで「Microsoft Scripting Runtime」のチェックボックスをオンにします。

steps of opening the file dialog box to insert an attachment in outlook

3. 「挿入」→「モジュール」をクリックします。その後、次のいずれかのVBAコードをモジュールウィンドウにコピーします。

VBAコード1：コンピュータのデフォルトの「ドキュメント」フォルダーを開く

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

VBAコード2：コンピュータ内の指定されたフォルダーを開く

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

注意：

1) VBAコード1は、コンピュータのデフォルトの「ドキュメント」フォルダーを開くのに役立ちます。

2) VBAコード2では、次の行のフォルダーパスを目的のフォルダーパスに変更してください。
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"
これにより、このコードを実行するたびに指定されたフォルダーが開かれます。

4. Alt + Qキーを押してMicrosoft Visual Basic for Applicationsウィンドウを閉じます。

次に、マクロを実行するためのボタンが必要です。

5. 「ホーム」→「新規メール」をクリックして新しいメールを作成します。メッセージウィンドウで、「クイックアクセスツールバーのユーザー定義」→「その他のコマンド」をクリックします。