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

如何快速打開文件對話框以在 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

筆記：

1) VBA 代碼 1 有助於在您的計算機中打開默認的 Documents 文件夾。

2）在VBA代碼2中，請將下面一行中的文件夾路徑更改為您需要的文件夾路徑。
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\保存附件\"
然後每次運行此代碼時都會打開指定的文件夾。

4。按其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

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

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