Outlook E-poçtunuzdakı Bütün Əlavələri Toplu Açmaq üçün 2 Metod

Bir neçə qoşma ilə əlavə olunan e-poçt məktubu aldığınız zaman, bəzən onları toplu şəkildə açmağa ümid edə bilərsiniz. Bu məqalə bu məsələyə baxacaq və onu əldə etmək üçün sizə 2 yanaşma təqdim edəcək.

Siz nə vaxtsa bir neçə qoşmadan ibarət belə bir e-poçt almısınız. Əlavələrdən birini sadəcə iki dəfə klikləməklə açmaq olduqca asandır. Bəs siz bütün qoşmaları toplu olaraq tez açmaq istəyirsinizsə, onu necə əldə edə bilərsiniz? Aydındır ki, Outlook bizə belə bir xüsusiyyət təqdim etmir. Buna görə başqa vasitələr axtarmaq lazımdır. Aşağıdakılar 2 məsləhətdir.

Metod 1: Bütün Qoşmaları Saxla vasitəsilə Bütün Qoşmaları Toplu Açın

Qoşmalar eyni fayl tipindədirsə, bu üsuldan istifadə edə bilərsiniz:

1. Başlamaq üçün bir e-poçt seçin.
2. Sonra oxu panelində bir qoşma üzərinə yerləşdirin.
3. Sonra görünən "Qoşmalar" lentində "Bütün Qoşmaları Saxla" düyməsini tapıb üzərinə klikləyə bilərsiniz.
4. Sonra, açılan kiçik dialoq qutusunda "OK" düyməsini basın.
5. Aşağıdakı "Bütün qoşmaları saxla" informasiya qutusunda onları saxlamaq üçün təyinat qovluğunu seçin və "OK" düyməsini basın.
6. Nəhayət, seçilmiş qovluğu aça bilərsiniz.

• Bütün saxlanmış qoşmaları seçmək üçün "Ctrl + A" düyməsini basın.
• Sonra onların üzərinə sağ vurun.
• Sağ tıklayarak menyudan "Açıq" seçimini seçə bilərsiniz.

Yuxarıdakı metod yalnız bütün əlavələrin eyni fayl tipində olduğu hallar üçün tətbiq olunur. Lakin əgər belə deyilsə, aşağıdakı vasitələrdən istifadə edə bilərsiniz.

Metod 2: Outlook VBA vasitəsilə bütün əlavələri toplu açın

Qoşmalar ümumi fayl tiplərində olarsa, metod effektiv işləyəcək – “.docx”, “.doc”, “.txt”, “.xlsx”, “xls”, “.jpg”, “.png”, “jpeg” ”.

1. İlk növbədə, "Alt + F11" düymələrini basın.
2. Sonra VBA redaktoru pəncərəsinə daxil olacaqsınız.
3. İndi istifadə olunmayan modulu açmalısınız.
4. Sonra, aşağıdakı VBA kodlarını kopyalayın və ona yapışdırın.

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. Bundan sonra siz VBA redaktorunu bağlaya və makrosunu Tez Giriş Alətlər Panelinə əlavə edə bilərsiniz.
6. Nəhayət, bir cəhd edə bilərsiniz.

• Əvvəlcə e-poçt seçin.
• Sonra Tez Giriş Alətlər Panelində makro düyməsini basın.
• Dərhal, seçilmiş e-poçtdakı bütün qoşmalar aşağıdakı ekran görüntüsü kimi toplu olaraq açılacaq:

PST məlumatlarınızı effektiv şəkildə qoruyun

Outlook PST müxtəlif amillərə qarşı həssas olduğundan, onun korrupsiyanın qarşısını almaq üçün çox səy göstərməlisiniz. Əks halda, PST-niz pozulduqda təmir PST xeyli çətin bir iş olacaq. Belə bir vəziyyətdə Scanpst.exe kömək etməyəcək. Beləliklə, yeganə çarəniz güclü xarici alət tətbiq etməkdir, məsələn DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com