2 Kaedah Membuka Kumpulan Semua Lampiran dalam E-mel Outlook Anda

Apabila anda menerima e-mel yang dilampirkan dengan beberapa lampiran, kadang-kadang, anda mungkin berharap dapat membukanya secara banyak. Artikel ini akan melihat masalah ini dan memperkenalkan kepada anda 2 pendekatan untuk mendapatkannya.

Anda pasti pernah menerima e-mel seperti itu yang mengandungi beberapa lampiran. Cukup mudah untuk membuka salah satu lampiran hanya dengan mengklik dua kali di atasnya. Tetapi jika anda ingin membuka semua lampiran secara cepat, bagaimana anda boleh mendapatkannya? Sudah jelas bahawa Outlook tidak memberi kita ciri seperti itu. Oleh itu, anda perlu mencari kaedah lain. Berikut adalah 2 petua.

Kaedah 1: Batch Buka Semua Lampiran melalui Simpan Semua Lampiran

Sekiranya lampiran berada dalam jenis fail yang sama, anda boleh menggunakan kaedah ini:

1. Untuk bermula, pilih e-mel.
2. Kemudian tekan satu lampiran di panel bacaan.
3. Selanjutnya di pita "Lampiran" yang kelihatan, anda dapat mencari dan mengklik pada butang "Simpan Semua Lampiran".
4. Selepas itu, dalam kotak dialog kecil pop timbul, klik "OK".
5. Dalam kotak dialog "Simpan Semua Lampiran" berikut, pilih folder tujuan untuk menyimpannya dan klik "OK".
6. Akhirnya anda dapat membuka folder yang dipilih.

• Tekan "Ctrl + A" untuk memilih semua lampiran yang disimpan.
• Kemudian klik kanan pada mereka.
• Di menu mengklik kanan, Anda dapat memilih opsi "Buka".

Kaedah di atas hanya terpakai untuk kes di mana semua lampiran berada dalam jenis fail yang sama. Tetapi jika tidak, anda boleh menggunakan cara berikut.

Kaedah 2: Batch Buka Semua Lampiran melalui Outlook VBA

Kaedah ini akan berfungsi dengan berkesan jika lampiran terdapat dalam jenis file yang sama - ".docx", ".doc", ".txt", ".xlsx", "xls", ".jpg", ".png", "jpeg "

1. Di tempat pertama, tekan butang kekunci "Alt + F11".
2. Kemudian anda akan masuk ke tetingkap editor VBA.
3. Sekarang anda perlu membuka modul yang tidak digunakan.
4. Selepas itu, salin dan tampal kod VBA berikut ke dalamnya.

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. Selepas itu, anda boleh menutup editor VBA dan menambahkan makro ke Bar Alat Akses Pantas.
6. Akhirnya anda boleh mencuba.

• Pertama, pilih e-mel.
• Kemudian klik butang makro di Bar Alat Akses Pantas.
• Segera, semua lampiran dalam e-mel yang dipilih akan dibuka secara berkelompok, seperti tangkapan skrin berikut:

Lindungi Data PST Anda Dengan Berkesan

Oleh kerana Outlook PST rentan terhadap pelbagai faktor, anda harus berusaha sedaya upaya untuk mencegahnya daripada berlakunya rasuah. Jika tidak, apabila PST anda rosak, kepada membaiki PST akan menjadi tugas yang sukar. Scanpst.exe tidak akan membantu dalam kes sedemikian. Jadi satu-satunya jalan keluar anda adalah menggunakan alat luaran yang kuat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com