2 Outlook электрондық поштаңыздағы барлық қосымшаларды пакеттік тәсілмен ашыңыз

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Бірнеше тіркемелермен қоса электрондық пошта алған кезде, кейде оларды жаппай ашуға үміттенуіңіз мүмкін. Бұл мақала осы мәселені қарастырады және оны алудың 2 тәсілін ұсынады.

Сізге бірнеше тіркемелерден тұратын осындай хат келген болуы керек. Қосымшалардың бірін оны екі рет басу арқылы ашу өте оңай. Егер сіз барлық тіркемелерді топтамада жылдам ашқыңыз келсе, оны қалай алуға болады? Outlook бізге мұндай мүмкіндікті бермейтіні анық. Демек, сіз басқа құралдарды іздеуіңіз керек. Төменде 2 кеңес берілген.

Топтаманың барлық қосымшаларын ашыңыз

1-әдіс: Барлық тіркемелерді сақтау арқылы пакеттік түрде барлық тіркемелерді ашыңыз

Егер тіркемелер бірдей файл түрінде болса, келесі әдісті қолдануға болады:

  1. Бастау үшін электрондық поштаны таңдаңыз.
  2. Содан кейін оқу тақтасына бір қосымшаны салыңыз.Бір электрондық пошта арқылы тіркеме таңдаңыз
  3. Көрінетін «Тіркемелер» таспасында «Барлық тіркемелерді сақтау» батырмасын тауып, оны басуға болады.Барлық тіркемелерді сақтаңыз
  4. Содан кейін, қалқымалы шағын диалог терезесінде «OK» батырмасын басыңыз.Барлық тіркемелерді сақтауды растаңыз
  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.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf бүлінген және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.