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

當我們需要在撰寫郵件中插入附件時，通常我們需要點擊插入 > 附加文件 > 瀏覽這台電腦，打開插入文件對話框，然後找到並插入我們需要的文件。 在本教程中，我們提供了兩個 VBA 代碼，幫助您一鍵輕鬆打開“插入文件”對話框。

---

用VBA快速打開文件對話框插入附件

下面的VBA代碼可以實現：

VBA 代碼 1：打開計算機中的默認 Documents 文件夾
VBA代碼2：打開電腦中的指定文件夾

請按照以下步驟完成。

1.啟動Outlook，按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口中，單擊 工具 > 參考， 然後檢查 Microsoft腳本運行時 盒子裡 參考 - 項目1 對話框。

3。 點擊 插入 > 模塊。 然後將以下 VBA 代碼之一複製到 模塊 窗口。

VBA 代碼 1：打開計算機中的默認 Documents 文件夾

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。 按 其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

現在您需要一個按鈕來運行宏。

5。 點擊 首頁 > 新郵件 創建新電子郵件。 在消息窗口中，單擊 自定義快速訪問工具欄 > 更多命令.

6。 在裡面 Outlook選項 對話框，您需要配置如下。

7. 保持選中右側框中的腳本，然後單擊 修改 按鈕。 在裡面 修改按鈕 對話框，為腳本分配一個新按鈕，然後單擊 OK.

8。 點擊 OK 在 Outlook選項 對話框以保存更改。

9. 然後將您在步驟 7 中指定的按鈕添加到 快速訪問工具欄. 撰寫電子郵件時，如果要插入附件，只需單擊此按鈕即可打開 瀏覽 文件夾並選擇您需要插入的文件。