Таны Outlook имэйл дэх бүх хавсралтыг задлах 2 арга

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 редакторыг хааж, Quick Access Toolbar дээр макро нэмж болно.макроыг Quick Access Toolbar дээр нэмэх
  2. Эцэст нь та хичээгээд үзээрэй.
  • Нэгдүгээрт, имэйл сонгоно уу.
  • Дараа нь Quick Access Toolbar дээрх макро товчийг дарна уу.Макро товчлуурыг туршиж үзээрэй
  • Сонгосон имэйлийн бүх хавсралтыг даруй дараахь дэлгэцийн агшин шиг багцаар нээх болно.Бүх хавсралтыг файлын нийтлэг төрөлд нээнэ үү

PST өгөгдлөө үр дүнтэй хамгаалаарай

Outlook PST нь янз бүрийн хүчин зүйлүүдэд өртөмтгий тул та үүнийг авлигаас урьдчилан сэргийлэхийн тулд маш их хүчин чармайлт гаргах хэрэгтэй. Үгүй бол таны PST эвдэрсэн тохиолдолд засварын газар нэлээд хүнд ажил байх болно. Ийм тохиолдолд Scanpst.exe нь туслахгүй. Тиймээс таны цорын ганц амралт бол гадны хүчтэй хэрэгслийг ашиглах явдал юм DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. гэмтсэн mdf програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com

Одоо хуваалцах:

Тайлбарууд нь хаалттай байна.