如何在 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 指定的按钮将被添加到快速访问工具栏。编写邮件时，如需插入附件，只需点击此按钮，即可打开浏览文件夹，轻松选取要插入的文件。

最佳办公效率工具

体验全新 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

关于套件 ⬇ 下载套件 💳 购买套件