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

Làm cách nào để tự động tải xuống / lưu tệp đính kèm từ Outlook vào một thư mục nhất định?

Nói chung, bạn có thể lưu tất cả các tệp đính kèm của một email bằng cách nhấp vào File đính kèm > Lưu tất cả các tệp đính kèm trong Outlook. Nhưng, nếu bạn cần lưu tất cả các tệp đính kèm từ tất cả các email đã nhận và email đã nhận, bạn có ý kiến ​​gì không? Bài viết này sẽ giới thiệu hai giải pháp để tự động tải xuống tệp đính kèm từ Outlook vào một thư mục nhất định.


Tự động tải xuống tệp đính kèm Outlook vào thư mục với VBA và quy tắc

Phương pháp này sẽ giới thiệu tập lệnh VBA và chạy tập lệnh này với quy tắc để tự động tải xuống và lưu tệp đính kèm Outlook vào một thư mục nhất định. Vui lòng làm như sau:

1. nhấn Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đun, rồi dán tập lệnh VBA bên dưới vào cửa sổ Mô-đun mở mới.

VBA: Tự động lưu tệp đính kèm Outlook vào một thư mục nhất định

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub

Chú thích: Mời bạn tìm hiểu sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-tệp đính kèm \"và thay thế đường dẫn của thư mục đích khi bạn cần.

3. Lưu VBA Script và đóng cửa sổ Microsoft Visual Basic for Applications.

4. Đi đến email xem và nhấp vào Trang chủ > Nội quy > Quản lý Quy tắc & Cảnh báo. Xem ảnh chụp màn hình:

5. Trong hộp thoại Quy tắc và Cảnh báo đang mở, vui lòng nhấp vào Quy tắc mới nút trên Quy tắc e-mail chuyển hướng. Xem ảnh chụp màn hình:

6. Bây giờ trong hộp thoại Trình hướng dẫn Quy tắc, vui lòng nhấp để chọn Áp dụng quy tắc về thư tôi nhận được và nhấp vào Sau .

7. Trong hộp thoại Trình hướng dẫn quy tắc (bạn muốn kiểm tra (các) điều kiện nào?), Vui lòng bỏ chọn bất kỳ tùy chọn nào và nhấp vào Sau cái nút. Và sau đó nhấp vào trong hộp thoại Microsoft Outlook bật lên. Xem ảnh chụp màn hình:

8. Bây giờ trong hộp thoại Rules Wizard (bạn muốn làm gì với thông báo?), Vui lòng: (1) Kiểm tra chạy một tập lệnh Tùy chọn; (2) Nhấp vào văn bản của một kịch bản để mở hộp thoại Chọn tập lệnh, hãy chọn tập lệnh mà chúng tôi đã thêm ở Bước 2 và nhấp vào OK Nút; (3) Nhấn vào Sau .

9. Trong hộp thoại Trình hướng dẫn Quy tắc (Có bất kỳ ngoại lệ nào không?), Vui lòng nhấp vào Sau trực tiếp.

10. Bây giờ trong hộp thoại Trình hướng dẫn quy tắc cuối cùng, vui lòng đặt tên quy tắc trong Bước 1 , chọn các tùy chọn khi bạn cần trong Bước 2 phần và nhấp vào Kết thúc .

11. Đóng hộp thoại Quy tắc và Cảnh báo.

Và bây giờ tất cả các tệp đính kèm được tải xuống từ tài khoản email của bạn và được lưu vào thư mục đích được chỉ định. Và tất cả các tệp đính kèm của email đến cũng sẽ được tự động tải xuống và lưu vào thư mục được chỉ định.


Tự động tải xuống tệp đính kèm Outlook vào thư mục với Kutools cho Outlook

Nếu bạn đã cài đặt Kutools cho Outlook, bạn có thể áp dụng Tự động tách tùy chọn để tự động tải xuống tất cả các tệp đính kèm trong Outlook và dễ dàng lưu vào một thư mục nhất định.

Kutools cho Outlook: Thêm nhiều hơn

100
các công cụ tiện dụng dành cho Outlook, dùng thử miễn phí không giới hạn trong 60 ngày. Tìm hiểu thêm      Dùng thử miễn phí ngay bây giờ

1. Nhấp chuột Kutools > Tự động tách > Kích hoạt tính năng để kích hoạt tính năng Auto Detach.

2. Tiếp tục nhấp vào Kutools > Tự động tách > Trình quản lý tự động tách.

3. Trong hộp thoại Tự động tách phần đính kèm, hãy chọn Tự động tách tất cả các tệp đính kèm đã nhận và sau đó định cấu hình như sau:
(1) Nhấp vào nút duyệt  để chỉ định thư mục đích để lưu các tệp đính kèm tự động tách rời;
(2) Tùy chọn kiểm tra Tạo thư mục con theo kiểu sau rồi chọn một kiểu thư mục con từ danh sách thả xuống bên dưới;
(3) Tùy chọn kiểm tra chỉ tách các tệp đính kèm với phần mở rộng sau tùy chọn, sau đó nhập phần mở rộng tệp đính kèm vào hộp bên dưới;
(4) Tùy chọn kiểm tra biểu tượng Tệp đính kèm vẫn còn trong email tùy chọn.

Chú thích: Nếu bạn cần tự động tách các tệp đính kèm theo người gửi, bạn có thể kiểm tra Tự động tách tệp đính kèm theo quy tắc tùy chọn, nhấp vào Mới , sau đó nhập địa chỉ email của người gửi và chỉ định thư mục đích trong hộp thoại Tự động tách phần đính kèm thứ hai.

4. Nhấn vào Ok để lưu cài đặt.

Từ bây giờ, tất cả các tệp đính kèm (hoặc tệp đính kèm có phần mở rộng tệp được chỉ định hoặc tệp đính kèm từ những người gửi được chỉ định dựa trên cài đặt của bạn) sẽ được tự động lưu.

Chú thích: Bạn có thể áp dụng Kutools cho Outlook's Tách tất cả (Phần đính kèm) tính năng hoặc Lưu tất cả Tính năng (Tệp đính kèm) để nhanh chóng tải xuống / lưu tất cả các tệp đính kèm từ nhiều / tất cả các email đã nhận trong Outlook.


Demo: Tự động tải xuống tệp đính kèm Outlook vào thư mục với Kutools cho Outlook


Mẹo: Trong Video này, Kutools tab được thêm bởi Kutools cho Outlook. Nếu bạn cần nó, xin vui lòng bấm vào ở đây để có 60 ngày dùng thử miễn phí không giới hạn!


Các bài liên quan:


Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho 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.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (108)
Xếp hạng 4.5 trong 5 · xếp hạng 1
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào mọi người, Script không phù hợp với tôi, tôi cần phải làm việc khác. Public Sub SaveAttachmentsToDisk (MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\ MHO-ITD-SM \ Users \ smutharaju \ Desktop \ Ranjith \ Outlook Attachments" Cho mỗi oAttachment trong MItem.Attachments o .SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào SRINIVAS, tôi tin rằng bạn cần thêm ký tự Drive vào đầu liên kết của mình. tức là C: \ users \ test \ etc Hy vọng điều này sẽ hữu ích! Andrew
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Trong VBA, bạn cũng cần thêm dấu gạch chéo ngược cuối cùng ở cuối đường dẫn tệp của mình. Như sau. "D: \ OutlookAttachments\"Hy vọng điều này sẽ khắc phục được bất kỳ sự cố nào. Matt
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
HI

tập lệnh VBA đã hoạt động tuyệt vời đối với tôi ..... một lần - không bao giờ nữa.

Tôi thậm chí đã xóa các tệp trong thư mục và chạy lại và không có gì.

Tôi đang làm gì sai? - quy tắc đang chạy khi tôi nhận được nó để hiển thị cảnh báo cùng một lúc
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Xin chào mọi người, Script không phù hợp với tôi, tôi cần phải làm việc khác. Public Sub SaveAttachmentsToDisk (MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\ MHO-ITD-SM \ Users \ smutharaju \ Desktop \ Ranjith \ Outlook Attachments" Cho mỗi oAttachment trong MItem.Attachments o .SaveAsFile sSaveFolder & oAttachment.DisplayName Next End SubBởi Srinivas[/ quote] Tương tự ở đây, tôi đã thử tất cả các tùy chọn Tôi cảm thấy tập lệnh đang chạy nhưng tôi vẫn không thấy tệp tải trong đường dẫn được chỉ định trên máy tính của mình. có thể giúp tôi một số điều, đánh giá cao nhất
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
script dường như cũng không hoạt động, mọi thứ đều được lập trình tốt, mã, v.v. và không có tệp đính kèm nào được kéo qua khi tôi chạy quy tắc ?? chạy trên office 2007? bất kỳ ý tưởng tại sao ??
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã thử tùy chọn 1 (Tự động tải xuống tệp đính kèm Outlook vào thư mục với VBA và quy tắc) và nó hoạt động hoàn hảo. Tôi có hai truy vấn sau: i) Có cách nào có thể tải xuống cùng một tệp đính kèm ở nhiều đường dẫn chia sẻ bằng cách tạo lại tệp không? ii) Nó cũng lưu tệp đính kèm với con trỏ trên A1 trong mỗi trang tính và sheet1 nên được chọn. Vì vậy, khi bạn mở tệp từ trang đường dẫn nên mở bằng con trỏ trên A1. Cảm ơn trước!! Trân trọng, Bhavesh Luhana
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Quy tắc này hoặc quy tắc tương tự có thể được áp dụng cho phiên bản email trên web của Outlook không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã cố gắng làm theo các bước theo chỉ dẫn. nhưng tôi không nhận được tùy chọn 'chạy tập lệnh' sau khi lưu macro. Tôi đã bật macro, khởi động lại outlook nhiều lần. nhưng nó vẫn tùy chọn vẫn không hoạt động. Hãy giúp tôi. Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đồng ý với AVNIKA. Tôi có cùng một vấn đề: - |
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Tôi đã cố gắng làm theo các bước theo chỉ dẫn. Tôi đã chọn tất cả các tùy chọn ở trên nhưng sau khi chọn tùy chọn "chạy tập lệnh" và chọn liên kết "tập lệnh", tôi không nhận được tập lệnh trong hộp thoại đó. Xin vui lòng giúp đỡ càng sớm càng tốt. Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
tôi đã có vấn đề tương tự. Tôi đã tìm thấy một giải pháp ở đây: https://answers.microsoft.com/en-us/msoffice/forum/msoffice_outlook-mso_win10/the-option-to-run-a-scritp-has-disappeared-from/d289e698-47fa-497a-80fa-633067a0de37#ThreadAnswers<br /> Sau khi tôi cập nhật sổ đăng ký của mình bằng khóa ... nó bắt đầu hoạt động như bình thường. Hãy thử và xem nó có phù hợp với bạn không.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
thx, vẫn hoạt động hôm nay :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều vì các bước được đề cập rõ ràng .... Những bước này đã giúp tôi rất nhiều và khiến công việc của tôi trở nên rất dễ dàng ... THANKYOU ..... !!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này thực sự hiệu quả đối với tôi Public Sub SaveAttachmentsToDisk (MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\ Dck-server-02 \ g \ 00 Uploads \" Cho mỗi oAttachment trong MItem.Attachments oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub Như bạn có thể thấy, tôi đã để tên tệp là tệp đính kèm giống như khi sao chép vào ổ đĩa mạng. Tuy nhiên, nếu nhiều email đi qua có cùng tên tệp cho phần đính kèm, thì tập lệnh sẽ cho phép phần đính kèm gần đây nhất ghi đè phần đính kèm trước đó trong thư mục mạng. Có bản chỉnh sửa nào mà tôi có thể nhập vào tập lệnh sẽ nối thêm "-1" "-2" "-3" v.v ... vào cuối tên tệp đính kèm không? Vì vậy, ví dụ: nếu tệp đính kèm được đặt tên là "kiểm tra" và tôi nhận được nhiều tệp đi kèm, tôi có thể đổi tên chúng thành "kiểm tra-1" "kiểm tra-2" "kiểm tra-3" Mọi trợ giúp sẽ được đánh giá cao RẤT NHIỀU! Cảm ơn bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Jayayah. Hãy thử kiểm tra tệp trước khi lưu. Dim filepath As String filepath = Dir (sSaveFolder & oAttachment.DisplayName) If filepath = "" Then oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Else oAttachment.SaveAsFile sSaveFolder & "1-" & oAttachment ... chơi với mã và cho tôi biết bạn tiếp tục như thế nào ..
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có khả năng nào để thay đổi điều này để chỉ các tệp có một số từ nhất định trong tên của chúng được sao chép không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kutools có thể được thiết lập để nó chỉ lưu các tệp đính kèm từ một số email nhất định dựa trên chủ đề không? Và có thể lưu cùng một tệp vào nhiều thư mục từ một email không? Chúng tôi muốn sử dụng điều này để phân phối báo cáo thay vì gửi email.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, cảm ơn rất nhiều công việc này nhưng chỉ một lần, lần sau tệp không được lưu trong đĩa :( Tôi không biết tại sao, có ý kiến ​​gì không? Cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi có cùng một vấn đề (Nó chỉ hoạt động một lần). Bạn có thể giải quyết vấn đề?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Vui lòng kiểm tra xem thư mục đích có tệp đính kèm outlook hay không. Và thông tin thêm về vấn đề này sẽ hữu ích. Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi phải nói rằng tập lệnh tuyệt vời của nó, nó đã giải quyết được 80% công việc của tôi nhưng tôi vẫn gặp một vấn đề. Các tệp đính kèm tôi nhận được có dấu ngày và giờ mới hàng ngày và tôi muốn tự động lưu các tệp đính kèm này nhưng bằng cách xóa dấu ngày / giờ để lần sau nó sẽ thay thế / ghi đè và lưu bản sao mới có cùng tên., Làm không muốn các tệp đính kèm hàng ngày được lưu với ngày mới. thay vào đó, cùng một tệp cần được thay thế tại cùng một vị trí. Bạn có thể vui lòng giúp đỡ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào tất cả, Làm cách nào để thiết lập điều này để tôi có một tập lệnh khác để gửi tệp đến các thư mục khác nhau? Cảm ơn bạn vì bất kỳ sự giúp đỡ nào được cung cấp trước!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Tôi đang thiết lập tập lệnh bạn có ở đầu trang và nó hoạt động OK, tuy nhiên, tôi muốn đặt tên cho tệp đính kèm đang được lưu để nó ghi đè tệp cũ. Tôi cần thêm gì để điều này xảy ra? Cảm ơn David
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào tất cả các chuyên gia, tôi đã cố gắng thiết lập tải xuống tự động như được mô tả ở trên bằng cách sử dụng tập lệnh VBA nhưng không có gì được lưu trong thư mục đích. Tôi đã thử điều này trên Outlook 2007 và Outlook 2010, đồng thời đảm bảo rằng thư mục có tất cả các quyền cần thiết. Nhưng vẫn chưa có tệp đính kèm nào được lưu. có ai có thể giúp tôi trong việc này không? Chúc mừng Stanley
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Trên Outlook 2013, tùy chọn "chạy tập lệnh" không khả dụng, tôi có thể làm bất cứ điều gì khác để lưu tệp đính kèm từ email mà không sử dụng Kutools
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu tùy chọn cho "Chạy tập lệnh" bị thiếu, đó là vì tùy chọn này đã bị chặn theo mặc định kể từ bản cập nhật bảo mật vài tháng trước. Xem ở đây để biết thêm thông tin: https://www.slipstick.com/outlook/rules/outlook-2016-run-a-script-rules/
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tập lệnh hoạt động tốt ... nhưng muốn trích xuất tệp PDF từ một thư mục phụ, không phải từ Hộp thư đến chính. Có cách nào để thay đổi tập lệnh không?
Cảm ơn bạn trước!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Eric
Bên dưới tập lệnh VBA sẽ lưu tất cả các tệp đính kèm PDF từ các thư mục thư. Để lưu từ một thư mục nhất định, bạn có thể chỉ định thư mục khi chạy quy tắc theo cách thủ công.


Public Sub SaveAttachmentsToDisk (EmailItem As Outlook.MailItem)
Dim xAttachment As Outlook.
Làm mờ xDotPos dưới dạng số nguyên
Làm mờ xSavePath dưới dạng chuỗi, xFileType dưới dạng chuỗi
xSavePath = "C: \ Users \ DT168 \ Documents \ outlook-tệp đính kèm \"
Đối với mỗi xAttachment Trong EmailItem.Attachments
xDotPos = InStrRev (xAttachment.DisplayName, ".")
xFileType = Mid (xAttachment.DisplayName, xDotPos, Len (xAttachment.DisplayName) - xDotPos + 1)
Nếu xFileType = ".pdf" thì
xAttachment.SaveAsFile xSavePath & xAttachment.DisplayName
Cuối Nếu
Sau
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Có tập lệnh VBA cho tệp đính kèm CSV không. Tôi hiện có các công việc báo cáo tự động đi vào các thư mục được đặt tên trong triển vọng, bây giờ tôi muốn các tệp đó trong các thư mục tự giải nén và đi vào các thư mục tương ứng trên màn hình của tôi. Hy vọng điều này có ý nghĩa. Hãy giúp tôi! Tôi rất mới với VBA.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thực hiện tất cả các tập lệnh để tải xuống tệp đính kèm từ thư outlook và tập lệnh của tôi hoạt động tốt khi tôi chạy nó theo cách thủ công. Tôi muốn tự động hóa quy trình bằng cách sử dụng tùy chọn Quy tắc. Nhưng tôi không thể thấy macro của mình trong cửa sổ Trình hướng dẫn quy tắc. Tôi cũng đã bật tùy chọn bên dưới trong sổ đăng ký
HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 16.0 \ Outlook \ Security
DWORD: EnableUnsafeClientMailRules
Giá trị: 1

Nhưng tôi vẫn không thể thấy macro của mình trong danh sách Trình hướng dẫn quy tắc. Danh sách trình hướng dẫn quy tắc của tôi trống nhưng tôi đã tạo macro và nó hoạt động theo cách thủ công tốt. Tôi phải sử dụng macro trong trình hướng dẫn Quy tắc của mình để tự động hóa quy trình. Xin hãy giúp tôi nếu bạn có bất kỳ ý tưởng nào!
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL