2 tapaa erän avaamiseen kaikki Outlook-sähköpostisi liitteet

Kun saat sähköpostin, johon on liitetty useita liitteitä, saatat toisinaan toivoa avaavanne ne kerralla. Tässä artikkelissa tarkastellaan tätä ongelmaa ja esitellään sinulle kaksi lähestymistapaa sen saamiseksi.

Olet varmasti saanut koskaan sellaisen sähköpostin, joka sisältää useita liitteitä. Yhden liitteen avaaminen on melko helppoa kaksoisnapsauttamalla sitä. Mutta jos haluat avata kaikki liitteet nopeasti erissä, kuinka voit saada sen? On selvää, että Outlook ei tarjoa meille tällaista ominaisuutta. Siksi sinun on etsittävä muita keinoja. Seuraavassa on kaksi vinkkiä.

Tapa 1: Erä Avaa kaikki liitteet Tallenna kaikki liitteet -toiminnolla

Jos liitteet ovat samaa tiedostotyyppiä, voit käyttää tätä menetelmää:

1. Aloita valitsemalla sähköposti.
2. Sitten korosta yksi liitetiedosto lukuruudussa.
3. Seuraavaksi näkyvässä "Liitteet" -nauhassa voit etsiä ja napsauttaa "Tallenna kaikki liitteet" -painiketta.
4. Napsauta sitten ponnahdusikkunassa "OK".
5. Valitse seuraavasta "Tallenna kaikki liitteet" -valintaikkunasta kohdekansio niiden tallentamiseksi ja napsauta "OK".
6. Lopuksi voit avata valitun kansion.

• Paina “Ctrl + A” valitaksesi kaikki tallennetut liitteet.
• Napsauta sitten niitä hiiren kakkospainikkeella.
• Napsauttamalla hiiren kakkospainikkeella valikkoa voit valita "Avaa" -vaihtoehdon.

Yllä oleva menetelmä soveltuu vain tapauksiin, joissa kaikki liitteet ovat samassa tiedostotyypissä. Mutta jos näin ei ole, voit käyttää seuraavia keinoja.

Tapa 2: Erä Avaa kaikki liitteet Outlook VBA: n kautta

Menetelmä toimii tehokkaasti, jos liitteet ovat yhteisiä tiedostotyyppejä - “.docx”, “.doc”, “.txt”, “.xlsx”, “xls”, “.jpg”, “.png”, “jpeg ”.

1. Paina ensinnäkin ”Alt + F11” -näppäimiä.
2. Sitten pääset VBA-editorin ikkunaan.
3. Nyt sinun on avattava moduuli, jota ei käytetä.
4. Kopioi ja liitä seuraavat VBA-koodit sitten siihen.

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. Tämän jälkeen voit sulkea VBA-editorin ja lisätä makron Pikatyökaluriville.
6. Lopuksi voit kokeilla.

• Valitse ensin sähköposti.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Heti kaikki valitun sähköpostin liitteet avataan erissä, kuten seuraava kuvakaappaus:

Suojaa PST-tietosi tehokkaasti

Koska Outlook PST on alttiina useille tekijöille, sinun on tehtävä paljon ponnisteluja estääkseen sen korruptio. Muuten, kun PST vioittuu, korjaa PST tulee olemaan huomattavan työläs tehtävä. Scanpst.exe ei auta tällaisessa tapauksessa. Joten ainoa keino on käyttää voimakasta ulkoista työkalua, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien vaurioitunut mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com