Kako grupno sačuvati sve priloge u Outlook zadatku u Windows folder

Ako Outlook zadatak sadrži mnogo priloga, da biste ih izdvojili i spremili u lokalnu mapu, općenito ih morate ručno spremiti jedan po jedan. Ipak, u ovom članku ćemo predstaviti metodu za grupno spremanje svih priloga u jednom potezu.

Ponekad možete dobiti zadatak koji vam je dodijelio neko drugi. I ovaj zadatak može sadržavati nekoliko važnih dodataka u svom tijelu. Suočeni s takvim zadatkom, možda ćete morati izdvojiti i spremiti ove priloge u Windows folder. Ipak, za razliku od e-pošte, ne možete ih po defaultu spremiti u serijama. Outlook vam omogućava samo jedno po jedno spremanje. Očigledno je da će biti previše zamorno ako ima previše priloga. Stoga ćemo ovdje predstaviti način da vam omogućimo da ovaj zadatak izvršite u velikom broju.

Grupno sačuvajte sve priloge u zadatku u Windows folder

1. Na samom početku pokrenite Outlook aplikaciju.
2. Zatim pokrenite Outlook VBA editor s referencom na “Kako pokrenuti VBA kod u vašem Outlooku".
3. Zatim kopirajte sljedeći kod u neiskorišteni 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. Nakon toga, izađite iz VBA editora.
5. Nakon toga, dodajte ovaj makro na alatnu traku ili traku za brzi pristup.
6. Na kraju, možete probati.

• Prvo odaberite ili otvorite zadatak.
• Zatim kliknite na novo dodano dugme makroa.
• U iskačućem dijaloškom okviru odaberite Windows folder prema vašim potrebama.
• Nakon toga kliknite na “OK”.
• Odjednom će se prikazati Windows folder u kojem možete pronaći izvučene priloge.

Nosite se uznemirujućih problema s Outlookom

Kao što svi znamo, Outlook PST datoteka je podložna raznim greškama i korupciji. Na primjer, ako često nepropisno zatvarate Outlook ili preuzimate zlonamjerne datoteke, vaša Outlook PST datoteka jednog dana može postati nedostupna. U tom trenutku vam čak ni alat za popravku inboxa ne može pomoći. Ono čemu možete pribjeći je iskusnije i pouzdanije PST fix softver, kao DataNumen Outlook Repair. Može izvući maksimum Outlook podataka iz PST datoteke u kratkom vremenu.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti SQL Server i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com