Làm thế nào để Mở nhanh Hộp thoại Tệp Để Chèn Phần đính kèm Trong Outlook?

Khi cần chèn tệp đính kèm trong email soạn thảo, thông thường chúng ta cần nhấp vào Chèn> Đính kèm tệp> Duyệt PC này để mở hộp thoại Chèn tệp, sau đó tìm và chèn tệp chúng ta cần. Trong hướng dẫn này, chúng tôi cung cấp hai mã VBA để giúp bạn mở hộp thoại Chèn tệp dễ dàng chỉ với một cú nhấp chuột.

Mở nhanh hộp thoại tệp để chèn tệp đính kèm với VBA

Các mã VBA sau có thể đạt được:

Mã VBA 1: Mở thư mục Tài liệu mặc định trong máy tính của bạn
Mã VBA 2: Mở thư mục được chỉ định trong máy tính của bạn

Hãy làm như sau để hoàn thành.

1. Khởi chạy Outlook của bạn, nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp CÔNG CỤ > Người giới thiệu, sau đó kiểm tra Thời gian chạy tập lệnh của Microsoft hộp trong Tài liệu tham khảo - Project1 hộp thoại.

3. nhấp chuột Chèn > Module. Sau đó, sao chép một trong các mã VBA sau vào Mô-đun cửa sổ.

Mã VBA 1: Mở thư mục Tài liệu mặc định trong máy tính của bạn

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

Mã VBA 2: Mở thư mục được chỉ định trong máy tính của bạn

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

Ghi chú:

4. Nhấn nút Khác + Q chìa khóa để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Bây giờ bạn cần một nút để chạy macro.

5. nhấp chuột Trang chủ > Email mới để tạo một email mới. Trong cửa sổ tin nhắn, hãy nhấp vào Tùy chỉnh thanh công cụ truy cập nhanh > Các lệnh khác.

6. bên trong Tùy chọn Outlook hộp thoại, bạn cần cấu hình như sau.

7. Giữ tập lệnh được chọn trong hộp bên phải, sau đó nhấp vào Sửa đổi nút. bên trong Nút sửa đổi hộp thoại, gán một nút mới cho tập lệnh và nhấp vào OK.

8. nhấp chuột OK trong Tùy chọn Outlook hộp thoại để lưu các thay đổi.

9. Nút bạn đã chỉ định trong bước 7 sau đó được thêm vào Thanh công cụ truy cập nhanh. Khi soạn email, nếu bạn muốn chèn một tệp đính kèm, bạn chỉ cần nhấp vào nút này để mở Xem và chọn tệp bạn cần chèn.

---

Kutools for Outlook - Mang đến 100 Tính năng Nâng cao cho Outlook và Giúp Công việc Dễ dàng hơn Nhiều!

• Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
• Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
• Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
• Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
• Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.

Đọc thêm ... Tải ngay...