Hvordan batchlagre alle vedlegg i en Outlook-oppgave til en Windows-mappe

Hvis en Outlook-oppgave inneholder mange vedlegg, for å trekke ut og lagre dem i en lokal mappe, må du generelt lagre dem én etter én manuelt. Likevel, i denne artikkelen vil vi introdusere en metode for å batchlagre alle vedlegg på én gang.

Noen ganger kan du få en oppgave tildelt fra noen andre. Og denne oppgaven kan inneholde flere viktige vedlegg i kroppen. I møte med en slik oppgave, må du kanskje trekke ut og lagre disse vedleggene i en Windows-mappe. Likevel, i motsetning til e-post, kan du ikke lagre dem i grupper som standard. Outlook lar deg bare lagre en etter en. Det er klart at det blir for kjedelig hvis det er for mange vedlegg. Derfor vil vi her introdusere en måte å la deg utføre denne oppgaven i bulk.

Batch-lagre alle vedlegg i en oppgave i en Windows-mappe

1. Start Outlook-applikasjonen helt i begynnelsen.
2. Deretter utløser du Outlook VBA-editor med referanse til "Hvordan kjøre VBA-kode i Outlook".
3. Deretter kopierer du følgende kode inn i en ubrukt modul.

Sub BatchSaveAttachmentsFromTask()
    Dim objTask As Outlook.TaskItem
    Dim objShell, objWindowsFolder As Object
    Dim strWindowsFolder As String
    Dim objAttachment As Outlook.Attachment
    Dim strFolder, strFilePath As String

    'Get the task
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objTask = ActiveInspector.CurrentItem
           Case olExplorer
                Set objTask = ActiveExplorer.Selection.Item(1)
    End Select

    'Select a Windows folder for saving extracted attachments
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a folder to save Tasks' attachments:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       If objTask.Attachments.Count > 0 Then

          For Each objAttachment In objTask.Attachments
              strFilePath = strWindowsFolder & objAttachment.FileName
              objAttachment.SaveAsFile strFilePath
          Next
       End If

       Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
    End If
End Sub

4. Avslutt deretter VBA-redigeringsprogrammet.
5. Deretter legger du til denne makroen på verktøylinjen eller båndet for hurtigtilgang.
6. Til slutt kan du prøve.

• Først av alt, velg eller åpne en oppgave.
• Klikk deretter på den nylig lagt til makroknappen.
• I popup-dialogboksen velger du en Windows-mappe i henhold til dine behov.
• Etterpå klikker du "OK".
• Med en gang vil Windows-mappen vises, der du kan finne de utpakkede vedleggene.

Håndter forstyrrende Outlook-problemer

Som vi alle vet, er Outlook PST-filen utsatt for ulike feil og korrupsjon. Hvis du for eksempel ofte lukker Outlook på feil måte eller laster ned skadelige filer, kan Outlook PST-filen din bli utilgjengelig en dag. På den tiden kan ikke engang reparasjonsverktøyet for innboksen hjelpe deg. Det du kan ty til er mer erfarent og pålitelig PST-fiks programvare, som DataNumen Outlook Repair. Det kan trekke ut maksimale Outlook-data fra en PST-fil på rask tid.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fastsette SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med