Nhiều người dùng hy vọng rằng Outlook có thể tự động tìm kiếm các từ cụ thể trong tên tệp đính kèm, sau đó lưu tệp đính kèm cụ thể vào một thư mục cục bộ trên máy tính của họ. Bài viết này sẽ hướng dẫn bạn cách thực hiện điều đó với Outlook VBA.
Trong công việc hàng ngày của tôi, nếu các tệp đính kèm trong email nhận được không quan trọng lắm, tôi không muốn lưu chúng vào đĩa cục bộ của mình mà chỉ đọc chúng trực tiếp trong Outlook. Nhưng nếu những file đính kèm quan trọng như quy định nhân sự, báo cáo công việc hàng tháng thì tôi sẽ lưu vào một thư mục cụ thể trên máy tính. Trong trường hợp như vậy, tôi muốn định cấu hình Outlook để tự động lưu các tệp đính kèm email có tên chứa các từ cụ thể vào một thư mục nhất định. Vì vậy, tôi tìm ra một phương pháp nhanh chóng để hiện thực hóa nó bằng Outlook VBA. Dưới đây là các mã và các bước VBA phức tạp:
Tự động lưu tệp đính kèm email cụ thể
- Trước tiên, bạn nên khởi chạy Outlook và chuyển đến tab “Nhà phát triển”.
- Sau đó, nhấp vào nút “Visual Basic” trong nhóm “Code”.
- Sau đó, trong cửa sổ “Visual Basic”, bạn nên mở dự án “ThisOutlookSession” và sao chép các mã sau vào đó.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olItems_ItemAdd(ByVal Item As Object)
Dim NewMail As Outlook.MailItem
Dim Atts As Attachments
Dim Att As Attachment
Dim strPath As String
Dim strName As String
If Item.Class = olMail Then
Set NewMail = Item
End If
Set Atts = Item.Attachments
If Atts.Count > 0 Then
For Each Att In Atts
'Replace "test" with what you want to look for in attachment name
If InStr(LCase(Att.FileName), "test") > 0 Then
'Use your wanted destination folder path to save the attachments
strPath = "C:\Attachments\"
strName = NewMail.Subject & " " & Chr(45) & " " & Att.FileName
Att.SaveAsFile strPath & strName
End If
Next
End If
End Sub
- Sau đó, bạn nên ký mã này.
- Đầu tiên, sử dụng Chứng chỉ số cho Dự án VBA để tạo chứng chỉ.
- Sau đó gán chứng chỉ cho mã này, hiển thị như hình ảnh sau:
- Sau đó, bạn có thể thoát khỏi cửa sổ “Visual Basic” hiện tại và nhấp vào nút “Cài đặt macro” trong nhóm “Mã” trong tab “Nhà phát triển”.
- Từ giờ trở đi, Outlook sẽ tự động lưu các tệp đính kèm có tên chứa các từ cụ thể vào thư mục cục bộ được chỉ định của bạn.
Khôi phục từ Outlook bị hỏng nghiêm trọng
Mặc dù có nhiều chức năng nhưng Outlook vẫn dễ bị hỏng. Vì vậy, bạn nên theo dõi tất cả các vấn đề có thể xảy ra với Outlook của mình, chẳng hạn như Lỗi thư PST, Outlook không phản hồi, v.v. Khi gặp lỗi, bạn có thể sử dụng công cụ sửa chữa tích hợp trong Outlook, ScanPST.exe để sửa chúng. Nếu thất bại, hãy nhờ đến một công cụ mạnh mẽ hơn.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa SQL Server vấn đề về tập tin mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm