Outlook で添付ファイルを挿入する際に、ファイルダイアログボックスをすばやく開く方法は？

メール作成中に添付ファイルを挿入する必要がある場合、通常は［挿入］＞［ファイルの添付］＞［この PC を参照］をクリックして［ファイルの挿入］ダイアログボックスを開き、目的のファイルを探して挿入します。本チュートリアルでは、たった1 回のクリックで［ファイルの挿入］ダイアログボックスを簡単に開ける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のチェックボックスにチェックを入れてください。

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

注意事項：

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

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

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

6．Outlook のオプションダイアログボックスで、次のように設定してください。

7．右側のボックスでスクリプトが選択された状態のまま、変更ボタンをクリックします。ボタンの変更ダイアログボックスが表示されたら、このスクリプトに新しいボタンを割り当てて、OKをクリックします。

8．OKをクリックして、Outlook のオプションダイアログボックスを閉じ、変更を保存します。

9．ステップ7 で指定したボタンがクイックアクセスツールバーに追加されます。メール作成中に添付ファイルを挿入したい場合は、このボタンをクリックするだけで参照フォルダーが開き、挿入したいファイルをすぐに選べます。

---

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧      今すぐダウンロード      購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

• ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
• 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
• 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて⬇ スイートをダウンロード💳 スイートを購入