Dacă o sarcină Outlook conține multe atașamente, pentru a le extrage și a salva într-un folder local, în general, trebuie să le salvați unul câte unul manual. Cu toate acestea, în acest articol, vom introduce o metodă de salvare în loturi a tuturor atașamentelor dintr-o singură mișcare.
Uneori, este posibil să primiți o sarcină atribuită de la altcineva. Și această sarcină poate conține mai multe atașamente importante în corpul său. În fața unei astfel de sarcini, poate fi necesar să extrageți și să salvați aceste atașamente într-un folder Windows. Cu toate acestea, spre deosebire de e-mail, nu le puteți salva în loturi în mod implicit. Outlook vă permite doar să salvați unul câte unul. Evident, va fi prea plictisitor dacă există prea multe atașamente. Prin urmare, aici vom introduce o modalitate de a vă permite să îndepliniți această sarcină în vrac.
Salvați în lot toate atașamentele dintr-o sarcină într-un folder Windows
- De la bun început, lansați aplicația Outlook.
- Apoi, declanșați editorul Outlook VBA cu referire la „Cum să rulați codul VBA în Outlook".
- Apoi, copiați următorul cod într-un modul neutilizat.
Sub batchSaveatTachmentsFromTask () dim objTask ca Outlook.TaskItem Dim objshell, ObjwindowsFolder ca obiect Dim StrwindowsFolder As String Dim Objattachment ca Outlook. ActiveInspector.CurrentItem Case olExplorer Set objTask = ActiveExplorer.Selection.Item(1) End Selectați „Selectați un folder Windows pentru salvarea atașamentelor extrase Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder a(0,BrowseForFolder folder pentru a salva atașamentele sarcinilor:", 0, "") Dacă nu objWindowsFolder este nimic, atunci strWindowsFolder = objWindowsFolder.self.Path & "\" Dacă objTask.Attachments.Count > 0 Atunci pentru fiecare objAttachment în objTask.Attachments strFilePath = strWindowsFolder & objAttachment.FileName objAttachment.SaveAsFile strFilePath Next End Dacă Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus End If End Sub
- Ulterior, ieșiți din editorul VBA.
- După aceea, adăugați această macrocomandă în Bara de instrumente Acces rapid sau în panglică.
- În cele din urmă, puteți încerca.
- În primul rând, selectați sau deschideți o sarcină.
- Apoi, faceți clic pe butonul macro nou adăugat.
- În caseta de dialog pop-up, selectați un folder Windows conform nevoilor dvs.
- Apoi, faceți clic pe „OK”.
- Deodată, va fi afișat folderul Windows, în care puteți găsi atașamentele extrase.
Faceți față problemelor perturbatoare ale Outlook
După cum știm cu toții, fișierul Outlook PST este susceptibil la diverse erori și corupție. De exemplu, dacă închideți frecvent Outlook-ul necorespunzător sau descărcați fișiere rău intenționate, fișierul dvs. PST Outlook poate deveni inaccesibil într-o zi. În acel moment, nici măcar instrumentul de reparare inbox nu vă poate ajuta. La ce poți apela este mai experimentat și de încredere Remediere PST software, cum ar fi DataNumen Outlook Repair. Poate extrage maximum de date Outlook dintr-un fișier PST în timp rapid.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv stabili SQL Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com
Lasă un comentariu