如何快速開啟檔案對話方塊，以便在 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

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