Mỗi sáng tôi nhận được một email chứa 3 tệp:
"Daily MILH Checks e.xls"
"Daily Unit Linked .pdf"
"Daily Unit Linked.xls"
Đó là 2x .xls và PDF. Tên tệp không bao giờ thay đổi.
Các email đến từ "sender@hotmail.com"
dòng chủ đề trôi chảy:
"IA083A - (Date: May 23, 2016)"
Tôi tạo ra một quy tắc mà chạy một macro mỗi khi một email được nhận từ "sender@hotmail.com"
với "IA083A"
trong dòng chủ đề.
Tôi biết mã được đăng ở đây là điểm khởi đầu cho những gì tôi cần.
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
Ở trên không phân biệt giữa các tập tin khác nhau. Mỗi trong số 3 tệp của tôi cần được lưu vào một vị trí thư mục riêng.
Ở trên đổi tên tập tin "yyyy-mm-dd" trước khi lưu. Tôi muốn nó giữ lại một phần tên của tệp và thêm ngày ở cuối. ví dụ. "Báo cáo kiểm tra 23-05-2016"