Как да групово запазвате всички прикачени файлове в задача на Outlook в папка на Windows

Ако задача на Outlook съдържа много прикачени файлове, за да ги извлечете и запишете в локална папка, като цяло трябва да ги запазите ръчно един по един. И все пак в тази статия ще въведем метод за групово запазване на всички прикачени файлове с едно движение.

Понякога може да получите задача, възложена от някой друг. И тази задача може да съдържа няколко важни прикачени файла в тялото си. Пред такава задача може да се наложи да извлечете и запазите тези прикачени файлове в папка на Windows. И все пак, за разлика от имейла, по подразбиране не можете да ги запазвате на партиди. Outlook ви позволява да запазвате един по един. Очевидно ще бъде твърде досадно, ако има твърде много прикачени файлове. Следователно тук ще ви представим начин, който да ви позволи да изпълнявате тази задача групово.

Пакетно запазване на всички прикачени файлове в задача в папка на Windows

1. В самото начало стартирайте приложението Outlook.
2. След това задействайте редактора на Outlook VBA с препратка към „Как да стартирате VBA код във вашия Outlook".
3. След това копирайте следния код в неизползван модул.

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. Впоследствие излезте от редактора на VBA.
5. След това добавете този макрос към лентата с инструменти за бърз достъп или лентата.
6. В крайна сметка можете да опитате.

• Първо изберете или отворете задача.
• След това щракнете върху бутона за новодобавен макрос.
• В изскачащия диалогов прозорец изберете папка на Windows според вашите нужди.
• След това щракнете върху „OK“.
• Веднага ще се покаже папката на Windows, в която можете да намерите извлечените прикачени файлове.

Справяне с обезпокоителните проблеми на Outlook

Както всички знаем, Outlook PST файлът е податлив на различни грешки и корупция. Например, ако често затваряте неправилно Outlook или изтегляте злонамерени файлове, вашият PST файл на Outlook може да стане недостъпен един ден. По това време дори инструментът за поправка на входящата поща не може да ви помогне. Това, към което можете да прибегнете, е по-опитно и заслужаващо доверие PST корекция софтуер, като DataNumen Outlook Repair. Той може бързо да извлече максимални данни на Outlook от PST файл.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително фиксира SQL Server и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com