Kā ātri pievienot Windows mapē pēdējo modificēto failu Outlook e-pastam

Dažreiz jūs varētu vēlēties ātri atrast un pievienot Outlook e-pastam pēdējo modificēto failu noteiktā Windows mapē. Šajā gadījumā jūs varat izmantot šajā rakstā ieviesto metodi.

Daži lietotāji vēlas ļaut programmai Outlook ātri atrast un pievienot e-pastam pēdējo modificēto failu Windows mapē, piemēram, pēdējo izveidoto, mainīto vai saglabāto failu. Tomēr programma Outlook nepiedāvā šādu tiešu un iebūvētu funkciju. Tāpēc turpmāk mēs parādīsim VBA koda fragmentu, kas to var viegli realizēt.

Pievienojiet Windows mapē pēdējo modificēto failu e-pastam

1. Sākumā jums vajadzētu palaist programmu Outlook.
2. Pēc tam, kad esat nonācis galvenajā Outlook logā, varat nospiest taustiņu pogas “Alt + F11”.
3. Pēc tam jūs veiksmīgi piekļūsit Outlook VBA redaktora logam.
4. Pēc tam jums jāatrod un jāatver modulis, kas netiek izmantots.
5. Pēc tam šajā moduļa logā nokopējiet un ielīmējiet šādu VBA kodu.

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

6. Pēc tam jūs varat iziet no pašreizējā VBA redaktora loga un turpināt pievienot jaunu makro ātrās piekļuves rīkjoslai vai ziņojuma loga lentei.
7. Vēlāk jums jāmaina Outlook makro drošības līmenis uz zemu.
8. Galu galā jūs varat izmēģināt.

• Pirmkārt, izveidojiet un izveidojiet jaunu Outlook e-pastu kā parasti.
• Pēc tam ātrās piekļuves rīkjoslā nospiediet makro pogu, piemēram, zemāk redzamo attēlu:
• Pēc tam jums būs jāizvēlas avota Windows mape un jānospiež “OK”.
• Ja atlasītajā Windows mapē ir šāds fails, jūs saņemsit uzvedni, piemēram, šo ekrānuzņēmumu:
• Nospiežot “Jā”, šis fails tiks pievienots uzreiz.

Atrisiniet Outlook problēmas pēc iespējas ātrāk

Ikreiz, kad rodas kādas Outlook problēmas, ieteicams tās atrisināt pēc iespējas ātrāk. Šajā situācijā labāk sagatavojiet izturīgu Outlook labojums rīks iepriekš, piemēram, DataNumen Outlook Repair. Tas spēj novērst PST kļūdas un efektīvi glābt jūsu Outlook datus.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar