Czasami możesz chcieć szybko znaleźć i dołączyć ostatnio zmodyfikowany plik w określonym folderze systemu Windows do wiadomości e-mail programu Outlook. W takim przypadku możesz skorzystać z metody przedstawionej w tym artykule.
Niektórzy użytkownicy chcą, aby Outlook szybko wyszukiwał i dołączał do wiadomości e-mail ostatnio zmodyfikowany plik w folderze Windows, taki jak ostatnio utworzony, zmieniony lub zapisany plik. Jednak Outlook nie oferuje takiej bezpośredniej i natywnej funkcji. Dlatego w dalszej części zaprezentujemy fragment kodu VBA, który pozwala to z łatwością zrealizować.
Załącz ostatni zmodyfikowany plik w folderze Windows do wiadomości e-mail
- Na samym początku powinieneś uruchomić aplikację Outlook.
- Następnie, po wejściu do głównego okna Outlooka, możesz wcisnąć klawisze „Alt + F11”.
- Następnie pomyślnie uzyskasz dostęp do okna edytora VBA programu Outlook.
- Następnie powinieneś znaleźć i otworzyć moduł, który nie jest używany.
- A następnie skopiuj i wklej następujący kod VBA do tego okna modułu.
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
- Następnie możesz wyjść z bieżącego okna edytora VBA i przystąpić do dodawania nowego makra do paska narzędzi szybkiego dostępu lub wstążki okna wiadomości.
- Później musisz zmienić poziom bezpieczeństwa makr programu Outlook na niski.
- W końcu możesz spróbować.
- Najpierw utwórz i utwórz nową wiadomość e-mail programu Outlook w zwykły sposób.
- Następnie naciśnij przycisk makro na pasku narzędzi szybkiego dostępu, jak na poniższym obrazku:
- Następnie będziesz musiał wybrać źródłowy folder Windows i nacisnąć „OK”.
- Jeśli taki plik znajduje się w wybranym folderze systemu Windows, pojawi się monit podobny do poniższego zrzutu ekranu:
- Kiedy klikniesz „Tak”, ten plik zostanie natychmiast załączony.
Rozwiąż problemy z programem Outlook tak szybko, jak to możliwe
Zawsze, gdy napotkasz jakiekolwiek problemy z programem Outlook, zaleca się ich jak najszybsze rozwiązanie. W tej sytuacji lepiej przygotuj solidną wersję Poprawka programu Outlook narzędzie z wyprzedzeniem, takie jak DataNumen Outlook Repair. Jest w stanie skutecznie naprawiać błędy PST i skutecznie ratować dane programu Outlook.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com