2 მეთოდი ჯგუფური გახსნის ყველა დანართი თქვენს Outlook ელფოსტაში

როდესაც იღებთ ელ.წერილს, რომელსაც თან ერთვის რამდენიმე დანართი, ზოგჯერ შეიძლება იმედი გქონდეთ, რომ გახსნით მათ ნაყარად. ეს სტატია განიხილავს ამ საკითხს და გაგაცნობთ მის მისაღებად 2 მიდგომას.

თქვენ ოდესმე უნდა მიგიღიათ ასეთი ელ.წერილი, რომელიც შეიცავს რამდენიმე დანართს. ერთი დანართის გახსნა საკმაოდ მარტივია მასზე ორჯერ დაწკაპუნებით. მაგრამ თუ გსურთ სწრაფად გახსნათ ყველა დანართი პარტიაში, როგორ შეგიძლიათ მიიღოთ იგი? აშკარაა, რომ Outlook არ გვაძლევს ასეთ ფუნქციას. ამიტომ, თქვენ უნდა მოძებნოთ სხვა საშუალებები. ქვემოთ მოცემულია 2 რჩევა.

მეთოდი 1: ჯგუფური გახსნა ყველა დანართის მეშვეობით Save All Attachment

თუ დანართები ფაილის იმავე ტიპისაა, შეგიძლიათ გამოიყენოთ ეს მეთოდი:

1. დასაწყებად, აირჩიეთ ელ. ფოსტა.
2. შემდეგ დაიტანეთ ერთი დანართი წაკითხვის პანელში.
3. შემდეგ ხილულ "დანართების" ლენტში შეგიძლიათ იპოვოთ და დააწკაპუნოთ ღილაკზე "ყველა დანართის შენახვა".
4. შემდეგ, ამომხტარი პატარა დიალოგური ფანჯარაში, დააწკაპუნეთ "OK".
5. შემდეგ დიალოგურ ფანჯარაში „ყველა დანართის შენახვა“, აირჩიეთ დანიშნულების საქაღალდე მათი შესანახად და დააწკაპუნეთ „OK“.
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

5. ამის შემდეგ შეგიძლიათ დახუროთ VBA რედაქტორი და დაამატოთ მაკრო სწრაფი წვდომის ინსტრუმენტთა პანელში.
6. საბოლოოდ შეგიძლიათ სცადოთ.

• პირველ რიგში, აირჩიეთ ელ.წერილი.
• შემდეგ დააჭირეთ მაკრო ღილაკს სწრაფი წვდომის ხელსაწყოთა ზოლში.
• დაუყოვნებლივ, ყველა დანართი არჩეულ ელფოსტაში გაიხსნება ჯგუფურად, როგორც შემდეგი ეკრანის სურათი:

დაიცავით თქვენი PST მონაცემები ეფექტურად

ვინაიდან Outlook PST დაუცველია სხვადასხვა ფაქტორების მიმართ, თქვენ უნდა გააკეთოთ დიდი ძალისხმევა, რათა თავიდან აიცილოთ ის კორუფციისგან. წინააღმდეგ შემთხვევაში, როგორც კი თქვენი PST დაზიანდება, PST შეკეთება საკმაოდ რთული ამოცანა იქნება. Scanpst.exe არ დაეხმარება ასეთ შემთხვევაში. ასე რომ, თქვენი ერთადერთი გამოსავალი არის ძლიერი გარე ხელსაწყოს გამოყენება, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული მდფ და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად