如何快速開啟檔案對話方塊，以便在 Outlook 中插入附件？

作者Siluvia修改日期2024-09-13

當您在撰寫電子郵件時，若需插入附件，通常必須依序點擊「插入」>「附加檔案」>「瀏覽這部電腦」，才能開啟「插入檔案」對話方塊，進而選取並插入所需檔案。本教學提供兩段 VBA 程式碼，讓您只需單擊一次，即可輕鬆開啟「插入檔案」對話方塊。

使用 VBA 快速開啟檔案對話方塊以插入附件

以下 VBA 程式碼可實現：

VBA 程式碼 1：開啟電腦中的預設「文件」資料夾
VBA 程式碼 2：開啟電腦中的指定資料夾

請依照以下步驟操作。

1. 啟動 Outlook，按下 Alt+F11 鍵，立即開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊工具 > 參考項目，然後在出現的 參考項目 – Project 1 對話方塊中，勾選 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

注意事項：

1) VBA 程式碼 1 可協助開啟電腦中的預設「文件」資料夾。

2) 在 VBA 程式碼 2 中，請將下列程式行中的文件路徑修改為您所需的文件路徑。
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"
此後每次執行此程式碼時，都會開啟指定的資料夾。

4. 按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

現在，您需要一個按鈕來執行巨集。

5. 點擊首頁＞ 新建郵件，即可建立新郵件。在郵件視窗中，點擊自訂快速存取工具列＞ 其他命令。

6. 在 Outlook 選項對話方塊中，請依下列方式進行設定。

6.1) 在從下列位置選擇命令下拉列表中，選取巨集；

6.2) 選取您在上一步驟中新增的巨集；

6.3) 點擊新增按鈕，將此巨集加入至自訂快速存取工具列方塊中。

7. 在右側方塊中保持選取該指令碼，然後點擊修改按鈕。在修改按鈕對話方塊中，為該指令碼指派一個新按鈕，再點擊確定。

8. 在 Outlook 選項對話方塊中點擊確定按鈕，以儲存變更。

9. 您在步驟 7 中指定的按鈕將立即新增至快速存取工具列！當您在撰寫電子郵件時，只需點擊此按鈕，即可開啟瀏覽資料夾並選取要插入的檔案，輕鬆完成附件插入！

最佳 Office 生產力工具

體驗全新 Kutools for Outlook，內含 100+ 項超強功能！立即點擊下載！

🤖KUTOOLS AI：運用先進 AI 技術，輕鬆處理電子郵件——無論是回覆、摘要、優化、擴充、翻譯還是撰寫郵件，通通一鍵搞定！

📧 郵件自動化：自動答覆（支援 POP 與 IMAP）／預約寄送郵件／寄信時依規則自動抄送密送／自動轉發（高級規則）／自動加入問候語／自動將多收件人郵件拆分為個別訊息……

📨 郵件管理：撤回郵件／依主旨等條件封鎖詐騙郵件／刪除重複郵件／高級搜尋／整合文件夾……

📁 附件專業版：批次儲存／批次解除附加／批次壓縮／自動保存／自動拆離／自動壓縮……

👍 一鍵奇蹟：帶附件全部答復／防釣魚郵件／🕘顯示發送者當前時間時區……

👩🏼‍🤝‍👩🏻 聯絡人與行事曆：從選取的郵件中批次新增聯絡人／將聯繫人組拆分為個別群組／移除生日提醒……

用您的慣用語言暢享 Kutools — 完整支援英文、西班牙文、德文、法文、中文等 40 多種語言！

立即一鍵解鎖 Kutools for Outlook！別再等待，馬上下載，全面提升工作效率！

Kutools for Outlook 功能列表立即下載前往購買

🚀 一鍵下載 — 立即取得所有 Office 增益集

強烈推薦：Kutools for Office（5 合 1）

一鍵下載五個安裝程式，一次完成 — Kutools for Excel、Outlook、Word、PowerPoint 與 Office Tab Pro！立即點擊下載！

✅ 一鍵便利：只需一次操作，即可下載全部五個安裝套件！
🚀 隨時應對任何 Office 任務：按需安裝所需增益集，立即提升工作效率！
🧰 包含：Kutools for Excel／Kutools for Outlook／Kutools for Word／Office Tab Pro／Kutools for PowerPoint

關於此套件 ⬇ 下載套件 💳 購買套件