Ձեր Outlook էլփոստի բոլոր կցորդները խմբաքանակով բացելու 2 մեթոդ

Outlook լուծումներ Սեպտեմբեր 29, 2025
Կիսվել հիմա ՝

Երբ նամակ եք ստանում, որը կցված է մի քանի կցորդներով, երբեմն, գուցե հույս ունենաք, որ դրանք մեծ մասամբ կբացեք: Այս հոդվածը կանդրադառնա այս խնդրին և կներկայացնի այն ստանալու 2 մոտեցում:

Դուք երևի երբևէ ստացել եք նման էլ. Նամակ, որը պարունակում է մի քանի հավելված: Բավականին հեշտ է բացել կցորդներից մեկը `պարզապես կրկնակի կտտացնելով դրա վրա: Բայց եթե ցանկանում եք արագորեն խմբաքանակով բացել բոլոր կցորդները, ինչպե՞ս կարող եք այն ձեռք բերել: Ակնհայտ է, որ Outlook- ը մեզ նման հատկություն չի ապահովում: Ուստի հարկավոր է այլ միջոցներ փնտրել: Հետևյալը 2 խորհուրդ է:

Խմբաքանակով բացեք բոլոր կցորդները

Մեթոդ 1. Խմբաքանակով բացել բոլոր կցորդները ՝ Save All Attachments- ի միջոցով

Եթե ​​կցորդները նույն ֆայլի տիպում են, կարող եք օգտագործել այս մեթոդը.

  1. Սկսելու համար ընտրեք էլ. փոստի հասցե։
  2. Այնուհետև ընթերցանության հատվածում տեղադրեք մեկ կցորդ:Ընտրեք կցորդ մեկ էլ
  3. Հաջորդ տեսանելի «Կցորդներ» ժապավենի մեջ դուք կարող եք գտնել և սեղմել «Պահել բոլոր կցորդները» կոճակը:Պահել բոլոր կցորդները
  4. Հետևաբար, ելնող փոքր երկխոսության դաշտում կտտացրեք «Լավ»:Հաստատեք Պահել բոլոր կցորդները
  5. Հաջորդ «Պահել բոլոր կցորդները» երկխոսության դաշտում ընտրեք նպատակակետի պանակը դրանք պահելու համար և կտտացրեք «Լավ»:
  6. Վերջապես կարող եք բացել ընտրված պանակը:
  • Սեղմեք «Ctrl + A» ՝ բոլոր պահված կցորդները ընտրելու համար:
  • Դրանից հետո աջ կտտացրեք նրանց:
  • Աջ կտտացնելու ցանկից կարող եք ընտրել «Բացել» տարբերակը:Խմբաքանակով բացեք բոլոր կցորդները նույն ֆայլի տիպում

Վերոնշյալ մեթոդը կիրառելի է միայն այն դեպքում, երբ բոլոր կցորդները նույն ֆայլի տեսակի են։ Սակայն եթե ոչ, կարող եք օգտագործել հետևյալ միջոցները։

Մեթոդ 2. Փաթեթում բացեք բոլոր հավելվածները Outlook VBA- ի միջոցով

Մեթոդը արդյունավետ կգործի, եթե հավելվածները ընդհանուր ֆայլի տեսակների մեջ են. «.Docx», «.doc», «.txt», «.xlsx», «xls», «.jpg», «.png», «jpeg »

  1. Առաջին հերթին, սեղմեք «Alt + F11» ստեղնաշարի կոճակները:
  2. Դրանից հետո դուք կմտնեք VBA խմբագրի պատուհան:
  3. Այժմ դուք պետք է բացեք չօգտագործվող մոդուլ:
  4. Դրանից հետո պատճենեք և տեղադրեք հետևյալ VBA կոդերը դրանում:
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

VBA կոդեր - Բացեք բոլոր կցորդները

  1. Դրանից հետո դուք կարող եք փակել VBA խմբագիրը և մակրո ավելացնել Արագ մուտքի գործիքագոտում:մակրոը ավելացրեք Արագ մուտքի գործիքագոտում
  2. Վերջապես կարող եք փորձել:
  • Նախ ընտրեք էլ.
  • Դրանից հետո կտտացրեք մակրո կոճակին Արագ մուտքի գործիքագոտում:Փորձեք մակրո կոճակը
  • Անմիջապես, ընտրված էլփոստի բոլոր կցորդները կբացվեն խմբաքանակով, ինչպես հետևյալ էկրանի նկարը.Փաթեթում բացեք բոլոր կցորդները ընդհանուր ֆայլերի տեսակների մեջ

Արդյունավետորեն պաշտպանեք ձեր PST տվյալները

Քանի որ Outlook PST- ը խոցելի է տարբեր գործոնների համար, դուք պետք է շատ ջանք գործադրեք կանխելու համար այն կոռուպցիան: Հակառակ դեպքում, ձեր PST- ի վնասվելուց հետո, դեպի վերանորոգել PST կլինի բավականին ծանր աշխատանք: Scanpst.exe- ը չի օգնի նման դեպքում: Այսպիսով, ձեր միակ հանգրվանը ուժեղ արտաքին գործիք կիրառելն է, ինչպես, օրինակ DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վնասված mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: