Tự động lưu tệp đính kèm từ thư khớp với quy tắc cụ thể

Mỗi sáng tôi nhận được một e-mail từ một người, và nó chứa một tệp đính kèm bảng tính. Tôi đã quản lý để tạo ra một quy tắc triển vọng bắt những email này. Bây giờ, có thể có tệp đính kèm từ mỗi tệp này được lưu tự động vào một thư mục cục bộ, với tên tệp YYYY-MM-DD.xls không?

Tệp đính kèm trong thư có tên tệp được tạo ngẫu nhiên, vì vậy nó cần lấy ngày khi thư được gửi để chọn tên tệp. Lưu ý: đây là trên máy tính xách tay của tôi, vì vậy có khả năng e-mail được gửi vào một ngày không phải là ngày tôi nhận được (chẳng hạn như khi nó tắt trong một ngày), vì vậy sử dụng "ngày hôm nay" là không phải là một lựa chọn khả thi

CHỈNH SỬA: sử dụng Windows 7 với Outlook 2013

Để làm những gì bạn muốn, bạn sẽ cần trộn một ít VBA và Rules lại với nhau. Không chắc chắn bạn đang sử dụng phiên bản Outlook nào, vì vậy không có gì đảm bảo ở đây. Điều này đã được thử nghiệm trên Outlook 2010.

Bài viết này sẽ giúp bạn thiết lập mọi thứ - Quy tắc tự động lưu tệp đính kèm trong Outlook .

Mã dưới đây được sửa đổi cụ thể để bạn lưu tệp với định dạng tên của yyyy-mm-dd.

Public Sub SaveToDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat

dateFormat = Format(Now, "yyyy-mm-dd")

'Change this path to the your folder location
saveFolder = "c:\temp\"

objAtt.SaveAsFile saveFolder & "\" & dateFormat & ".xls"

Set objAtt = Nothing

End Sub

Khi bạn thiết lập quy tắc này để chạy tập lệnh này, nó sẽ lưu mọi tệp đính kèm từ người này mỗi khi nhận được tập lệnh này (và cung cấp cho nó .xls sự mở rộng). Nếu bạn muốn thay đổi điều đó, bạn sẽ phải sửa đổi quy tắc của mình hoặc tắt nó đi.