Note: The other languages of the website are Google-translated. Back to English

如何快速打開文件對話框以在 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。 點擊 OKOutlook選項 對話框以保存更改。

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


Kutools for Outlook-為Outlook帶來100個高級功能,並使工作更加輕鬆!

  • 自動CC / BCC 根據規則發送電子郵件; 自動前進 自定義多封電子郵件; 自動回复 沒有交換服務器,還有更多自動功能...
  • BCC警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒,還有更多提醒功能...
  • 在郵件對話中回复(全部)帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,保存全部...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明,更快和更好。
拍攝kutools前景kutools選項卡1180x121
拍攝kutools前景kutools加標籤1180x121
 
按評論排序
留言 (0)
還沒有評分。 成為第一位評論!
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點