Cách tự động lưu tất cả tệp đính kèm từ người gửi trong một miền cụ thể thông qua Outlook VBA

Nếu bạn muốn để Outlook tự động lưu tất cả tệp đính kèm từ những người gửi có địa chỉ email nằm trong một miền cụ thể, bạn có thể đọc bài viết này. Sau đây chúng tôi sẽ giới thiệu cho bạn một phương pháp nhanh chóng.

Có lẽ tất cả nhân viên trong công ty của bạn đều sử dụng các địa chỉ email có cùng tên miền. Vì bạn thường xuyên gửi email có nhiều tệp đính kèm khác nhau cho nhau nên bạn có thể muốn Outlook tự động lưu tệp đính kèm từ những email đó. Trong trường hợp này, Outlook sẽ được yêu cầu tự động kiểm tra miền người gửi email và tự động lưu tệp đính kèm. Bây giờ, trong phần tiếp theo, chúng tôi sẽ chia sẻ một đoạn mã VBA có thể nhận ra nó một cách dễ dàng.

Tự động lưu tất cả tệp đính kèm từ người gửi trong một miền cụ thể

1. Đầu tiên, hãy chạy trình soạn thảo Outlook VBA theo “Cách chạy mã VBA trong Outlook của bạn".
2. Sau đó, đặt đoạn mã sau vào một mô-đun không sử dụng.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
   Set objInboxItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
   Dim objMail As Outlook.MailItem
   Dim strSenderAddress As String
   Dim strSenderDomain As String
   Dim objAttachment As Attachment
   Dim strFolderPath As String
   Dim strFileName As String

   If Item.Class = olMail Then
      Set objMail = Item

      'Get sender domain
      strSenderAddress = objMail.SenderEmailAddress
      strSenderDomain = Right(strSenderAddress, Len(strSenderAddress) - InStr(strSenderAddress, "@"))

      'Change to the specific domain as per your needs
      If strSenderDomain = "datanumen.net" Then
         If objMail.Attachments.Count > 0 Then
            For Each objAttachment In objMail.Attachments
                'Change the folder path where you want to save attachments
                strFolderPath = "E:\Attachments\"
                strFileName = objMail.Subject & " " & Chr(45) & " " & objAttachment.FileName
                objAttachment.SaveAsFile strFolderPath & strFileName
            Next
         End If
      End If
   End If
End Sub

3. Sau đó, khởi động lại Outlook để kích hoạt macro này.
4. Kể từ đó, mỗi khi có email đến hộp thư đến của bạn, Outlook sẽ tự động kiểm tra miền người gửi. Nếu nó giống với miền được xác định trước và chứa tệp đính kèm, Outlook sẽ tự động lưu tệp đính kèm vào thư mục cục bộ cụ thể.

Không bao giờ mở tệp đính kèm từ người gửi trong miền không xác định

Bạn không nên tin tưởng và tải xuống các tệp đính kèm từ những tệp thuộc miền không xác định. Đó là bởi vì chúng có thể chứa phần mềm độc hại hoặc vi-rút. Khi bạn mở chúng, tệp Outlook có thể bị tấn công. Nói cách khác, bạn có thể bị hỏng tệp Outlook. Lúc đó, thậm chí scanpst không có khả năng hỗ trợ bạn. Giải pháp duy nhất của bạn là một công cụ mạnh hơn hoặc dịch vụ khôi phục PST chuyên dụng.

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 mdf bị hỏng 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