如何快速打開文件對話框以在Outlook中插入附件？

當我們需要在撰寫郵件時插入附件，通常需要點擊「插入」>「附加檔案」>「瀏覽這台電腦」來打開「插入檔案」對話框，然後找到並插入所需的檔案。在本教程中，我們提供了兩個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. 保持右側框中的腳本被選中，然後點擊「修改」按鈕。在「修改按鈕」對話框中，為腳本分配一個新的按鈕並點擊「確定」。

8. 在 Outlook 選項 對話框中點擊「確定」保存更改。

9. 您在第7步指定的按鈕將被添加到快速訪問工具欄中。在撰寫郵件時，如果要插入附件，只需點擊此按鈕即可打開「瀏覽」資料夾並選擇需要插入的檔案。

---

最佳辦公室生產力工具

最新消息：Kutools for Outlook 推出免費版本！

體驗全新 Kutools for Outlook，超過100項精彩功能！立即下載！

🤖 Kutools AI ：採用先進的AI技術輕鬆處理郵件，包括答覆、摘要、優化、擴充、翻譯及撰寫郵件。

📧 郵件自動化：自動回覆（支援POP及IMAP） / 排程發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發（高級規則） / 自動添加問候語 / 自動分割多收件人郵件為個別郵件 ...

📨 郵件管理：撤回郵件 / 根據主題等方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...

📁 附件專業工具：批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...

🌟 介面魔法：😊更多精美與酷炫表情符號 /重要郵件來臨時提醒 / 最小化 Outlook 而非關閉 ...

👍 一鍵便利：帶附件全部答復 / 防詐騙郵件 / 🕘顯示發件人時區 ...

👩🏼‍🤝‍👩🏻 聯絡人與日曆：從選中郵件批量添加聯絡人 / 分割聯絡人組為個別組 / 移除生日提醒 ...

以您偏好的語言使用 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

套件介紹 ⬇下載套件 💳 購買套件