Outlook elektron pochtangizdagi barcha biriktirmalarni ommaviy ochishning 2 usuli

Bir nechta qo'shimchalar bilan ilova qilingan elektron pochta xabarini olganingizda, ba'zida ularni ommaviy ravishda ochishga umid qilishingiz mumkin. Ushbu maqola ushbu masalani ko'rib chiqadi va uni olishning 2 ta yondashuvini taqdim etadi.

Siz hech qachon bir nechta biriktirmalarni o'z ichiga olgan elektron pochta xabarini olgan bo'lishingiz kerak. Qo'shimchalardan birini ikki marta bosish orqali ochish juda oson. Ammo agar siz barcha biriktirmalarni tezda ochmoqchi bo'lsangiz, uni qanday qilib olishingiz mumkin? Outlook bizga bunday xususiyatni taqdim etmasligi aniq. Shuning uchun siz boshqa vositalarni izlashingiz kerak. Quyidagi 2 ta maslahat.

1-usul: Barcha biriktirmalarni saqlash orqali barcha biriktirmalarni to'plamda oching

Agar qo'shimchalar bir xil fayl turida bo'lsa, siz ushbu usuldan foydalanishingiz mumkin:

1. Boshlash uchun elektron pochtani tanlang.
2. Keyin o'qish panelida bitta biriktirma ustiga qo'ying.
3. Keyingi ko'rinadigan "Qo'shimchalar" lentasida siz "Barcha qo'shimchalarni saqlash" tugmasini topishingiz va bosishingiz mumkin.
4. Keyinchalik, ochilgan kichik dialog oynasida "OK" tugmasini bosing.
5. Keyingi "Barcha qo'shimchalarni saqlash" dialog oynasida ularni saqlash uchun maqsadli papkani tanlang va "OK" tugmasini bosing.
6. Nihoyat, tanlangan jildni ochishingiz mumkin.

• Barcha saqlangan qo'shimchalarni tanlash uchun "Ctrl + A" tugmalarini bosing.
• Keyin ularni o'ng tugmasini bosing.
• O'ng tugmasini bosish menyusida "Ochish" opsiyasini tanlashingiz mumkin.

Yuqoridagi usul faqat barcha qo'shimchalar bir xil fayl turida bo'lgan holatlarga nisbatan qo'llaniladi. Ammo agar bunday bo'lmasa, siz quyidagi vositalardan foydalanishingiz mumkin.

2-usul: Outlook VBA orqali barcha qo'shimchalarni to'plamda oching

Qo'shimchalar umumiy fayl turlarida - ".docx", ".doc", ".txt", ".xlsx", "xls", ".jpg", ".png", "jpeg" bo'lsa, usul samarali ishlaydi. ”.

1. Birinchidan, "Alt + F11" tugmachalarini bosing.
2. Keyin siz VBA muharriri oynasiga kirasiz.
3. Endi siz foydalanilmayotgan modulni ochishingiz kerak.
4. Keyinchalik, quyidagi VBA kodlarini nusxa ko'chiring va unga joylashtiring.

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. Shundan so'ng siz VBA muharririni yopishingiz va makrosni Tez kirish asboblar paneliga qo'shishingiz mumkin.
6. Nihoyat, siz sinab ko'rishingiz mumkin.

• Birinchidan, elektron pochta manzilini tanlang.
• Keyin Tez kirish asboblar panelidagi makros tugmasini bosing.
• Darhol tanlangan e-pochtadagi barcha biriktirmalar quyidagi skrinshotdagi kabi ommaviy ravishda ochiladi:

PST ma'lumotlaringizni samarali himoya qiling

Outlook PST turli omillar ta'sirida zaif bo'lganligi sababli, uning buzilishining oldini olish uchun ko'p harakat qilishingiz kerak. Aks holda, PST buzilganidan keyin PST-ni ta'mirlash ancha mashaqqatli ish bo'ladi. Bunday holatda Scanpst.exe yordam bermaydi. Shunday qilib, sizning yagona chorangiz kuchli tashqi vositani qo'llashdir, masalan DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc shikastlangan mdf va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com