Kako skupno spremiti sve privitke u Outlook zadatku u Windows mapu

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

Ponekad možete dobiti zadatak koji vam je dodijelio netko drugi. I ovaj zadatak može sadržavati nekoliko važnih privitaka u svom tijelu. Suočeni s takvim zadatkom, možda ćete morati izdvojiti i spremiti te privitke u Windows mapu. Ipak, za razliku od e-pošte, prema zadanim postavkama ne možete ih spremati u serijama. Outlook vam omogućuje samo spremanje jednog po jednog. Očito će biti previše zamorno ako ima previše priloga. Stoga ćemo ovdje predstaviti način koji vam omogućuje da izvršite ovaj zadatak u grupi.

Skupno spremanje svih privitaka u zadatku u Windows mapu

1. Na samom početku pokrenite Outlook aplikaciju.
2. Zatim pokrenite Outlook VBA uređivač 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 uređivača.
5. Nakon toga dodajte ovu makronaredbu na alatnu traku za brzi pristup ili vrpcu.
6. Naposljetku, možete pokušati.

• Najprije odaberite ili otvorite zadatak.
• Zatim kliknite novododani gumb makronaredbe.
• U skočnom dijaloškom okviru odaberite Windows mapu prema svojim potrebama.
• Nakon toga kliknite na “OK”.
• Odmah će se prikazati Windows mapa u kojoj možete pronaći izdvojene privitke.

Nosite se s uznemirujućim problemima s Outlookom

Kao što svi znamo, Outlook PST datoteka je osjetljiva na razne pogreške i oštećenja. Na primjer, ako često nepropisno zatvarate Outlook ili preuzimate zlonamjerne datoteke, vaša PST datoteka programa Outlook jednog dana može postati nedostupna. Tada vam čak ni alat za popravak pristigle pošte ne može pomoći. Ono čemu možete pribjeći je iskusnije i pouzdanije PST popravak softver, npr DataNumen Outlook Repair. Može izvući najviše Outlook podataka iz PST datoteke u kratkom vremenu.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti SQL Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com