Đôi khi, bạn có thể muốn nhanh chóng tìm và đính kèm tệp đã sửa đổi lần cuối trong một thư mục Windows cụ thể vào email Outlook. Trong trường hợp này, bạn có thể sử dụng phương pháp được giới thiệu trong bài viết này.
Một số người dùng muốn Outlook nhanh chóng tìm và thêm tệp được sửa đổi gần đây nhất trong một thư mục Windows vào email, chẳng hạn như tệp được tạo, thay đổi hoặc lưu gần đây nhất. Tuy nhiên, Outlook không cung cấp tính năng trực tiếp và mặc định như vậy. Do đó, trong phần tiếp theo, chúng ta sẽ trình bày một đoạn mã VBA có thể thực hiện điều này một cách dễ dàng.
Đính kèm tệp được sửa đổi lần cuối trong thư mục Windows vào email
- Ngay từ đầu, bạn nên khởi chạy ứng dụng Outlook của mình.
- Sau đó, sau khi vào cửa sổ chính của Outlook, bạn có thể nhấn các nút phím “Alt + F11”.
- Tiếp theo bạn sẽ truy cập vào cửa sổ soạn thảo Outlook VBA thành công.
- Sau đó, bạn nên tìm và mở một mô-đun không được sử dụng.
- Sau đó sao chép và dán mã VBA sau vào cửa sổ mô-đun này.
Sub AttachLastModifiedSpecificFile()
Dim objShell As Object
Dim objSelectedFolder As Object
Dim objFileSystem As Object
Dim strSourceFolderPath As String
Dim objSourceFolder As Object
Dim objFile As Object
Dim dLastModifiedDate As Date
Dim strLastModifiedFilePath As String
Dim objMail As Outlook.MailItem
On Error GoTo ErrorHandler
'Select a local source folder
Set objShell = CreateObject("Shell.Application")
Set objSelectedFolder = objShell.BrowseForFolder(0, "Select the source folder", 0, "")
strSourceFolderPath = objSelectedFolder.self.Path
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objSourceFolder = objFileSystem.GetFolder(strSourceFolderPath)
If objSourceFolder.Files.Count > 0 Then
For Each objFile In objSourceFolder.Files
'Find the last modified file within "xlsx" file type in the selected Windows folder
If (objFile.DateLastModified > dLastModifiedDate) And (objFileSystem.GetExtensionName(objFile) = "xlsx") Then
'You can add or change criteria, such as
'Left(objFile.Name, 4) = "Test" ---> file whose name begins with "Test"
'(objFile / 1024) / 1024 > 2 --> File exceeds 2 MB
'Note: Use "And" to connect more than one criteria
strLastModifiedFilePath = objFile.Path
dLastModifiedDate = objFile.DateLastModified
End If
Next
If strLastModifiedFilePath <> "" Then
'Confirm attaching it to the current outlook email
strMsg = "The last modified file in the " & Chr(34) & strSourceFolderPath & Chr(34) & " is: " & vbCrLf & vbCrLf & "File: " & strLastModifiedFilePath & vbCrLf & "Date: " & dLastModifiedDate & vbCrLf & vbCrLf & "Do you want to attach it?"
nPrompt = MsgBox(strMsg, vbQuestion + vbYesNo, "Confirm Attaching Last Modified File")
If nPrompt = vbYes Then
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
objMail.Attachments.Add strLastModifiedFilePath
End If
Else
MsgBox "No file in the selected folder can meet your predefined criteria!", vbExclamation + vbOKOnly
End If
Else
MsgBox "No file exists in the selected Windows folder!", vbExclamation + vbOKOnly
End If
ErrorHandler:
Exit Sub
End Sub
- Sau đó, bạn có thể thoát khỏi cửa sổ soạn thảo VBA hiện tại và tiến hành thêm macro mới vào Quick Access Toolbar hoặc ribbon của cửa sổ Message.
- Sau đó, bạn cần thay đổi cấp độ bảo mật macro Outlook của mình thành thấp.
- Cuối cùng bạn có thể có một thử.
- Đầu tiên, tạo và soạn một email Outlook mới như bình thường.
- Sau đó nhấn nút macro trong Thanh công cụ truy cập nhanh, giống như hình bên dưới:
- Tiếp theo, bạn sẽ được yêu cầu chọn một thư mục Windows nguồn và nhấn “OK”.
- Nếu có tệp như vậy trong thư mục Windows đã chọn, bạn sẽ nhận được lời nhắc như ảnh chụp màn hình sau:
- Khi bạn nhấn “Có”, tệp này sẽ được đính kèm ngay lập tức.
Giải quyết các vấn đề về Outlook càng sớm càng tốt
Bất cứ khi nào bạn gặp phải bất kỳ sự cố nào về Outlook, bạn nên giải quyết chúng càng sớm càng tốt. Trong tình huống này, bạn nên chuẩn bị tốt hơn sửa chữa Outlook công cụ trước, chẳng hạn như DataNumen Outlook Repair. Nó có khả năng sửa lỗi PST và cứu dữ liệu Outlook của bạn một cách hiệu quả.
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