Ако задача на Outlook съдържа много прикачени файлове, за да ги извлечете и запишете в локална папка, като цяло трябва да ги запазите ръчно един по един. И все пак в тази статия ще въведем метод за групово запазване на всички прикачени файлове с едно движение.
Понякога може да получите задача, възложена от някой друг. И тази задача може да съдържа няколко важни прикачени файла в тялото си. Пред такава задача може да се наложи да извлечете и запазите тези прикачени файлове в папка на Windows. И все пак, за разлика от имейла, по подразбиране не можете да ги запазвате на партиди. Outlook ви позволява да запазвате един по един. Очевидно ще бъде твърде досадно, ако има твърде много прикачени файлове. Следователно тук ще ви представим начин, който да ви позволи да изпълнявате тази задача групово.
Пакетно запазване на всички прикачени файлове в задача в папка на Windows
- В самото начало стартирайте приложението Outlook.
- След това задействайте редактора на Outlook VBA с препратка към „Как да стартирате VBA код във вашия Outlook".
- След това копирайте следния код в неизползван модул.
Под BatchSaveAttachmentsFromTask () Dim objTask Както Outlook.TaskItem Дим objShell, objWindowsFolder Като обект Дим strWindowsFolder Както стринга Дим objAttachment Както Outlook.Attachment Дим strFolder, strFilePath Както стринга 'Get задачата Изберете дело Outlook.Application.ActiveWindow.Class дело olInspector Set objTask = ActiveInspector.CurrentItem Case olExplorer Set objTask = ActiveExplorer.Selection.Item (1) End Select 'Избор на папка на Windows за запазване на извлечени прикачени файлове Set objShell = CreateObject ("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder 0, 0, папка за запазване на прикачените файлове на Tasks: ", 0," ") Ако не objWindowsFolder е нищо, тогава strWindowsFolder = objWindowsFolder.self.Path &" \ "Ако objTask.Attachments.Count> XNUMX Тогава за всеки objAttachment В objTask.Attachments strFilePota = strWileFoT & objAttachment.FileName objAttachment.SaveAsFile strFilePath Следващ край Ако Shell "Explorer.exe" & "" & strWindowsFolder, vbNormalFocus End If End Sub
- Впоследствие излезте от редактора на VBA.
- След това добавете този макрос към лентата с инструменти за бърз достъп или лентата.
- В крайна сметка можете да опитате.
- Първо изберете или отворете задача.
- След това щракнете върху бутона за новодобавен макрос.
- В изскачащия диалогов прозорец изберете папка на Windows според вашите нужди.
- След това щракнете върху „OK“.
- Веднага ще се покаже папката на Windows, в която можете да намерите извлечените прикачени файлове.
Справяне с обезпокоителните проблеми на Outlook
Както всички знаем, Outlook PST файлът е податлив на различни грешки и корупция. Например, ако често затваряте неправилно Outlook или изтегляте злонамерени файлове, вашият PST файл на Outlook може да стане недостъпен един ден. По това време дори инструментът за поправка на входящата поща не може да ви помогне. Това, към което можете да прибегнете, е по-опитно и заслужаващо доверие PST корекция софтуер, като DataNumen Outlook Repair. Той може бързо да извлече максимални данни на Outlook от PST файл.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително фиксира SQL Server и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com