跳到主要內容

如何快速打開文件對話框以在 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。 點擊 首頁 > 新郵件 創建新電子郵件。 在消息窗口中,單擊 自定義快速訪問工具欄 > 更多命令.

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

6.1)在 從中選擇命令 下拉列表,選擇 宏;
6.2)選擇上一步添加的宏;
6.3)點擊 加入 按鈕將此宏添加到 自定義快速訪問工具欄 框。

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

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

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


最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

📧 電子郵件自動化: 外出(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索! 按此處了解更多。

閱讀更多       免費下載      購買
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations