Ako hromadne ukladať všetky prílohy v úlohe programu Outlook do priečinka Windows

Ak úloha programu Outlook obsahuje veľa príloh, je možné ich extrahovať a uložiť do lokálneho priečinka vo všeobecnosti musíte po jednom manuálne. V tomto článku ešte predstavíme metódu hromadného ukladania všetkých príloh naraz.

Občas môžete dostať úlohu zadanú od niekoho iného. A táto úloha môže obsahovať niekoľko dôležitých príloh v tele. Pred takouto úlohou budete možno musieť tieto prílohy extrahovať a uložiť do priečinka Windows. Na rozdiel od e-mailu ich však predvolene nemôžete ukladať v dávkach. Program Outlook umožňuje ukladať iba jeden po druhom. Je zrejmé, že bude príliš zdĺhavé, ak bude príloh príliš veľa. Preto tu predstavíme spôsob, ktorý vám umožní hromadne splniť túto úlohu.

Dávkové uloženie všetkých príloh k úlohe do priečinka Windows

1. Hneď na začiatku spustite aplikáciu Outlook.
2. Potom spustite editor Outlook VBA s odkazom na „Ako spustiť kód VBA v programe Outlook".
3. Ďalej skopírujte nasledujúci kód do nepoužívaného modulu.

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. Následne ukončite editor VBA.
5. Potom pridajte toto makro na panel nástrojov alebo pásku s nástrojmi Rýchly prístup.
6. Nakoniec to môžete vyskúšať.

• Najskôr vyberte alebo otvorte úlohu.
• Potom kliknite na tlačidlo novo pridaného makra.
• V rozbaľovacom dialógovom okne vyberte priečinok Windows podľa svojich potrieb.
• Potom kliknite na „OK“.
• Hneď sa zobrazí priečinok Windows, v ktorom nájdete rozbalené prílohy.

Vyrovnajte sa s rušivými problémami s programom Outlook

Ako všetci vieme, súbor Outlook PST je citlivý na rôzne chyby a poškodenia. Napríklad ak často nesprávne zavriete program Outlook alebo stiahnete škodlivé súbory, váš súbor PST programu Outlook sa jedného dňa môže stať neprístupným. V tom čase vám nedokáže pomôcť ani nástroj na opravu doručenej pošty. K čomu sa môžete uchýliť, je skúsenejšie a dôveryhodnejšie Oprava PST softvér, ako DataNumen Outlook Repair. Môže rýchlo extrahovať maximum údajov programu Outlook zo súboru PST.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane fixné SQL Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S