2 Metode de a deschide în lot toate atașamentele din e-mailul Outlook

Când primiți un e-mail care este atașat cu mai multe atașamente, uneori, puteți spera să le deschideți în bloc. Acest articol va analiza această problemă și vă va prezenta 2 abordări pentru a o obține.

Trebuie să fi primit vreodată un astfel de e-mail care conține mai multe atașamente. Este destul de ușor să deschideți unul dintre atașamente doar făcând dublu clic pe el. Dar dacă doriți să deschideți rapid toate atașamentele în lot, cum le puteți obține? Este evident că Outlook nu ne oferă o astfel de caracteristică. Prin urmare, trebuie să căutați alte mijloace. Următoarele sunt 2 sfaturi.

Metoda 1: Deschideți în lot toate atașamentele prin Salvare toate atașamentele

Dacă atașamentele sunt de același tip de fișier, puteți utiliza această metodă:

1. Pentru început, selectați o adresă de e-mail.
2. Apoi prezentați un atașament din panoul de citire.
3. Apoi, în panglica vizibilă „Atașamente”, puteți găsi și faceți clic pe butonul „Salvați toate atașamentele”.
4. Ulterior, în fereastra de dialog pop-up mică, faceți clic pe „OK”.
5. În următoarea casetă de dialog „Salvați toate atașamentele”, selectați un folder de destinație pentru salvarea lor și faceți clic pe „OK”.
6. În cele din urmă, puteți deschide folderul selectat.

• Apăsați „Ctrl + A” pentru a selecta toate atașamentele salvate.
• Apoi faceți clic dreapta pe ele.
• În meniul cu clic dreapta, puteți selecta opțiunea „Deschidere”.

Metoda de mai sus este aplicabilă numai în cazul în care toate atașamentele sunt de același tip. Dar dacă nu, puteți utiliza următoarele metode.

Metoda 2: Deschideți în lot toate atașamentele prin Outlook VBA

Metoda va funcționa eficient dacă atașamentele sunt în tipuri de fișiere comune – „.docx”, „.doc”, „.txt”, „.xlsx”, „xls”, „.jpg”, „.png”, „jpeg”. ”.

1. În primul rând, apăsați butoanele tastei „Alt + F11”.
2. Apoi veți intra în fereastra editorului VBA.
3. Acum trebuie să deschideți un modul care nu este utilizat.
4. Ulterior, copiați și inserați următoarele coduri VBA în el.

Sub OpenAllAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objTempFolder As Object
    Dim strFile As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim objExcelRange As Excel.Range
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objAttachments = objMail.attachments
 
    If objAttachments.Count > 0 Then
       For Each objAttachment In objAttachments
           'Save the attachments to Temp folder
           Set objFileSystem = CreateObject("Scripting.FileSystemObject")
           Set objTempFolder = objFileSystem.GetSpecialFolder(2)
           strFile = objTempFolder.Path & "\" & objAttachment.DisplayName
           objAttachment.SaveAsFile strFile
 
           'Batch open all the attached Word documents and Text Files
           If InStr(LCase(strFile), "docx") > 0 Or InStr(LCase(strFile), "doc") > 0 Or InStr(LCase(strFile), "txt") > 0 Then
              Set objWordApp = CreateObject("Word.Application")
              Set objWordDocument = objWordApp.Documents.Open(strFile)
              objWordDocument.Activate
              Set objWordRange = objWordDocument.Range(0, 0)
              objWordApp.Visible = True
              objWordDocument.ActiveWindow.Visible = True
           End If
 
          'Batch open all the attached Excel workbooks
          If InStr(LCase(strFile), "xlsx") > 0 Or InStr(LCase(strFile), "xls") > 0 Then
             Set objExcelApp = CreateObject("Excel.Application")
             Set objExcelWorkbook = objExcelApp.Workbooks.Open(strFile)
             Set objExcelWorkSheet = objExcelWorkbook.Sheets(1)
             objExcelWorkSheet.Activate
             Set objExcelRange = objExcelWorkSheet.Range("A1")
             objExcelRange.Activate
             objExcelApp.Visible = True
          End If
 
          'Batch open all the attached pictures via Windows image view
          If InStr(LCase(strFile), "jpg") > 0 Or InStr(LCase(strFile), "png") > 0 Or InStr(LCase(strFile), "jpeg") > 0 Then
             Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & strFile
          End If
       Next
    End If
End Sub

5. După aceea, puteți închide editorul VBA și puteți adăuga macrocomanda în bara de instrumente Acces rapid.
6. În sfârșit poți încerca.

• În primul rând, selectați un e-mail.
• Apoi faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Imediat, toate atașamentele din e-mailul selectat vor fi deschise în lot, ca în următoarea captură de ecran:

Protejează-ți în mod eficient datele PST

Deoarece Outlook PST este vulnerabil la diverși factori, ar trebui să depuneți multe eforturi pentru a preveni corupția acestuia. În caz contrar, odată ce PST-ul tău este corupt, să repara PST va fi o sarcină considerabil de grea. Scanpst.exe nu va ajuta într-un astfel de caz. Deci singura ta soluție este să aplici un instrument extern puternic, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv mdf deteriorat și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com