2 Metodat për të hapur në grup të gjitha bashkëngjitjet në emailin tuaj të Outlook

Kur merrni një email i cili është bashkëngjitur me disa bashkëngjitje, ndonjëherë mund të shpresoni t'i hapni ato në masë. Ky artikull do të shqyrtojë këtë çështje dhe do t'ju prezantojë 2 mënyra për ta marrë atë.

Ju duhet të keni marrë ndonjëherë një email të tillë që përmban disa bashkëngjitje. Është shumë e lehtë të hapësh një nga bashkëngjitjet thjesht duke klikuar dy herë mbi të. Por nëse dëshironi të hapni shpejt të gjitha bashkëngjitjet në grup, si mund ta merrni atë? Është e qartë se Outlook nuk na ofron një veçori të tillë. Prandaj, duhet të kërkoni mjete të tjera. Më poshtë janë 2 këshilla.

Metoda 1: Hapni në grup të gjitha bashkëngjitjet përmes Ruaj të gjitha bashkëngjitjet

Nëse bashkëngjitjet janë në të njëjtin lloj skedari, mund të përdorni këtë metodë:

1. Të start me, zgjidhni një email.
2. Pastaj vendosni një bashkëngjitje në panelin e leximit.
3. Më pas në shiritin e dukshëm "Bashkëngjitjet", mund të gjeni dhe klikoni në butonin "Ruaj të gjitha bashkëngjitjet".
4. Më pas, në kutinë e dialogut të vogël që shfaqet, klikoni "OK".
5. Në kutinë e mëposhtme të dialogut "Ruaj të gjitha bashkëngjitjet", zgjidhni një dosje destinacioni për t'i ruajtur ato dhe klikoni "OK".
6. Më në fund mund të hapni dosjen e zgjedhur.

• Shtypni "Ctrl + A" për të zgjedhur të gjitha bashkëngjitjet e ruajtura.
• Pastaj klikoni me të djathtën mbi to.
• Në menunë e klikuar me të djathtën, mund të zgjidhni opsionin "Hap".

Metoda e mësipërme vlen vetëmcable në një rast të tillë që të gjitha bashkëngjitjet janë në të njëjtin lloj skedari. Por nëse jo, mund të përdorni mjetet e mëposhtme.

Metoda 2: Hapni në grup të gjitha bashkëngjitjet përmes Outlook VBA

Metoda do të funksionojë në mënyrë efektive nëse bashkëngjitjet janë në llojet e zakonshme të skedarëve - ".docx", ".doc", ".txt", ".xlsx", "xls", ".jpg", ".png", "jpeg “.

1. Në radhë të parë, shtypni butonat "Alt + F11".
2. Pastaj do të futeni në dritaren e redaktuesit VBA.
3. Tani ju duhet të hapni një modul që nuk është në përdorim.
4. Më pas, kopjoni dhe ngjisni kodet e mëposhtme VBA në të.

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. Pas kësaj, mund të mbyllni redaktorin VBA dhe të shtoni makro në shiritin e veglave të aksesit të shpejtë.
6. Më në fund mund të provoni.

• Së pari, zgjidhni një email.
• Pastaj klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
• Menjëherë, të gjitha bashkëngjitjet në emailin e zgjedhur do të hapen në grup, si pamja e mëposhtme e ekranit:

Ruani në mënyrë efektive të dhënat tuaja PST

Meqenëse Outlook PST është i prekshëm ndaj faktorëve të ndryshëm, duhet të bëni shumë përpjekje për ta parandaluar atë nga korrupsioni. Përndryshe, sapo PST juaj të korruptohet, të riparim PST do të jetë një detyrë mjaft e mundimshme. Scanpst.exe nuk do të ndihmojë në një rast të tillë. Pra, mjeti juaj i vetëm është të aplikoni një mjet të fuqishëm të jashtëm, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë mdf i dëmtuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com