Bỏ qua nội dung chính

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ú:

1) Mã VBA 1 giúp mở thư mục Tài liệu mặc định trong máy tính của bạn.
2) Trong mã VBA 2, vui lòng thay đổi đường dẫn thư mục ở dòng sau thành đường dẫn thư mục bạn cần.
xFileDlg.InitialFileName = "C: \ Users \ Win10x64Test \ Desktop \ lưu tệp đính kèm \"
Sau đó, thư mục được chỉ định sẽ được mở mỗi khi bạn chạy mã này.

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.

6.1) Trong Chọn lệnh từ danh sách thả xuống, chọn Macro;
6.2) Chọn macro bạn đã thêm ở bước trước;
6.3) Nhấp vào Thêm để thêm macro này vào Tùy chỉnh thanh công cụ truy cập nhanh cái hộp.

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.


Công cụ năng suất văn phòng tốt nhất

Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP)  /  Lên lịch gửi email  /  Tự động CC/BCC theo quy định khi gửi Email  /  Tự động chuyển tiếp (Quy tắc nâng cao)   /  Tự động thêm lời chào   /  Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !

📨 Quản lý email: Dễ dàng thu hồi email  /  Chặn email lừa đảo theo chủ đề và những người khác  /  Xóa các email trùng lặp  /  Tìm Kiếm Nâng Cao  /  Hợp nhất các thư mục hữu ích. Cảm ơn !

📁 Tệp đính kèm chuyên nghiệpLưu hàng loạt  /  Tách hàng loạt  /  Nén hàng loạt  /  Tự động lưu   /  Tự động tách  /  Tự động nén hữu ích. Cảm ơn !

🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn   /  Tăng năng suất Outlook của bạn với chế độ xem theo thẻ  /  Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !

👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến  /   Email chống lừa đảo  /  🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !

👩🏼‍🤝‍👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn  /  Chia nhóm liên hệ thành các nhóm riêng lẻ  /  Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !

Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.

 

 

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